sql - 为什么这个 VB 和 SQL 不起作用？

Question

Private Sub Text46_AfterUpdate()

Dim strSource2 As String

strSource2 = "SELECT [Product Code],[Stock Level],[Description] FROM [products/stock]       WHERE [Product Code] LIKE " & "'%" & Me.Text46.Value & "%';"

Me.listSource.RowSource = strSource2
Me.listSource = vbNullString

End Sub

它应该在数据库中搜索所有产品代码以某种方式与 Text46 的值匹配的产品，但我真的无法让它工作，我真的不知道为什么。listSource 是我希望信息出现在其中的列表框。

在此先感谢，鲍勃 P

Answer 1

在 MS Access 中，通配符是 * 而不是 %，除非您正在使用 ADO，或者您在选项中更改了 ANSI 标准。

"SELECT [Product Code],[Stock Level],[Description] " _
& "FROM [products/stock] " _
& "WHERE [Product Code] LIKE " & "'*" & Me.Text46.Value & "*';"