在VBA中运行SQL字符串问题：Access中INSERT语句未执行

首先说你当前代码的核心问题：你只是把SQL字符串生成出来并打印到调试窗口，但根本没让Access去执行这条语句，所以自然不会往Employees表里添加任何记录。

一、先让现有代码跑起来 #

要执行INSERT语句，你需要调用Access的执行方法，比如DoCmd.RunSQL或者CurrentDb.Execute，修改后的代码如下：

Public Sub EmployeesTable_Click()
    Dim sql As String
    sql = "INSERT INTO Employees " & _
          "VALUES (1, 'James', 'Dan', 'n6 indro Rd', 0943747, 30.24);"
    Debug.Print sql
    ' 执行SQL语句，会弹出确认提示
    DoCmd.RunSQL sql
    ' 如果你不想看到确认提示，可以用下面这句，出错时还会抛出错误方便调试
    ' CurrentDb.Execute sql, dbFailOnError
End Sub

简单说下两种方法的区别：

• DoCmd.RunSQL默认会弹出“你确定要追加记录吗”的对话框，要是想关掉这个提示，可以在执行前加DoCmd.SetWarnings False，执行完再设回True。
• CurrentDb.Execute更适合后台执行，不会弹提示，加上dbFailOnError参数的话，一旦SQL执行出错（比如字段不匹配、主键重复），会直接抛出错误，帮你快速定位问题。

二、用表单输入构建SQL完全可行，但要注意安全和格式 #

当然可以通过表单输入来构建SQL添加记录，但直接拼接表单值有两个坑要避开：一是SQL注入风险（虽然Access里风险没那么大，但依然要警惕），二是数据类型不匹配导致的语法错误（比如字符串没加单引号、日期格式不对）。

给你两种靠谱的实现方式：

方式1：参数化查询（最安全推荐） #

用参数化查询可以彻底避免SQL注入，还不用手动处理各种数据类型的引号/格式问题，代码示例：

Public Sub AddEmployeeFromForm()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim sql As String
    
    ' 明确指定字段名，避免表结构变动出问题，用问号当参数占位符
    sql = "INSERT INTO Employees (ID, FirstName, LastName, Address, Phone, Salary) " & _
          "VALUES (?, ?, ?, ?, ?, ?);"
    
    Set db = CurrentDb
    Set qdf = db.CreateQueryDef("", sql)
    
    ' 把表单控件的值绑定到参数（这里假设你的表单控件叫txtID、txtFirstName等）
    qdf.Parameters(0) = Me.txtID.Value
    qdf.Parameters(1) = Me.txtFirstName.Value
    qdf.Parameters(2) = Me.txtLastName.Value
    qdf.Parameters(3) = Me.txtAddress.Value
    qdf.Parameters(4) = Me.txtPhone.Value
    qdf.Parameters(5) = Me.txtSalary.Value
    
    ' 执行查询
    qdf.Execute dbFailOnError
    
    ' 释放对象
    Set qdf = Nothing
    Set db = Nothing
    
    MsgBox "员工记录添加成功！"
End Sub

方式2：手动拼接SQL（需注意格式处理） #

如果你习惯手动拼接，一定要处理好不同数据类型的格式：

• 字符串：要用单引号包裹，要是字符串里本身有单引号（比如名字是O'Neil），要替换成两个单引号（变成O''Neil）
• 数字：直接写，不用加引号
• 日期：要用#包裹（比如#2024-05-20#）

示例代码：

Public Sub AddEmployeeFromForm_Concatenate()
    Dim sql As String
    Dim strFirstName As String
    Dim strLastName As String
    Dim strAddress As String
    Dim lngPhone As Long
    Dim curSalary As Currency
    Dim intID As Integer
    
    ' 获取表单值并处理特殊字符
    intID = Me.txtID.Value
    strFirstName = Replace(Me.txtFirstName.Value, "'", "''") ' 替换单引号
    strLastName = Replace(Me.txtLastName.Value, "'", "''")
    strAddress = Replace(Me.txtAddress.Value, "'", "''")
    lngPhone = Me.txtPhone.Value
    curSalary = Me.txtSalary.Value
    
    ' 拼接SQL字符串
    sql = "INSERT INTO Employees VALUES (" & _
          intID & ", '" & strFirstName & "', '" & strLastName & "', '" & strAddress & "', " & _
          lngPhone & ", " & curSalary & ");"
    
    Debug.Print sql
    CurrentDb.Execute sql, dbFailOnError
    MsgBox "员工记录添加成功！"
End Sub

最后提个小建议：最好在INSERT INTO后面明确写出字段名，就像参数化查询里那样，这样就算以后表的字段顺序变了，你的SQL也不会出错，更稳健。

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