VB6、MS Access、DAO - すべてのレコードを表示WHERE column-name IS NOT NULL

Question

私はこれに少し助けが必要なので、WHERE column-name IS NOT NULLのすべてのレコードを表示することです。私は何を持っていることです：文字列

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 ") 

としてレコード 薄暗いsqlStrとして

薄暗いのRS私が試したことは

strSql = "SELECT * FROM MyDatabaseName WHERE column-name IS NOT NULL" 

あるしかし、私はすべてのヘルプは高く評価され、エラー3131を取得します。また、ラベルのListBox instedに結果を表示する方法もあります。

Answer 1

簡単な修正：特殊文字を使用している場合-サブス事業者のように、角括弧内の列名を囲みます

strSql = "SELECT * FROM MyDatabaseName WHERE [column-name] IS NOT NULL"

をあなたのSQLの残りの部分は有効なようです。

このクエリの結果をリストとして表示するには、その行ソースをこのクエリと同じに設定し、行ソースの種類をTable/Queryに設定します。どんなVBAも必要ありません。

あなたは、ラベルに使用するすべてのものを入れたい場合：「また、どのように私は、リストボックスに結果がラベルのinsted表示することができます。」のような

Do While Not rs.EOF 
    lblResult.Caption = lblResult.Caption & "cust Name: " & rs!SurName & " cust Surname: " & rs!FirstName & VbCrLf 
    rs.MoveNext 
Loop