Question

在VB中执行了一句update语句，需要加什么语句才可以知道是否执行成功？

Answer 1

RS.UpDate
RS.Close
MsgBox "祝贺你！数据修改(添加)成功！",64,"操作完成！" '对话框中的提示内容和标题可以修改为你喜欢的
这种对话框仅仅提示程序是否执行到这里了，也就是，UpDate执行成功了。

Answer 2

用事务，
on error goto 1
connection.begintrans
connection.execute "update 。。。"

connection.commit '这一句执行成功，意味着update 成功.

:1

connection.rollback

追问

cnnCeDBll.Execute ("update t_TG_CW_CWInformation set FState=0,FCancellation=0 我的代码是这样的，可以加吗？

Dim cnnCeDBll As New adodb.Connection
cnnCeDBll.Execute ("update t_TG_CW_CWInformation set FState=0,FCancellation=0 where finterid='" + Ledger501.Cell(i, 14).Text + "'")
cnnCeDBll.Close
这么定义的应该怎么加啊？

追答

Dim cnnCeDBll As New adodb.Connection
cnncedbll.open ..... ‘这个代码有吧？先打开数据库
on error goto rollback
with cnnCeDBll
.begintransaction
.Execute ("update t_TG_CW_CWInformation set FState=0,FCancellation=0 where finterid='" + Ledger501.Cell(i, 14).Text + "'")
.commit
cnnCeDBll.Close
:rollback
cnnCeDBll.rollback

Answer 3

update不成功的话会出异常，不会走下去