Vb Ado实现带事务回滚的sql语句执行

最新推荐文章于 2023-10-07 19:01:57 发布

原创最新推荐文章于 2023-10-07 19:01:57 发布 · 3.3k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#vba #ado #sql #事务回滚

SQL 同时被 2 个专栏收录

2 篇文章

订阅专栏

VBA

1 篇文章

订阅专栏

本文介绍了一个使用Visual Basic编写的示例程序，演示了如何通过ADODB.Connection对象执行一系列SQL语句，并利用事务处理确保数据一致性。当所有SQL语句成功执行时，事务提交；若执行过程中发生错误，则进行回滚。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'带事务回滚的sql语句执行
Sub test()
Dim cnn As New ADODB.Connection
Dim sqls As New Collection
sqls.Add "sql语句1"
sqls.Add "sql语句2"
'....
cnn.ConnectionString = "" '以实际情况填写
cnn.Open
cnn.BeginTrans '开始事务
On Error GoTo err
For i = 0 To sqls.Count - 1
cnn.Execute strs(i)
Next
cnn.CommitTrans '提交事务
cnn.Close
Exit Sub
err:
cnn.RollbackTrans '如果错误,回滚
If cnn.State = 1 Then cnn.Close
End Sub