function SetupRegistry()
?NUMBER nResult;
?STRING szPath, szKeyName;
?begin
??RegDBSetDefaultRoot ( HKEY_CURRENT_USER );
??szKeyName = "Software//ODBC//ODBC.INI//我的數據庫";
??if(RegDBKeyExist(szKeyName)<0) then
???RegDBCreateKeyEx (szKeyName,"");
??else
???RegDBDeleteKey (szKeyName);
???RegDBCreateKeyEx (szKeyName,"");
? endif;
?
??szKeyName = "Software//ODBC//ODBC.INI//ODBC Data Sources";
??if(RegDBKeyExist(szKeyName)<0) then
?? RegDBCreateKeyEx (szKeyName,"");
??endif;
??RegDBSetKeyValueEx ( szKeyName, "我的數據庫" , REGDB_STRING ,"Microsoft Access Driver (*.mdb)" , -1);
??szPath = TARGETDIR^"student.mdb";
??szKeyName = "Software//ODBC//ODBC.INI//我的數據庫";
??RegDBSetKeyValueEx ( szKeyName, "DBQ" , REGDB_STRING , szPath , -1);
??RegDBSetKeyValueEx ( szKeyName, "Description" , REGDB_STRING , "用于VC++的數據源" , -1);
??RegDBSetKeyValueEx ( szKeyName, "Driver" , REGDB_STRING , WINSYSDIR+"/odbcjt32.DLL" , -1);
??RegDBSetKeyValueEx ( szKeyName, "DriverID" , REGDB_NUMBER , "25" , -1);
??RegDBSetKeyValueEx ( szKeyName, "SafeTransactions" , REGDB_NUMBER ,"0" , -1);
??RegDBSetKeyValueEx ( szKeyName, "UID" , REGDB_STRING ,"" , -1);
??RegDBCreateKeyEx ("Software//ODBC//ODBC.INI//我的數據庫
//Engines
","");
??RegDBCreateKeyEx ("Software//ODBC//ODBC.INI//我的數據庫
//Engines//Jet
","");
??szKeyName = "Software//ODBC//ODBC.INI//我的數據庫
//Engines//Jet
";
??RegDBSetKeyValueEx ( szKeyName, "Driver" , REGDB_STRING , WINSYSDIR+"/odbcjt32.DLL" , -1);
??RegDBSetKeyValueEx ( szKeyName, "ImplicitCommitSync" , REGDB_STRING , "" , -1);
??RegDBSetKeyValueEx ( szKeyName, "Threads" , REGDB_NUMBER , "3" , -1);
??RegDBSetKeyValueEx ( szKeyName, "UserCommitSync" , REGDB_STRING , "Yes" , -1);
?end;
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
