全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1474
推到 Plurk!
推到 Facebook!

如何使用程式 動態設定 BDE 對資料庫的聯結

尚未結案
tgho
一般會員


發表:3
回覆:14
積分:8
註冊:2003-03-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-06-04 23:24:43 IP:211.74.xxx.xxx 未訂閱
請問各位高手 大大 如何使用程式 動態設定 BDE 對資料庫的聯結
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-06-05 00:17:27 IP:203.204.xxx.xxx 未訂閱
tgho 你好 請問是連結什麼資料庫,有沒有透過ODBC?
tgho
一般會員


發表:3
回覆:14
積分:8
註冊:2003-03-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-06-05 00:24:02 IP:211.74.xxx.xxx 未訂閱
沒透過odbcㄝ 如果有的話 是否也可以舉例 小弟才疏學淺 請大大指教
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-06-05 00:37:52 IP:203.204.xxx.xxx 未訂閱
tgho 你好     先給你最簡單的,設定ParaDox(*.db,*.DBF)的別名,假設要設定的別名為ABC
  if Session.IsAlias('ABC') then Session.DeleteAlias('ABC'); // 有現存的先刪除
  DataPath := '資料存放的路徑' ;
  Session.AddStandardAlias('ABC',DataPath,'PARADOX');
  Session.AddStandardAlias('ABC',DataPath,'DBASE');
  Session.AddStandardAlias('ABC',DataPath,'FOXPRO');
  // 以上三選一      // 以下示範連結SQLServer 透過ODBC的方式
Var
  Params:TStringList;
Begin
  if Session.IsAlias('ABC') then Session.DeleteAlias('ABC'); // 有現存的先刪除
  // 建立須要的參考(在BDE Administrator中怎麼設定就加入該參數即可)
  // 一般透過ODBC連結到SQLServer只要改變下列幾個參數即可,其他的
  //會用預設值,故可以不用設定。
  Params := TStringList.Create;
  With Params Do Begin
    Add('ODBC DSN=XXXX'); // XXXX 為ODBC中設定的名稱
    Add('SQLQRYMODE=SERVER');
    Add('USER NAME=XXXX'); // 登入帳號
  end;
  Session.AddAlias('ABC','SQL Server',Params );  //設定別名
  // 紅色部份就是BDE透過ODBC連結SQLServer的驅動程式名稱。
  Params.Free; // 釋放資源
發表人 - chance36 於 2004/06/05 00:50:25
tgho
一般會員


發表:3
回覆:14
積分:8
註冊:2003-03-18

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-06-05 09:42:59 IP:210.243.xxx.xxx 未訂閱
感謝 Chance36 大大的解惑
系統時間:2024-06-28 18:37:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!