Microsoft Access VBA - SELECTステートメントで条件による抽出をする方法(SQL)

◆Commandオブジェクト、WHERE句
　SQLステートメントで条件による抽出をするには、WHERE句を使用します。
Like演算子とワイルドカードであいまい抽出も可能です。

◆Sample

次の例は、テーブル「Customer」から「ID」が5までのレコードを抽出したレコードセットを作成します。

Private Sub cmdSQL_Click()
   Dim ct As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim cm As ADODB.Command
   Dim msg As Integer

   ' Connectionオブジェクト変数「ct」に、カレントプロジェクトを代入する
   Set ct = Application.CurrentProject.Connection
   ' Commandオブジェクト変数「cm」にコマンドを代入する
   Set cm = New ADODB.Command
   cm.ActiveConnection = ct
   cm.CommandText = "SELECT * FROM Customer WHERE ID<=5"
   ' SELECTステートメントをレコードセットで開く
   Set rs = New ADODB.Recordset
   Set rs = cm.Execute
   ' レコードセットの内容をメッセージボックスに表示する
   msg = MsgBox(rs.GetString, , rs.Source)

   ' 接続を終了する
   rs.Close
   ct.Close
End Sub
◆実行結果

実行結果

▼ページトップに戻る