ls_command = "Regsvr32 /s " + "~"" + gs_path + "\dbodbc9.dll" + "~""
if run(ls_command) <> 1 then
Messagebox("提示","注册dbodbc9.dll文件失败,请手动注册")
end if
// Profile asa9 con
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='UID=dba;PWD=sql;driver=Adaptive Server Anywhere 9.0;EngineName=BCENGSVC;Compress=NO;Debug=NO;Integrated=NO;DisableMultiRowFetch=NO;CommLinks=SharedMemory,TCPIP{HOST=192.168.0.1;PORT=6666}'"
阅读(2848) | 评论(0) | 转发(0) |