pb 直连sql anywhere数据库

pb 直连sql anywhere数据库 2014-05-09 10:05:44

分类： Sybase

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}'"