我需要一些帮助,所以我想要做的是显示所有记录 WHERE column-name IS NOT NULL。我所拥有的是:
Dim rs As Recordset Dim sqlStr As String
Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\mydb.mdb")
strSql = "SELECT * FROM MyDatabaseName"
Set rs = db.OpenRecordset(strSql)
rs.MoveFirst
Do While Not rs.EOF
lblResult.Caption = ("cust Name: " & rs!SurName & " cust Surname: " & rs!FirstName)
rs.MoveNext
Loop
MsgBox ("End ")
我试过的是
strSql = "SELECT * FROM MyDatabaseName WHERE column-name IS NOT NULL"
但我收到错误 3131。感谢任何帮助。另外如何在标签的列表框中显示结果。
简单修复:使用特殊字符(如-
减法运算符)时,将列名括在方括号中:
strSql = "SELECT * FROM MyDatabaseName WHERE [column-name] IS NOT NULL"
您的 SQL 的其余部分似乎有效。
如果你想要一个以这个查询的结果作为列表的列表框,只需将它的行源设置为这个查询,并将它的行源类型设置为等于表/查询。不需要任何 VBA。
如果要将所有内容都放在标签中,请使用:
Do While Not rs.EOF
lblResult.Caption = lblResult.Caption & "cust Name: " & rs!SurName & " cust Surname: " & rs!FirstName & VbCrLf
rs.MoveNext
Loop
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句