declare getinfo1 procedure for getinfo ;// 定义过程调用
sqlca.autocommit = false
execute getinfo1;//执行过程,这里是不需要其他参数的
if SQLCA.sqlcode = -1 then
messagebox("","不成功"+'~r~n'+SQLCA.SQLErrText)
rollback;
else
messagebox("","成功")
commit;
end if
close getinfo1;// 关闭调用
看看SQLCA.SQLErrText是什么.