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

請教如何透過odbc動態連結access資料庫

尚未結案
richard2059
一般會員


發表:1
回覆:1
積分:0
註冊:2003-08-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-22 14:34:45 IP:61.230.xxx.xxx 未訂閱
各位大大好:小弟有一個問題,我在win98裡可以透過odbc管理工具設定連結access資料庫,如果我要在程式內用動態的方式連結access的資料庫可否做到 謝謝
richard2059
一般會員


發表:1
回覆:1
積分:0
註冊:2003-08-20

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-25 17:13:12 IP:61.230.xxx.xxx 未訂閱
小弟已找到方法提供以下Code供參考如有更好的方法請指教謝謝 static char cur_directory[MAX_PATH]; static char System_dir[MAX_PATH]; GetSystemDirectory(System_dir,MAX_PATH); GetCurrentDirectory(MAX_PATH,cur_directory); AnisString dbname; TRegistry *Reg = new TRegistry; try { Reg->RootKey = HKEY_CURRENT_USER; if (Reg->OpenKey("\\Software\\ODBC\\ODBC.INI\\ODBC Data Sources", true)) { Reg->WriteString("test_test_aaaa","Microsoft Access Driver (*.mdb)"); Reg->CloseKey(); } if (Reg->OpenKey("\\Software\\ODBC\\ODBC.INI\\test_test_aaaa", true)) { Reg->WriteString("DBQ",dbname); Reg->WriteString("Driver",AnsiString(System_dir) "\\odbcjt32.dll"); Reg->WriteInteger("DriverId",25); Reg->WriteString("FIL","MS Access;"); Reg->WriteInteger("SafeTransactions",0); Reg->WriteString("UID",""); Reg->CloseKey(); } if (Reg->OpenKey("\\Software\\ODBC\\ODBC.INI\\MS Access Database\\Engines\\Jet", true)) { Reg->WriteString("ImplicitCommitSync",""); Reg->WriteInteger("MaxBufferSize",2048); Reg->WriteInteger("PageTimeout",5); Reg->WriteInteger("Threads",3); Reg->WriteString("UserCommitSync","Yes"); Reg->CloseKey(); } } catch(Exception &e) { ShowMessage(e.Message); } delete Reg; Reg=NULL; return true;
系統時間:2024-05-06 19:53:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!