如何在VBA中捕获ADODB执行SQL插入失败时的错误并抛出提示

核心问题说明 #

• 原代码无错误捕获机制，运行时错误会被静默忽略
• 原SQL语句存在语法错误：字段列表末尾opt2,多了多余逗号，本身就会导致执行失败
• 缺少数据库连接初始化逻辑，未给Con对象配置连接字符串并打开连接
• 直接拼接SQL的写法，遇到字段值含单引号、空值时很容易触发SQL语法错误

修改后代码 #

Dim RS As Object
Dim Con As Object
Dim sql As String
Dim recordsAffected As Long

' 初始化连接对象
Set Con = CreateObject("ADODB.connection")
' 【注意】此处需要替换为你实际的数据库连接字符串
Con.ConnectionString = "你的实际数据库连接串"
Con.Open

' 启用错误捕获
On Error GoTo ErrHandler

' 修正SQL语法：去掉字段末尾多余逗号
sql = "insert into wfile(testname,optz,subject,type,direction,question,opt1,opt2) values('" & testname & "','5','" & subject & "','" & type1 & "','" & direction1 & "','" & question & "','" & opt1 & "','" & opt2 & "')"

' 执行插入，获取影响行数
Con.Execute sql, recordsAffected

' 判断插入结果
If recordsAffected = 1 Then
    MsgBox "数据插入成功", vbInformation
Else
    MsgBox "数据插入失败，无记录被写入数据库", vbExclamation
End If

' 正常流程清理资源
Cleanup:
    If Not RS Is Nothing Then Set RS = Nothing
    If Con.State = 1 Then Con.Close
    Set Con = Nothing
    Exit Sub

' 错误处理逻辑
ErrHandler:
    MsgBox "数据插入失败，错误号：" & Err.Number & vbCrLf & "错误描述：" & Err.Description, vbCritical
    GoTo Cleanup

额外优化建议 #

• 推荐使用参数化查询替代直接拼接SQL，可自动处理空值、单引号转义问题，同时避免SQL注入风险
• 空值处理：如果字段允许为Null，拼接时如果变量为空要转换为Null关键词，而不是拼接空字符串，否则会触发字段约束错误

内容的提问来源于stack exchange，提问作者Gajendran