VB中怎么进行事物处理！

[lindqp]

请给段代码，谢谢！

[rushing]

是消息处理吧？

Private sub form_click()

msgbox "click"

end sub

[cxy_ll]

是说ADO吗？
Dim Cnn As New ADODB.Connection
'Init The Cnn Object
.
.
.
Cnn.BeginTran'开始事务处理
.
.
.
cnn.Commit( or RollBack)’提交或回滚事物
可以参考以下帖子：
http://www.csdn.net/expert/topic/247/247887.shtm

[lindqp]

不是啊
我要更新多个表的数据，如果出错，则要ROLLBACK

[nikychen]

不过vb中是单事务处理，使用中注意回滚问题

[T2]

不管是几个表的更新操作,只要放入一个事务中都可进行提交和回滚.

[vbboygirl]

cn.BeginTrans
操作1
操作2
...

成功 cn.CommitTrans

失败 cn.RollbackTrans

[hx]

听不明白。。。。。？？？？

[lindqp]

哦
我试试

[ilfsm]

private sub subname()
on error goto H_Err
cn.begintrans
.
.
.
.
(各类添加、更新、删除操作)
cn.committrans
exit sub
H_Err:
cn.rollbacktrans
msgbox err.description
end sub

[Ranma_True]

private sub DataDo()
on error goto errorhandler
'其他代码
......
TransStart:
PubConnect.BeginTrans '开始新事务
On Error GoTo DoTransError
更新表1
更新表2
更新表3
........
PubConnect.CommitTrans '保存事务中的操作
On Error GoTo errorhandler

ExitProc:
Exit Sub
DoTransError:
PubConnect.RollbackTrans
Dim tstrTmp As String
tstrTmp = Err.Description & vbCrLf & vbCrLf & "数据读写错误,请重试，取消放弃存储"
If MsgBox(tstrTmp, vbRetryCancel Or vbCritical) = vbRetry Then
Resume TransStart:
Else
' XtErrMsg = 1
Resume ExitProc
End If


errorhandler:

[lindqp]

strsql = "update libinfo set libnum=libnum-1 where libnum>0 and bookid='" & sid.Text & "'"
sql = "insert into lendbook(userid,bookid,lendtime) values ('" & _
sid.Text & "','" & bid.Text & "',#" & Date & "#)"
On Error GoTo err
conn.BeginTrans
conn.Execute strsql
conn.Execute sql
conn.CommitTrans
ListGrid2
Exit Sub
err:
conn.RollbackTrans
MsgBox "借书失败！", vbOKOnly, "警告！"
请问我这里是那里错了，请指教！

[晒屁屁]

ListGrid2????没事件或属性吗

[lindqp]

问题解决了，谢谢
现在给分！

[sftime]

没懂！

[cxy_ll]

lindqp:
不管你更新多少表，把语句放到cn.BeginTrans和cn.CommitTrans中间就行了！
再不成看看MSDN,ADO主题一切搞定！