使用 SQL 更新查询时出现数据类型不匹配错误

Question

I am using SQL update query in VBA and I am getting the datatype mismatch error. I know that error is basically because of the column spare part. The spare part column contains numeric and alphanumeric values.

Public Function UpdateDistinctColumnFRNumberBasis()

    StrInvoiceNumber = "109839-01"
    FRSparepartNumber = "FT7119907459"
    MergedInvoiceFile  = "/test.xlsx"
    
    
    Dim objConn As Object
    Dim objRecordSet As Object
    
    Set objConn = CreateObject("ADODB.Connection")
    Set objRecCmd = CreateObject("ADODB.Command")
    Set objRecCmd_Update = CreateObject("ADODB.Command")
    
    objConn.Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
             MergedInvoiceFile & ";Extended Properties=""Excel 8.0;""")
    
    strSQL =  " Update [Tabelle1$] SET [Status] = 'Include' Where " & _
    "([RECHNR] ='" & StrInvoiceNumber & "' AND [Sparepart] = " & FRSparepartNumber & ")"
    
    objConn.Execute strSQL
    
    objConn.Close

End Function

Answer 1

As commented, the partnumber is text, thus it must be quoted in the SQL:

    FRSparepartNumber = "FT7119907459"

    ' snip
    
   strSQL =  "Update [Tabelle1$] SET [Status] = 'Include' Where " & _
   "([RECHNR] = '" & StrInvoiceNumber & "' AND " & _
   "[Sparepart] = '" & FRSparepartNumber & "')"