我正在研究一些遗留的 VB 6.0 代码(Access XP 应用程序)来解决 Access 应用程序的 SQL 语句问题。对于客户名称中包含撇号的情况(例如“医生手术”),我需要使用 2 个单引号替换单引号:
Replace(customerName, "'", "''")
这将转义单引号,所以我得到了有效的 SQL:
SELECT blah FROM blah WHERE customer = 'Doctor''s Surgery'
不幸的是,替换函数会导致无限循环和堆栈溢出,大概是因为它替换函数递归地将每个添加的引号转换为另外 2 个引号。例如,一个引号被替换为两个,然后第二个引号也被替换为两个,依此类推......
- - - - - - - - 编辑 - - - - - - - -
我注意到(感谢海报)这个项目中使用的替换功能是自定义编写的:
Public Function replace(ByVal StringToSearch As String, ByVal ToLookFor As String,
ByVal ToReplaceWith As String) As String
Dim found As Boolean
Dim position As Integer
Dim result As String
position = 0
position = InStr(StringToSearch, ToLookFor)
If position = 0 Then
found = False
replace = StringToSearch
Exit Function
Else
result = Left(StringToSearch, position - 1)
result = result & ToReplaceWith
result = result & Right(StringToSearch, Len(StringToSearch) - position - Len(ToLookFor) + 1)
result = replace(result, ToLookFor, ToReplaceWith)
End If
replace = result
End Function
显然,VB 并不总是有它自己的替换功能。这个实现一定是有缺陷的。将遵循人们的建议并将其删除以支持 VB 6 的实现 - 如果这不起作用,我将编写我自己的方法。谢谢各位的意见!