delphi7中怎样实现自动创建数据源并连接sql server数据库

就是用delhpi7做的前台程序，要实现安装后不用手动创建数据源，直接运行.exe文件就能访问数据库了，该怎么做，请高人指点？

6 个解决方案

#1

怎么回事，没人理呀？都回家过年了？

#2

procedure TForm2.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString := 'Provider=SQLNCLI.1;Password=8DontNo;Persist Security Info=True;' +
            'User ID=sa;Initial Catalog=master;Data Source=omcs-dev-server\jira';

  ADOQuery1.SQL.Text := 'if not exists(select 1 from dbo.sysdatabases where Name=''aaa'') '+
                        '  Create Database aaa ';
  ADOQuery1.ExecSQL;
end;

#3

引用 2 楼 sedshy 的回复:

procedure TForm2.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString := 'Provider=SQLNCLI.1;Password=8DontNo;Persist Security Info=True;' +
            'User ID=sa;Initial Catalog=master;Data Source=omcs-dev-server\jira';

  ADOQuery1.SQL.Text := 'if not exists(select 1 from dbo.sysdatabases where Name=''aaa'') '+
                        '  Create Database aaa ';
  ADOQuery1.ExecSQL;
end;

.
请问‘Data Source=omcs-dev-server\jira’是什么意思呀，是创建数据源吗？它是怎样与数据库aaa建立联系的呀？

#4

你是不是odbc用的太多了，用ado就可以直接连接了。不用建立数据源。代码参考2\3楼

#5

omcs-dev-server\jira这是sql server服务器。
创建数据库成功后，把数据库指向 aaa

 ADOConnection1.ConnectionString := 'Provider=SQLNCLI.1;Password=8DontNo;Persist Security Info=True;' +
            'User ID=sa;Initial Catalog=aaa;Data Source=omcs-dev-server\jira';
 

#6

用第三方控件也行，比如我用的UniDAC