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;