缺少 ' - VBA 中的 SQL 語法問題

Question

我正在嘗試在 VB Access 中運行帶有變量的 SQL 語句。 我收到語法問題錯誤。 我想我在聲明中缺少 ' 或 "，但我不知道該怎么做。

這是代碼。

If (rs.RecordCount <> 0) Then 
   rs.MoveFirst


Do While rs.EOF = False
TempExportCount = TempExportCount + 1
Checkdatacsv = rs![FileName68]
OriginalFileName = rs![FileName]

'***
'This is the variable - batch number
'*** 

BatchNO = rs![BatchNumber] 

FullPath = DirectoryPath & Checkdatacsv




DoCmd.TransferText acImportDelim, "AP-csv-Import", "tblAP_Payable_2", FullPath, False

Dim SQL2 As String

'***
'This is the statement
'*** 

SQL2 = "UPDATE tblAP_Payable_2 SET tblAP_Payable_2.BNO = " & BatchNO & "WHERE tblAP_Payable_2.BNO = 0;"


DoCmd.RunSQL SQL2

DoCmd.OpenQuery "qDEL_AP_BLank", acViewNormal, acEdit

導入 csv 文件中的每一行時，表中會填充 BatchNO，因此我將知道每條記錄是從哪個文件導入的

Answer 1

我想我找到了答案:)

SQL2 = "UPDATE tblAP_Payable_2 SET tblAP_Payable_2.BNO = '" & BatchNO & "WHERE tblAP_Payable_2.BNO = 0;'"

Answer 2

最有可能的是， BatchNo是文本，因此需要引號 - 如前所述 - 你錯過了一個空格：

SQL2 = "UPDATE tblAP_Payable_2 SET tblAP_Payable_2.BNO = '" & BatchNO & "' WHERE tblAP_Payable_2.BNO = 0;"