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是我希望信息显示的列表框。

提前致谢， Bob P

Answer 1

在MS Access中，通配符为* not％，除非您使用的是ADO，或者您已在选项中更改了ANSI标准。

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

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

1 个答案: