同时连接两个或两个以上数据库的问题
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=test;UID=dba;PWD=sql'"
connect using sqlca;
if sqlca.sqlcode <> 0 then
Messagebox('信息','连接数据库失败!~r~n失败原因:'+sqlca.sqlerrtext)
end if
sqlca_zlk = create transaction
sqlca_zlk.DBMS = "ODBC"
sqlca_zlk.AutoCommit = False
sqlca_zlk.DBParm = "ConnectString='DSN=test1;UID=dba;PWD=sql'"
connect using sqlca_zlk;
if sqlca_zlk.sqlcode <> 0 then
Messagebox('信息','连接数据库失败!~r~n失败原因:'+sqlca_zlk.sqlerrtext)
end if
//说明:sqlca_zlk已经定义成全局变量了,test、test1数据源都存在也都有关联相应的数据库但通过上面的语句只能连接前面的数据库,求救啊!