1

我正在将记录集中的表数据附加到正在工作的表中，直到我得到一个法国客户，他的客户名称中有一个 '。这是代码：

StrSQL3 = " INSERT INTO [ATB] ( SLSMAN, NOCARDEX, email, CLIENT, "
StrSQL3 = StrSQL3 & " NOTRANS, InvoiceDate, Current, [31-60], [61-90], [90+] ) "
StrSQL3 = StrSQL3 & " VALUES ( '" & myRecordSet.Fields(0).Value & "', "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(1).Value & "', "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(2).Value & "', "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(3).Value & "', "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(4).Value & "',  "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(5).Value & "',  "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(6).Value & "', "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(7).Value & "', "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(8).Value & "', "
StrSQL3 = StrSQL3 & " '" & myRecordSet.Fields(9).Value & "' ) "
    If OldEmail = email Then
    DoCmd.RunSQL StrSQL3

这一切都很好，直到我得到这个客户：Location D'Outils Nicolet。由于客户端名称中的 '，我收到错误 3075 - Missing operator。

有没有人知道解决这个问题的方法？

4

1 回答 1

3

使用参数查询时，引号不是问题。

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strInsert As String

strInsert = "INSERT INTO [ATB] (" & vbCrLf & _
    "SLSMAN, NOCARDEX, email, CLIENT, " & _
    "NOTRANS, InvoiceDate, [Current], " & _
    "[31-60], [61-90], [90+])" & vbCrLf & _
    "VALUES (p0, p1, p2, p3, p4, p5, p6, p7, p8, p9);"
Debug.Print strInsert

Set db = CurrentDb
Set qdf = db.CreateQueryDef("", strInsert)
qdf.Parameters("p0").value = MyRecordSet.Fields(0).value
qdf.Parameters("p1").value = MyRecordSet.Fields(1).value
' add the remaining parameter values
qdf.Execute
Set qdf = Nothing
Set db = Nothing
于 2013-10-11T21:38:00.657 回答