把你的代码贴出来可能是事务处理不完整 On Error GoTo err1
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "...."
cn.BeginTrans
rs.Open "update..", cn
rs.Open "update...", cn
cn.CommitTrans
err1:
cn.RollbackTrans
MsgBox err.Description
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "...."
cn.BeginTrans
rs.Open "update..", cn
rs.Open "update...", cn
cn.CommitTrans
err1:
cn.RollbackTrans
MsgBox err.Description
只能是一个表一个表的更新数据。我用的update语句类似下面的:
sql="update 表A set...where...
conn.execute sql
sql="update 表B set...where...
conn.execute sql
按上面的方法分别更新,也是放在同样的事务处理里面,就可以了,不知道为什么不能用
update方法同时更新两个表。另外我连接数据库用的是默认的用户sa,没有密码的。
sql="update 表A set...where...
sql=sql & vbcrlf & "update 表B set...where...
conn.execute sql