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;