例2.新建数务对象连接数据库
TransAction SQLCB
SQLCB=CREATE TRANSACTION
if not f_GetConnection(sqlcb,"kq_data") then
messageBox('提示','服务器连接失败!')
return
end if
TransAction SQLCB
SQLCB=CREATE TRANSACTION
if not f_GetConnection(sqlcb,"kq_data") then
messageBox('提示','服务器连接失败!')
return
end if