access数据库在98系统的注册
kqfh 2003-08-20 02:13:04 本人现在编写的是2000系统下的access数据库注册,如下:
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name,"DBQ",RegString!,ls_path)
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name,"Driver",RegString!,"C:\WINNT\System32\odbcjt32.dll")
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name,"DriverID",RegULong!,25)
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name,"FIL",RegString!,"MS Access;")
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name,"SafeTransactions",RegULong!,0)
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name,"PWD",RegString!,"")
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name,"UID",RegString!,"")
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name+"\Engines\Jet","ImplicitCommitSync",RegString!,"")
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name+"\Engines\Jet","MaxBufferSize",RegULong!,2048)
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name+"\Engines\Jet","PageTimeout",RegULong!,5)
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name+"\Engines\Jet","Threads",RegULong!,3)
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
li_return=registryset("HKEY_CURRENT_USER\Software\ODBC\ODBC.INI\"+ls_name+"\Engines\Jet","UserCommitSync",RegString!,"Yes")
if li_return<>1 then
messagebox('提示信息','无法修改相关注册表信息!')
return
end if
现在客户要求98系统的注册,找不到附近有98系统,麻烦好心人指点一下98系统的注册表如何注册access数据库的ODBC连接。十分感谢。