Delphi用字符串链接MSSQLERVER

不少刚学Delphi 的朋友在找Delphi链接MSSQL的方法，但发现网上大可能是经过ODBC链接 的，实在不方便，也不是我喜欢的类型。

现提供经过字串链接的方式：

链接字串：

Provider=SQLOLEDB.1;Password=12345;Persist Security Info=True;User ID=UserName;Initial Catalog=DataBaseName;Data Source=123.123.123.123,5678

注意，上面的“5678”为数据库的端口，若是没有特别指定，能够不写；

另：数据库链接时的端口不是用“:”指定，而是“,”。

 示例代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=DB_Name;Data Source=1.2.3.4';    //链接指定的数据库
    ADOConnection1.LoginPrompt := False;
    ADOConnection1.Connected := True;
    ADOQuery1.Connection := ADOConnection1;    //链接数据源
with ADOQuery1 do    //用ADO组件链接数据表
begin
    close;
    SQL.Clear;
    SQL.Add('Select * from Table1');    //使用SQL语句查询数据表中的内容
    open;
end;
ADOQuery1.Active := True;
DataSource1.DataSet := ADOQuery1;
DBGrid1.DataSource := DataSource1;
end;