function SetupRegistry()
?NUMBER nResult;
?STRING szPath, szKeyName;
?begin
??RegDBSetDefaultRoot ( HKEY_CURRENT_USER );
??szKeyName = "Software//ODBC//ODBC.INI//我的數(shù)據(jù)庫";
??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, "我的數(shù)據(jù)庫" , REGDB_STRING ,"Microsoft Access Driver (*.mdb)" , -1);
??szPath = TARGETDIR^"student.mdb";
??szKeyName = "Software//ODBC//ODBC.INI//我的數(shù)據(jù)庫";
??RegDBSetKeyValueEx ( szKeyName, "DBQ" , REGDB_STRING , szPath , -1);
??RegDBSetKeyValueEx ( szKeyName, "Description" , REGDB_STRING , "用于VC++的數(shù)據(jù)源" , -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//我的數(shù)據(jù)庫
//Engines
","");
??RegDBCreateKeyEx ("Software//ODBC//ODBC.INI//我的數(shù)據(jù)庫
//Engines//Jet
","");
??szKeyName = "Software//ODBC//ODBC.INI//我的數(shù)據(jù)庫
//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;
更多文章、技術(shù)交流、商務合作、聯(lián)系博主
微信掃碼或搜索:z360901061

微信掃一掃加我為好友
QQ號聯(lián)系: 360901061
您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。
【本文對您有幫助就好】元
