通过 ADO 和 SQL 将数据插入其他 xls 工作簿 – 数据类型错误

Question

我正在构建一个非常复杂的用户窗体，它使用 ADO 连接连接到另一个用作数据库的 Excel 工作簿，并通过 SQL 查询检索和插入数据。请注意，在这种情况下，我不能使用 Access。

我已经弄清楚了如何使用 SELECT，但是我无法解决 INSERT 的一个特殊错误。这让我很困扰，我为此付出了很多努力。

首先连接（我使用 JET 检索数据，使用 ACE 保存数据，因为我无法让 JET 工作）：

Public Sub InsertDataToSheet(SQLCmd As String)
Dim cnx As Object
Set cnx = CreateObject("ADODB.Connection")

cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & ThisWorkbook.Path & "\Database.xls'; Extended Properties=Excel 12.0;"
cnx.Execute SQLCmd
cnx.Close
End Sub

然后有一个子例程链接到实际生成查询的提交按钮，因为我只需要保存填写的文本框和组合以避免空值：

Private Sub SaveRecord()

Dim SQL As String
SQL = "INSERT INTO [Report$A2:AM50000] ("

Dim i As Control
For Each i In Me.controls
    If TypeName(i) = "TextBox" Or TypeName(i) = "ComboBox" Then
        If i <> e Then SQL = SQL & i.Name & ","
    End If
Next i
SQL = Mid(SQL, 1, Len(SQL) - 1) & ") VALUES(" ' Remove last space & comma

Dim j As Control
For Each j In Me.controls
    If TypeName(j) = "TextBox" Or TypeName(j) = "ComboBox" Then
        If j <> e Then
            If j = "Unknown" Then MsgBox "Fire"
            Select Case IsNumeric(j)
                Case False
                        SQL = SQL & "'" & j & "'" ' Add single quotes around strings
                Case True
                        SQL = SQL & j
            End Select
            SQL = SQL & ","
        End If
    End If
Next j
SQL = Mid(SQL, 1, Len(SQL) - 1) & ")"   ' Remove last comma
' Connect
InsertDataToSheet (SQL)
End Sub

表单中有两个特定的文本框，它们的工作方式完全相同。通常情况下，用户向他们输入数字，一切都会很好地保存（不要介意“+”按钮）：

但是，有时用户不知道这些值，但不能将它们留空。那时他们应该勾选复选框以将值设置为“未知”：

现在有趣的部分来了——对于 Batch 字段，它保存得很好。但是当我将 Shipment ID 设置为“Unknown”（或任何其他字符串）时，它会引发错误：

注意这些字段不是禁用的，只是锁定了一些外观变化。我也无法找到有关该错误的任何具体细节，但查询似乎存在一些问题：

（它说类似“表达式中的数据类型不兼容”）。生成的查询是这样的：

任何想法出了什么问题？我非常希望保留已知的功能并解决错误，而不是重新设计它，因为它已经花费了一些精力并且字段不能保持空白。

Answer 1

从未在 xls 工作簿中使用过 sql，但我在使用 SQL Server 时已经遇到过这个问题。您的查询没有“错误”，问题是您要插入的表的字段上接受的数据类型。尝试将该字段转换为使用文本值而不是数字，它应该可以工作。