运行程序时出错,该怎么处理

运行程序时出错
运行时弹出这个database transaction information not available call settrans or settransobject function
怎么解决啊？open里写的这个
dw_1.SetTransObject(SQLCA)
dw_1.retrieve()
dw_2.SetTransObject(SQLCA)
dw_2.retrieve()
dw_1.sharedata(dw_2)

------解决方案--------------------
// Profile a
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "ww"
SQLCA.ServerName = "127.0.0.1"
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""
 connect;


要先连接啊！
------解决方案--------------------
是数据库连接问题
------解决方案--------------------
那连接成功了吗?
------解决方案--------------------
...
connect;
if sqlca.sqlcode <> 0 then 
mesagebox('','连接失败')
halt;
end if