●概要●
構文 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
●補足●
検索結果は［イミディエイト］ウィンドウに表示されます。
