保存

最新推荐文章于 2021-12-27 20:33:09 发布

转载最新推荐文章于 2021-12-27 20:33:09 发布 · 101 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/figo--fiona/p/4707003.html

文章标签：

#数据库

IF dw_1.Update() > 0 THEN
dw_1.ResetUpdate() //将窗口的属性设置为初始化
COMMIT USING sqlca;
IF sqlca.SQLCode = 0 THEN
MessageBox('提示', PARENT.Title + '保存成功!')
ELSE
ROLLBACK;
MessageBox('提示', PARENT.Title +'保存失败!')
END IF
ELSE
ROLLBACK;
MessageBox('提示',PARENT.Title +'保存失败!')
END IF

//sql语句写在pb程序时，但是最好还是多写成存储过程和视图形式进行检索，方便以后程序修改不用都要去改程序

每个sql语句
if SQLca.SQLcode <> 0 then
goto error_process
else
end if
commit
error_process：
数据库报错回滚函数

转载于:https://www.cnblogs.com/figo--fiona/p/4707003.html