为什么会出现 commit transaction请求没有对应的begin transaction这样的问题
代码如下:
if dw_1.update()=1 then //更新实收表
dw_1.settransobject(sqlca)
select userid,name,useraddr,year,usemonth,operid into :lluserid,:lname,:luseraddr,
:lyear,:lusemonth,:loperid from table_b
commit using sqlca;
lopertime=date(getdate())
select No into:lno from table_c where UserID=:luserid
commit using sqlca;
insert into table_a(id,userid,name,useraddr,year,usemonth,computer,station)
values(x,1,:lname,:luseraddr,:lyear,:lusemonth,xxxxx,xxxxxx)
commit using sqlca;
IF SQLCA.SQLCode = -1 THEN
MessageBox("数据库错误", SQLCA.SQLErrText)
return 1
END IF
commit using sqlca;
messagebox( '提示', '保存成功 ')
return 0
else
rollback using sqlca;
messagebox( '提示', '保存失败 ')
end if
return 1
为什么运行时也执行就是提示:commit transaction 请求没有对应的begin transaction