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;