Excel VBA通过ADO连接SQL Server时拆分SQL代码行问题求助

VBA 中使用空格加下划线 _ 作为行续符，续符前必须留至少1个空格，续符后不能跟任何字符（含空格、注释），必须直接换行，你的拆分故障大概率是违反了该规则。

values行正确拆分示例 #

你需要拆分的目标代码行可以按以下方式拆分，保证语法正确：

con.Execute "insert into test1 (firstname, lastname) " & _
            "values ('" & strFirstName & _
            "', '" & strLastName & "')"

你可以根据自己的阅读习惯调整拆分位置，只要保证每一行末尾的续符符合要求、字符串拼接的&和引号配对正确即可。

其他隐藏问题修复建议 #

1. 单引号转义处理：如果strFirstName、strLastName的值包含单引号'（比如姓名O'Neil），会直接触发SQL语法错误，还存在SQL注入风险，建议在赋值后添加转义逻辑：

   strFirstName = Replace(.Cells(intImportRow, 1), "'", "''")
   strLastName = Replace(.Cells(intImportRow, 2), "'", "''")
   

2. 变量定义修正：现有代码中Dim strFirstName, strLastName As String的写法，实际只有strLastName是String类型，strFirstName默认是Variant类型，容易触发隐式类型转换问题，建议修改为：

   Dim strFirstName As String, strLastName As String
   

3. 错误处理分支补充：你的代码开头声明了On Error GoTo errH，但没有对应的errH:错误处理分支，出错后无法捕获具体报错信息，建议补充错误处理逻辑方便定位问题：

   errH:
       MsgBox "出错：" & Err.Description, vbCritical
       If con.State = 1 Then con.Close
       Set con = Nothing
   

4. SQL调试方法：如果还是报错，可以在con.Execute前添加一行代码打印生成的SQL语句，在VBA编辑器的立即窗口查看生成的SQL是否有语法错误：

   Dim sql As String
   sql = "insert into test1 (firstname, lastname) " & _
         "values ('" & strFirstName & "', '" & strLastName & "')"
   Debug.Print sql
   con.Execute sql
   

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