代码之家 › 专栏 › 技术社区 › adam

一列的SQL设置值等于另一列文本中函数的输出

access-vba ms-access sql

adam · 技术社区 · 7 年前

我有一份名单 [TempTable] 有两个字段的表, [ClientName] 和 [NameID] . ClientName 是来自另一个包含符号的源的输入,我希望将它们处理为 [姓名ID] 删除所有特殊符号后的字段。

下面是删除符号的代码:

 Public Function RemoveSpecial(Str As String) As String
    Dim xChars As String
    Dim I As Long
    xChars = "~!@#$%^&*()_+=-`{}|[]\:;'<>?,./"
    For I = 1 To Len(xChars)
        Str = Replace$(Str, Mid$(xChars, I, 1), "")
    Next
    RemoveSpecial = Str
End Function

我一直在想:

UPDATE [TempTable] SET [NameID] = RemoveSpecial([ClientName])

但是,SQL似乎不起作用。我最后得到了 [] 在里面 [客户端名称] 远离的。有没有办法在SQL代码中使用该函数,或者我必须逐个循环遍历表中的每个条目?

2 回复 | 直到 7 年前

Jaro 7 年前

我检查了你的密码,结果很好。也许你可以修改如下。我在查询设计器中测试过。如何运行SQL代码(从查询设计器或VBA)?

UPDATE TempTable SET TempTable.NameID = RemoveSpecial([TempTable]![ClientName]);

VBA中的简单代码(无错误处理):

Public Function UpdateName()
    CurrentDb.Execute ("UPDATE TempTable SET TempTable.NameID = RemoveSpecial([TempTable]![ClientName]);")
End Function

我在Access2010测试过。

Vlado 7 年前

您正在更改此处的字符位置,这可能是它无法正常工作的原因:

Str = Replace$(Str, Mid$(xChars, I, 1), "")

请尝试以下代码:

Public Function RemoveAllSpecialCharacters(inString As String) As String
    Const SpecialCharacters As String = "!,@,#,$,%,^,&,*,(,),{,[,],},-,/,_,;,',?,+,=,.,~,`, ,â¬"
    Dim newString As String
    Dim Char As Variant
    newString = inString
    For Each Char In Split(SpecialCharacters, ",")
        newString = Replace(newString, Char, "")
    Next
    newString = Replace(newString, ",", "")
    newString = Replace(newString, Chr(13), "")
    newString = Replace(newString, Chr(10), "")
    RemoveAllSpecialCharacters = Trim(newString)
End Function

推荐文章

Johnny T · 基于当前值的SQL合并表[重复]

1 年前

Shukurullox Komiljonov · 从记录中获得相互和解。使用SQL

1 年前

John D · 需要为NULL或NOT NULL的WHERE子句

1 年前

ojek · 如何对SQL结果进行分组和编号?

1 年前

senek · 如何在PL/SQL中将选择结果(列)放入数组中

1 年前

Sax · 规范化Google表格(第一步)

1 年前

BarÄ±Å UÅaklÄ± · 如何在ON冲突更新中使用CTE中的值

1 年前

Jatin · 检索卷计数的动态sql抛出错误语法错误[关闭]

1 年前

Andrus · 如何在sql中查找第二个匹配项

1 年前

Nebula Tech · 在SQL Server中搜索字符串中单词的多次出现

1 年前