在VB中如何使用事务?

Question

dim cn as adodb.connection
'new and open
'开始
cn.begintrans
'提交（提交后即结束）
cn.commitrans
'回滚(回滚即取消，并结束）
cn.rollbacktrans

Answer 1

用ADOD的connection对象的begintrans,committrans,rollbacktrans方法就可以了

Answer 2

来晚了。。
on error goto errhandle
dim cn as new adodb.connection
cn.open ...
'开始
cn.begintrans
'提交
cn.committransexit sub
errhandle:
'回滚
cn.rollbacktrans

Answer 3

我用 如下语句是否可以？
dim cn as adodb.connection
adodb.begintrans
adodb.execute sqlstr   '此句是否自动提交
adodb.committrans
如何控制是否自动提交

Answer 4

如果你用了事务的话,它回执行到adodb.committrans再提交.否则回自动提交

Answer 5

你说的自动提交是什么意思？
在事务中的所有数据库操作都可以被RollBackTrans撤销

Answer 6

建议大家用COM+，这样我们就可以利用它的“自动事务”了。
声明：我还没用过，只是建议而已，出了问题别找我，我不懂的^_^

Answer 7

在对数据库进行操作(如:写)之前
    对连接对象:
          db.begintrans   '通知进行事务开始
   ...
   ...
   ...
          db.execute |"update..."
    在处理完后
          db.committrans   '通知事务完成这时才真正向数据库操作
  如果取消或错误   db.rollbacktrans  '取消操作
  事务可以嵌套

Answer 8

我的代码如下：
db.begintrans
table1.open "select * from information"
while table1.eof=fals 
db.excute "insert into information1 values....."
wend
db.committrans
出现如下错误
Transaction cannot have multiple recordsets with this cursortype
change then cursortype
请问如何改正

Answer 9

是不是ADO
BeginTrans、CommitTrans 和 RollbackTrans 方法
      这些事务方法按如下方式管理 Connection 对象中的事务进程： BeginTrans - 开始新事务。
CommitTrans - 保存任何更改并结束当前事务。它也可能启动新事务。
RollbackTrans - 取消当前事务中所作的任何更改并结束事务。它也可能启动新事务。 
语法level = object.BeginTrans()object.BeginTransobject.CommitTransobject.RollbackTrans

Answer 10

to  wangyuanbin_2000() 
好像没什么错呀，我这里就运行成功的
代码如下
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\jim yang\study\problem\vb\trans\test.mdb;Persist Security Info=False"cnn.Open
cnn.BeginTrans
rst.Open "select * from infor", cnn
While Not rst.EOF
    cnn.Execute "insert into infor1 values('" & rst("id") & "','" & rst("name") & "')"
    rst.MoveNext
Wend
cnn.CommitTrans
cnn.Close
End Sub