如何建立dbExpress，TSQLConnection Windows 驗證模式 |
|
答題得分者是：kaida
|
|
hsienche
一般會員   發表：6 回覆：9 積分：3 註冊：2003-08-28 發送簡訊給我 |
SQL驗證模式,程式碼如下
procedure TfrmMain.btnConnClick(Sender: TObject); var con1 : TSQLConnection; begin con1 := TSQLConnection.Create(nil); con1.ConnectionName:= 'MSSQLConnection'; con1.GetDriverFunc := 'getSQLDriverMSSQL'; con1.LibraryName := 'dbexpmss.dll'; con1.VendorLib := 'oledb'; con1.DriverName := 'MSSQL'; con1.LoginPrompt := False; con1.Params.Values['HostName' ] := 'HostName'; con1.Params.Values['DataBase' ] := 'DataBase'; con1.Params.Values['User_Name'] := 'sa'; con1.Params.Values['Password' ] := 'iloveyou'; con1.Params.Values['OS Authentication'] := 'False'; try con1.Connected := True; ShowMessage('資料庫連線成功'); con1.Free; except ShowMessage('資料庫連線錯誤'); con1.Free; end; end; 請問如何改寫為Windows驗證模式, (我已經有爬文了,也看了李維大師的高效率資料庫程式設計一書,但都未提到) |
|
kaida
中階會員  發表：4 回覆：35 積分：52 註冊：2003-03-02 發送簡訊給我 |
改寫為Windows驗證模式:
procedure TfrmMain.btnConnClick(Sender: TObject); var con1 : TSQLConnection; begin con1 := TSQLConnection.Create(nil); con1.ConnectionName:= 'MSSQLConnection'; con1.GetDriverFunc := 'getSQLDriverMSSQL'; con1.LibraryName := 'dbexpmss.dll'; con1.VendorLib := 'oledb'; con1.DriverName := 'MSSQL'; con1.LoginPrompt := False; con1.Params.Values['HostName' ] := 'HostName'; con1.Params.Values['DataBase' ] := 'DataBase'; //con1.Params.Values['User_Name'] := 'sa'; //con1.Params.Values['Password' ] := 'iloveyou'; con1.Params.Values['OS Authentication'] := 'True'; try con1.Connected := True; ShowMessage('資料庫連線成功'); con1.Free; except ShowMessage('資料庫連線錯誤'); con1.Free; end; end;
編輯記錄
kaida 重新編輯於 2007-09-19 11:20:56， 註解 無‧
|
|
hsienche
一般會員 發表：6 回覆：9 積分：3 註冊：2003-08-28 發送簡訊給我 |
發表時間：2007-09-19 09:50:59
IP:59.126.xxx.xxx 訂閱
系統時間：2024-11-24 15:37:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |