pb9采用oleeb方式连接asa数据库

需要pb9动态库和asa8动态库，其他类似

pb9动态库：pbvm90.dll,libjcc.dll, pbdwe90.dll, pbdwr90.dll, pbdwr90.pbd, pbjag90.dll, pbjvm90.dll, pbole90.dll, pbrtc90.dll, pbtra90.dll

asa8动态库：dblgen8.dll,dbodbc8.dll,dboledb8.dll,dboledba8.dll,dbserv8.dll,dbcon8.dll,dbctrs8.dll,dbeng8.exe

连接 asa8 代码如下：

String ls_dbparm

String ls_command

gs_appDirectory = GetCurrentDirectory ( )

ls_dbparm = "PROVIDER='ASAProv.80',"

ls_dbparm += "PROVIDERSTRING='database="+gs_appDirectory+"\test\billdb.db',DATASOURCE='(local)'"

SQLCA.DBMS = "OLE DB"

SQLCA.LogPass = "sql"

SQLCA.LogID = "dba"

SQLCA.AutoCommit = False

SQLCA.DBParm = ls_dbparm

ls_command = "Regsvr32 /s " + "~"" + gs_appDirectory + "\dboledb8.dll" + "~""

If Run(ls_command) <> 1 Then

MessageBox("提示","注册dboledb8.dll文件失败,请手动注册")

End If

ls_command = "Regsvr32 /s " + "~"" + gs_appDirectory + "\dboledba8.dll" + "~""

If Run(ls_command) <> 1 Then

MessageBox("提示","注册dboledb8.dll文件失败,请手动注册")

End If

Connect ;

20250512