如何让PB与dbf文件连接（要求一定的通用性)

microhard 2003-10-03 04:49:38

...全文

76 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

Awang_126 2003-10-05

打赏
举报

本人写了个根据所选的DBF文件自动注册ODBC数据源的程序,以下是程序的一部分,希望对你有所帮助:

if ls_fileend="dbf" then
//当选择的是DBF文件时
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini",ls_filename,regstring!,"")
registryset"HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename,"",regstring!,"")
//创建连接到数据源所需要的参数
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename,"DefaultDir",regstring!,ls_filedir)
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename,"Driver",regstring!,"C:\WINNT\System32\odbcjt32.dll")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename,"DriverId",ReguLong!,533)
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename,"FIL",regstring!,"dBase 5.0")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename,"SafeTransactions",ReguLong!,0)
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename,"UID",regstring!,"")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines","",regstring!,"")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","",regstring!,"")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","CollatingSequence",regstring!,"ASCII")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","Deleted",RegBinary!,"1")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","ImplicitCommitSync",regstring!,"")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","PageTimeout",ReguLong!,600)
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","Statistics",RegBinary!,"0")
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","Threads",ReguLong!,3)
registryset("HKEY_LOCAL_MACHINE\software\odbc\odbc.ini\"+ls_filename+"\Engines\Xbase","UserCommitSync",regstring!,"Yes")
end if

yl_yz 2003-10-03