VB 中如何去创建一个事务

Question

小弟在学VB,请高手们指点一下,如何去创建一个事务.最好写一个例子给我看看.谢谢了!!!!!!

Answer 1

Con.BeginTrans '開始
Con.CommitTrans '提交
Con.RollbackTrans '回滾

Answer 2

dim connTest as new adodb.connection on error goto errMsg
if conntest.state =1 then conntest.close
conntest.open sql    ' sql 是连接数据库的语句
conntest.begintrans  ' 事务开始
......
conntest.CommitTrans ' 提交事务
'出错时事务回滚
errMsg:
 conntest.rollbackTrans