data_b.dbms = 'MSS MSS Microsoft SQL Server 6.x'
data_b.Database = 'db_name'
data_b.LogId = 'log_in'
data_b.ServerName = 'server_name'
connect using data_b;
if data_b.sqlcode<>0 the
messagebox("",".......")
retun
end if
//另一个数据库采用默认的事务对象SQLCA
sqlca.dbms = 'MSS MSS Microsoft SQL Server 6.x'
sqlca.Database = 'db_name'
sqlca.LogId = 'log_in'
sqlca.ServerName = 'server_name'
connect using sqlca;
if sqlca.sqlcode<>0 the
messagebox("",".......")
retun
end if
另外在结束程序时,别忘了在CLOSE事件中
DISCONNECT USING SQLCA;
DISCONNECT USING data_b;