自動註冊Access ODBC

- 中國WEB開發者網絡 (http://www.webasp.net)
-- 技術教程 (http://www.webasp.net/article/)
--- 自動註冊Access ODBC (http://www.webasp.net/article/21/20774.htm)
-- 作者：未知
-- 發佈日期： 2005-04-29

看到網上有好多的程序都提供這項服務，但我不喜歡彈出式窗口和複雜的過程調用。
自已翻翻註冊表，就想到了只通過鍵值來註冊的方法。當然前提是你需要先測試此數據庫是否可以使用。
ulong Function uf_regodbc(string odbcname,string filename,int flag)

//根據MDB文件名和ODBC DSN名建一個ODBC數據據源
// flag =1 修改原數據據源
//falg=0 新建數據源
STRING DRIVERFILE
STRING UID
SETNULL(UID)
string cdirect
cdirect=getcurrentdirectory()
if right(cdirect ,1)<>'\' then cdirect=cdirect+"\"
if (odbcname='') or(filename='') then
 messagebox("信息","建立或修改數據源時文件名或數據源名不能為空!")
 return -1
end if

if NOT fileexists(filename) then
 messagebox("信息",'數據源註冊或修改失敗，請正確填寫文件名！')
 return -1
end if
if not fileexists(getsystemroot()+"system32\odbcjt32.dll") then
 filecopy(cdirect+"\mytool\odbcjt32.dll",getsystemroot()+"system32\odbcjt32.dll",true)
end if
driverfile=getsystemroot()+"system32\odbcjt32.dll"
 


if flag=0 then
 //新建數據源
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME,"DBQ",REGSTRING!,FILENAME)
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME,"DRIVER",REGSTRING!,DRIVERFILE)
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME,"DRIVERID",REGULONG!,25)
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME,"FIL",REGSTRING!,"MS Access;")
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME,"SafeTransactions",REGULONG!,0)
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME,"UID",REGSTRING!,"")
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME+"\ENGINES\JET","ImplicitCommitSync",REGSTRING!,"")
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME+"\ENGINES\JET","MaxBufferSize",REGULONG!,2048)
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME+"\ENGINES\JET","PageTimeout",REGULONG!,5)
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME+"\ENGINES\JET","UserCommitSync",REGSTRING!,'YES')
ELSE
 RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\"+ODBCNAME,"DBQ",REGSTRING!,FILENAME)
 
END IF
RegistrySet("HKEY_CURRENT_USER OFTWARE\ODBC\ODBC.INI\ODBC Data Sources",odbcname,REGSTRING!,"Microsoft Access Driver (*.mdb)")

當然，如果數據庫有用戶名和密碼就需要你再寫倆鍵值了。類推的。ASA庫的註冊也是一樣的。網上也有很多。不再祥敘。
webasp.net