看到網(wǎng)上有好多的程序都提供這項(xiàng)服務(wù)，但我不喜歡彈出式窗口和復(fù)雜的過程調(diào)用。
自已翻翻注冊表，就想到了只通過鍵值來注冊的方法。當(dāng)然前提是你需要先測試此數(shù)據(jù)庫是否可以使用。
ulong function uf_regodbc(string odbcname,string filename,int flag)
//根據(jù)mdb文件名和odbc dsn名建一個(gè)odbc數(shù)據(jù)據(jù)源
// flag =1 修改原數(shù)據(jù)據(jù)源
//falg=0 新建數(shù)據(jù)源
string driverfile
string uid
setnull(uid)
string cdirect
cdirect=getcurrentdirectory()
if right(cdirect ,1)<>'/' then cdirect=cdirect+"/"
if (odbcname='') or(filename='') then
messagebox("信息","建立或修改數(shù)據(jù)源時(shí)文件名或數(shù)據(jù)源名不能為空!")
return -1
end if
if not fileexists(filename) then
messagebox("信息",'數(shù)據(jù)源注冊或修改失敗，請正確填寫文件名！')
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
//新建數(shù)據(jù)源
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)")
當(dāng)然，如果數(shù)據(jù)庫有用戶名和密碼就需要你再寫倆鍵值了。類推的。asa庫的注冊也是一樣的。網(wǎng)上也有很多。不再祥敘。
