列表框中的列表在运行宏后消失

Posted 2023-01-15

我有简单的数据库，有两个表，一个查询（连接表）和一个查询表单，包括文本框和列表框（见下图）。

我正在尝试使用文本框在键入时搜索列表框（如此视频中所示：youtube video)

我复制了代码（很少编辑名称），但由于某种原因，它会使整个列表中断（松散所有条目）并且不起作用（下面键入后的结果截图）。即使在删除条目后，列表也不会恢复正常。

我做错了什么？

我的代码：

Private Sub searchBox_Change()

    Dim strSource As String
    strSource = "SELECT  Paraiškos ID, Veikliosios m pavadinimas, Sugalvotas VP pavadinimas" & _
     "FROM Oldsys_Main" & _
     "Where Paraiškos ID Like '*" & Me.searchBox.Text & "*' " _
     & "Or Veikliosios m pavadinimas Like '*" & Me.searchBox.Text & "*' " _
     & "Or Sugalvotas VP pavadinimas Like '*" & Me.searchBox.Text & "*' "

    Me.oldListBox.RowSource = strSource
End Sub

另一个（现在是单一的）问题：为什么第五列结果是数字？它应该是文本，是因为5列与另一个表链接，是否可以使它显示文本而不是ID？

答案

这不是有效的SQL语法。标识符（例如列名称）不允许使用除_之外的空格或特殊字符。如果有，则必须将名称括在方括号中。

在FROM之前以及Oldsys_Main和WHERE之间也有一个空间缺失，因为换行符在VBA代码本身内，但不在构造的字符串内。如果要在字符串中添加换行符，可以使用"first line" & vbCrLf & "second line"进行换行。但SQL在单行上运行良好。

Dim strSource As String, strSearch As String

strSearch = Replace(searchBox.Text, "'", "''")
strSource = "SELECT [Paraiškos ID], [Veikliosios m pavadinimas], [Sugalvotas VP pavadinimas] " _
 & "FROM Oldsys_Main " _
 & "WHERE [Paraiškos ID] LIKE '*" & strSearch & "*' " _
 & "Or [Veikliosios m pavadinimas] LIKE '*" & strSearch & "*' " _
 & "Or [Sugalvotas VP pavadinimas] LIKE '*" & strSearch & "*' "

此外，用两个单引号替换搜索文本中的单引号以转义它们。像Let's go这样的文字变成了'Let''s go'。

---

您可以像这样测试SQL：

• 使用Ctrl-G打开立即窗口。
• 复制将代码粘贴到其中，这相当于Debug.Print，用实际文本字符串（例如strSearch）替换变量"est"。 ？“选择[应用程序ID]，[活动M名称]，[发明的VP名称]”_ ＆“FROM Oldsys_Main”_ ＆“WHERE [Application ID] LIKE'*”＆“est”＆“*'”_ ＆“或[有效M名称] LIKE'*”＆“est”＆“*'”_ ＆“或者[发明的VP名称] LIKE'*”＆“est＆”*'“ 结果将像这样打印： SELECT [应用程序ID]，[活动M名称]，[发明的VP名称] FROM Oldsys_Main WHERE [应用程序ID] LIKE'* est *'或[活动M的名称] LIKE'* est *'或[发明的安全名称] LIKE' * est *'
• 将此结果复制到剪贴板并在设计视图中创建新查询。切换到SQL视图并将结果粘贴到其中。
• 现在执行查询。您将看到它是否有效，或者是否收到错误消息。此外，缺少空格等语法错误也很明显。