VBA SQL字符串運行時錯誤3075

Question

我有一個字符串將數據添加到表中，因此我可以從數據打印報表或標籤。數據由地址組成，並且由於地址中的逗號而導致字符串失敗。這個字符串一直在工作，但是當它有一些奇怪的地址時，我認爲這是造成這種情況的原因。

sqls = "INSERT INTO tInvReportDataWrk(SO,ITEM,QTY,billTO,shipTO,LINEKEY)VALUES('" & 
    SO & "', '" & it & "', '" & qty & "', '" & billTO & "', '" & shipTO & "', '" & lk & "')" 

正試圖這樣看起來與debug.print

INSERT INTO tInvReportDataWrk(SO,ITEM,QTY,billTO,shipTO,LINEKEY) 
VALUES('0000001', 'L-R_4-8R2B-01', '2', 'BAR - ANAHEIM 
BAR BRANCH 
P.O. BOX 00000 
VENDOR ID# VC-00001 
Saint Louis, MO 00008 
', 'ABC ELEMENT WAREHOUSE 
2000 O'TOOL AVE. 
San Jose, CA 95131-1301 
', '000001') 

Answer 1

我不確定地址中的逗號是否是問題。它看起來像我在O'TOOL撇號應該是一個問題。但是，如果它不是Access首次錯誤的原因，那麼在修復第一個錯誤之後它應該會觸發另一個錯誤。

舉一個簡單的例子，下面的代碼觸發錯誤3075,「查詢表達式''O'TOOL'中的語法錯誤（缺少操作符）'）;'。」

Dim strInsert As String 
strInsert = "INSERT INTO tblFoo(text_field) VALUES ('O'TOOL');" 
CurrentDb.Execute strInsert, dbFailOnError 

改變INSERT語句任一允許沒有錯誤執行該語句。

strInsert = "INSERT INTO tblFoo(text_field) VALUES ('O''TOOL');" 
strInsert = "INSERT INTO tblFoo(text_field) VALUES (""O'TOOL"");" 

您可以修改您的代碼以使用其中一種方法。然而，考慮一個parameter query或DAO.Recordset.AddNew方法，然後引號和撇號將不太麻煩。

Answer 2

數據的問題是 「O'TOOL」 由於「（單引號）。嘗試用雙撇號（O''TOOL）替換它，或將地址放在雙引號中

Answer 3

是的，這是撇號。

您可以使用此功能串聯SQL時要避免這種情況和大多數其他的煩惱：建立你的字符串時

' Converts a value of any type to its string representation. 
' The function can be concatenated into an SQL expression as is 
' without any delimiters or leading/trailing white-space. 
' 
' Examples: 
' SQL = "Select * From TableTest Where [Amount]>" & CSql(12.5) & "And [DueDate]<" & CSql(Date) & "" 
' SQL -> Select * From TableTest Where [Amount]> 12.5 And [DueDate]< #2016/01/30 00:00:00# 
' 
' SQL = "Insert Into TableTest ([Street]) Values (" & CSql(" ") & ")" 
' SQL -> Insert Into TableTest ([Street]) Values (Null) 
' 
' Trims text variables for leading/trailing Space and secures single quotes. 
' Replaces zero length strings with Null. 
' Formats date/time variables as safe string expressions. 
' Uses Str to format decimal values to string expressions. 
' Returns Null for values that cannot be expressed with a string expression. 
' 
' 2016-01-30. Gustav Brock, Cactus Data ApS, CPH. 
' 
Public Function CSql(_ 
    ByVal Value As Variant) _ 
    As String 

    Const vbLongLong As Integer = 20 
    Const SqlNull  As String = " Null" 

    Dim Sql    As String 
    Dim LongLong  As Integer 

    #If Win32 Then 
     LongLong = vbLongLong 
    #End If 
    #If Win64 Then 
     LongLong = VBA.vbLongLong 
    #End If 

    Select Case VarType(Value) 
     Case vbEmpty   ' 0 Empty (uninitialized). 
      Sql = SqlNull 
     Case vbNull    ' 1 Null (no valid data). 
      Sql = SqlNull 
     Case vbInteger   ' 2 Integer. 
      Sql = Str(Value) 
     Case vbLong    ' 3 Long integer. 
      Sql = Str(Value) 
     Case vbSingle   ' 4 Single-precision floating-point number. 
      Sql = Str(Value) 
     Case vbDouble   ' 5 Double-precision floating-point number. 
      Sql = Str(Value) 
     Case vbCurrency   ' 6 Currency. 
      Sql = Str(Value) 
     Case vbDate    ' 7 Date. 
      Sql = Format(Value, " \#yyyy\/mm\/dd hh\:nn\:ss\#") 
     Case vbString   ' 8 String. 
      Sql = Replace(Trim(Value), "'", "''") 
      If Sql = "" Then 
       Sql = SqlNull 
      Else 
       Sql = " '" & Sql & "'" 
      End If 
     Case vbObject   ' 9 Object. 
      Sql = SqlNull 
     Case vbError   ' 10 Error. 
      Sql = SqlNull 
     Case vbBoolean   ' 11 Boolean. 
      Sql = Str(Abs(Value)) 
     Case vbVariant   ' 12 Variant (used only with arrays of variants). 
      Sql = SqlNull 
     Case vbDataObject  ' 13 A data access object. 
      Sql = SqlNull 
     Case vbDecimal   ' 14 Decimal. 
      Sql = Str(Value) 
     Case vbByte    ' 17 Byte. 
      Sql = Str(Value) 
     Case LongLong   ' 20 LongLong integer (Valid on 64-bit platforms only). 
      Sql = Str(Value) 
     Case vbUserDefinedType ' 36 Variants that contain user-defined types. 
      Sql = SqlNull 
     Case vbArray   ' 8192 Array. 
      Sql = SqlNull 
     Case Else    '  Should not happen. 
      Sql = SqlNull 
    End Select 

    CSql = Sql & " " 

End Function