关于动态连接 SQL_SERVER 数据库 ,,在线急等！！！

Question

请问各位老师：如何实现动态连接 SQL——SERVER 。
即：我只要输入任意服务器的 ip 或者是输入 计算机名字，马上可以连接到 SQL_SERVER数据库上！！！！！！我可以用query 调用！

Answer 1

先用ado静态连接，然后取出其connectionstring输入数据源，用户，密码
确定后按照静态连接的方法，生成连接字符串。
procedure TDM.DataModuleCreate(Sender: TObject);
begin
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
    +ExtractFileDir(Application.ExeName)+'\Data\db1.mdb;Persist Security Info=False';
  ADOConnection1.Connected:=True;
end;

Answer 2

也可以用database,table,query这些数据访问控减，效果不错啊

Answer 3

连接 sqlserver2000数据库啊，，，，怎么去制定计算机的 IP,或者是计算机名字后，，自动的找到服务器的数据库。

Answer 4

可以把以下文件加入工程中，
Delphi安装目录\Source\Property Editors\AdoConEd.pas
Delphi安装目录\Source\Property Editors\AdoConEd.dfm
接着自己看看吧.....

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString :=
    'Provider=SQLOLEDB.1;Persist Security Info=False;'
    +'User ID=' + Edit2.TExt{your User ID like sa} +';'
    +'Password=' + Edit3.Text{your Password}  +';'
    +'Initial Catalog=' + Edit4.Text{your database}  +';'
    +'Data Source=' + Edit1.Text{Your SQL Server IP};
  ADODataset1.Connection := ADOConnection1;
  ADODataset1.Open;
end;

Answer 6

dm.ADOConnection.ConnectionString:=
   'Provider=SQLOLEDB.1;Password=YourPassword;User ID=YourID;'+
    'Initial Catalog=SQL数据库名;Data Source=SQL服务器名;'+
    'NetWork Library=DBMSSOCN;NetWork Address=SQL服务器所在的地址IP,1433';
dm.ADOConnection.open;

Answer 7

我這邊還有一種連法:
str:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=數據庫名;Data Source=218.75.228.1111.433(也可以是服務器名),;Password=168';
再把adoconniction.connictionstring:=str;(其它也可以)