面试题：Visual Basic下Access数据库事务处理及异常处理

Question

在Visual Basic项目里，要对Access数据库执行一系列操作，如插入多条记录、更新数据等。要求使用事务处理确保这些操作要么全部成功，要么全部失败。并且在操作过程中加入异常处理，捕获并处理可能出现的数据库相关错误，如连接失败、SQL语法错误等，描述实现思路并给出关键代码示例。

Answer 1

实现思路

1. 数据库连接：使用 ADODB.Connection 对象连接到 Access 数据库。
2. 事务处理：通过 Connection 对象的 BeginTrans、CommitTrans 和 RollbackTrans 方法来实现事务的开始、提交和回滚。
3. 异常处理：使用 On Error 语句捕获异常，并在捕获到异常时回滚事务。

关键代码示例

Option Explicit

Sub ExecuteDatabaseOperations()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    
   '创建数据库连接对象
    Set conn = New ADODB.Connection
   '设置连接字符串，假设数据库文件为 test.mdb
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
    
    On Error GoTo ErrorHandler
   '打开数据库连接
    conn.Open
    
   '开始事务
    conn.BeginTrans
    
   '插入多条记录示例
    strSQL = "INSERT INTO YourTableName (Column1, Column2) VALUES ('Value1', 'Value2')"
    conn.Execute strSQL
    
    strSQL = "INSERT INTO YourTableName (Column1, Column2) VALUES ('Value3', 'Value4')"
    conn.Execute strSQL
    
   '更新数据示例
    strSQL = "UPDATE YourTableName SET Column1 = 'NewValue' WHERE SomeCondition"
    conn.Execute strSQL
    
   '提交事务
    conn.CommitTrans
    
    On Error GoTo 0
   '关闭数据库连接
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    Exit Sub

ErrorHandler:
   '捕获到异常，回滚事务
    If Not conn Is Nothing Then
        conn.RollbackTrans
        conn.Close
    End If
    MsgBox "数据库操作出现错误: " & Err.Description
    Set rs = Nothing
    Set conn = Nothing
End Sub

在上述代码中：

• ADODB.Connection 和 ADODB.Recordset 是操作 Access 数据库常用的对象。
• ConnectionString 根据实际的数据库路径和版本可能需要调整，对于 Access 2007 及以上版本，Provider 可能是 Microsoft.ACE.OLEDB.12.0。
• On Error GoTo ErrorHandler 用于捕获异常，当捕获到异常时，会跳转到 ErrorHandler 标签处执行代码，回滚事务并给出错误提示。