自動註冊Access ODBC

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/software/odbc/odbc.ini/"+odb**ame,"dbq",regstring!,filename)

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame,"driver",regstring!,driverfile)

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame,"driverid",regulong!,25)

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame,"fil",regstring!,"ms access;")

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame,"safetransactions",regulong!,0)

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame,"uid",regstring!,"")

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame+"/engines/jet","implicit***mitsync",regstring!,"")

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame+"/engines/jet","maxbuffersize",regulong!,2048)

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame+"/engines/jet","pagetimeout",regulong!,5)

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame+"/engines/jet","user***mitsync",regstring!,'yes')

else

registryset("hkey_current_user/software/odbc/odbc.ini/"+odb**ame,"dbq",regstring!,filename)

end if

registryset("hkey_current_user/software/odbc/odbc.ini/odbc data sources",odb**ame,regstring!,"microsoft access driver (*.mdb)")

當然，如果資料庫有使用者名稱和密碼就需要你再寫倆鍵值了。類推的。asa庫的註冊也是一樣的。網上也有很多。不再祥敘。