ms-access - 转义不需要的字符，主要是单引号--replace函数及实现

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)。