Excel连接SQL Server插入数据报错：默认参数使用无效

错误核心原因 #

这个报错的本质是：你向CONSUR表插入数据时，遗漏了某个/某些「不允许为NULL且未设置默认值」的必填字段——测试表能正常插入，说明测试表的必填字段要么你都传了值，要么有默认值兜底，而CONSUR表存在必填且无默认值的字段被你忽略了。

排查&解决步骤 #

• 核对CONSUR表的字段定义
  打开SQL Server Management Studio（SSMS）查看CONSUR表设计：

  1. 找出所有「允许空」为「否」且「默认值或绑定」为空的字段
  2. 确保你的插入语句里，这些字段都被包含并赋值
  3. 注意：如果表有自增主键（IDENTITY字段），不需要手动插入值，除非你先执行SET IDENTITY_INSERT CONSUR ON

• 修改VBA插入语句为显式字段格式
  别依赖默认字段顺序插入，显式指定字段能避免遗漏。比如原来的代码可能是：

  sql = "INSERT INTO CONSUR VALUES ('值1', '值2')"
  

  改成明确指定字段的格式：

  sql = "INSERT INTO CONSUR (字段1, 字段2, 必填字段X) VALUES ('值1', '值2', '必填值X')"
  

• 调试验证生成的SQL语句
  在VBA里把生成的SQL打印出来，直接复制到SSMS执行，能精准定位问题字段：

  Debug.Print sql ' 打开VBA立即窗口查看完整SQL语句
  

修正后的VBA代码示例 #

Sub InsertToCONSUR()
    Dim conn As Object
    Dim sql As String
    Set conn = CreateObject("ADODB.Connection")
    
    ' 替换为你的实际连接配置
    conn.ConnectionString = "Driver={ODBC Driver 17 for SQL Server};Server=你的服务器名;Database=你的库名;Uid=用户名;Pwd=密码;"
    conn.Open
    
    ' 显式指定所有必填字段并赋值
    sql = "INSERT INTO CONSUR (Name, Age, RegisterDate) VALUES ('张三', 30, '2024-05-20')"
    
    On Error GoTo ErrHandler
    conn.Execute sql
    MsgBox "插入成功"
    conn.Close
    Set conn = Nothing
    Exit Sub
    
ErrHandler:
    MsgBox "错误：" & Err.Description
    conn.Close
    Set conn = Nothing
End Sub

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