自动注册ODBC数据源,还需要选择一下数据源当中的数据库名称?
ODBC数据源注册完毕后,DNS都已存在,唯一不足的是配置的时候还需要选择数据库名称。如何不需要配置?
integer rc
string dirname,datab,dllname,dbeng
ulong ul_size
ulong ll_buffer = 25
//取得当前路径
ul_size = 100
gs_path = space(ul_size)
GetCurrentDirectoryA(ul_size,gs_path)
datab="c:\lhc.mdb"
dllname="C:\WINNT\System32\ODBCJT32.DLL"
//取得INI文件中“start”小节 “first”的值
rc=profileint("hc.ini","start","first",1)
//rc=1则是初次运行该系统,进行注册
if rc=1 then
// run("regsvr32 d:\lhc\curtmenu.ocx /s")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\odbc data sources","lhc",regstring!,"Microsoft Access Driver (*.mdb)")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\lhc","dbq",regstring!,datab)//"lhc.db")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\lhc","Driver",regstring!,dllname)//"DBODBC7.DLL")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\lhc","FIL",regstring!,"MS Access;")
registryset("HKEY_CURRENT_USER\software\odbc\odbc.ini\lhc","UID",regstring!,"")
/*设置INI文件中“start”小节的“first=0”,避免下次运行时再次注册数据源*/
setprofilestring("hc.ini","start","first","0")
messagebox("","注册完毕")
end if