转义不需要的字符,主要是单引号 - 替换功能和实现

Question

我只是在测试我的数据库而且我意识到,只要我的数据库中的文本条目包含一个'字符(单引号),我就会遇到问题.我现在的解决方案是在对字符串执行任何.execute操作之前,我调用escape(string, "'", " "'" ").

以下摘要示例:

qr = "INSERT INTO tblExample VALUES ( " & "'" & me.testparam & "'" & ");"
qr = Replace(qr, "'", " "'" ")
db.execute qr
'also tried  qr = "INSERT INTO tblExample VALUES ( " & "'" & replace(me.testparam,"'"," ") & "'" & ");"

这就是我认为正确的解决方法,以防止来自诸如此类的值的错误Tourette's.

这有两个问题.首先,它不起作用.其次,我在我的应用程序中的代码中有50多个位置,我在其中调用语句db.execute qr,其中qr是一个可能包含单引号的字符串.我需要表中的字段来包含单引号,所以我不能用空格或类似的东西替换它.

两部分问题:

1. 有没有比通过我的所有代码调用Replace要作为查询执行的每个字符串更好的解决方案？

2. 为什么我当前的实现失败了？ - 即使将单引号转义为空格,我仍然会在查询表达式中出现语法错误.

Answer 1

首先检查这两行。

"VALUES ( " & "'" & me.testparam & "'" & ");"
"VALUES ( '" & me.testparam & "');"

两者都会产生完全相同的字符串。对我来说，不同之处在于我的大脑更快地理解第二个版本。

现在，以下是注释告诉您要​​做的事情...将源字符串中的每个单引号替换为两个单引号。我添加了Debug.Print这样的内容，以便您可以在“立即”窗口中查看完成的字符串（使用 Ctrl+g 进入该窗口）...然后您可以看到实际的字符串，而不是试图想象它的样子。

qr = "INSERT INTO tblExample VALUES ( '" & _
    Replace(Me.testparam, "'", "''" & "');"
Debug.Print qr
db.Execute qr, dbFailOnError 

由于我假设db是一个DAO.Database对象变量，因此我包含了该dbFailOnError选项。您应该在代码中包含错误处理程序来处理dbFailOnError暴露的任何问题。

当您在查询中遇到 VBA 函数问题时，请转到“立即”窗口并在其中测试您的函数表达式。这会触发编译错误，“预期：列表分隔符或） ”：

? Replace("Tourette's", "'", " "'" ")

但这有效：

? Replace("Tourette's", "'", "''")
Tourette''s

我提到这一点是因为它通常很有用，而且还因为您的标题以“转义不需要的字符，主要是单引号”开头。因此，如果您想删除/替换其他字符，而不仅仅是单引号，请在“立即”窗口中进行实验，直到找到Replace()有效的表达式。然后在查询中使用该表达式。

例如，如果不需要的字符包括换行符......

MyString = "foo" & vbCrlf & "bar" : ? MyString
foo
bar
? Replace(MyString, Chr(13) & Chr(10), " ")
foo bar

注意：我使用Chr(13) & Chr(10)而不是vbCrlf作为查找目标，因为数据库引擎可以使用该Chr()函数，但不知道命名常量（vbCrlf）。