HOME > 即効テクニック > AccessVBA > クエリ・SQL > 複数の条件をすべて満たすレコードを検索する

即効テクニック

クエリ・SQL

複数の条件をすべて満たすレコードを検索する

(Access 2000/2002)
●概要●
構文  WHERE 条件式1 AND 条件式2

AND演算子を使用すると指定した複数の条件をすべて満たすレコードを検索します。
AND演算子を使用していくつ条件を指定してもかまいません。
サンプルでは2つの条件を指定し「部署コードが30」で、かつ「職種がマネージャ」のレコードを検索します。
●サンプル●
'複数の条件をすべて満たすレコードを検索する
Public Sub Sample()

    Dim myDB As Database
    Dim myRS As DAO.Recordset
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "SELECT * FROM 社員テーブル WHERE 部署コード=30" _
                 & " AND 職種='マネージャ' ;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLステートメントを実行してレコードセットを開く
    Set myRS = myDB.OpenRecordset(mySQL, dbOpenDynaset)
    'レコードセットの内容を表示する
    Do Until myRS.EOF
        Debug.Print myRS!社員コード & " " & myRS!部署コード & " " _
                 & myRS!名前 & " " & myRS!入社年月日 & " " & myRS!職種
        myRS.MoveNext
    Loop
    'レコードセットを閉じる
    myRS.Close

End Sub
●補足●
検索結果は[イミディエイト]ウィンドウに表示されます。