Access VBA ADOを使用したレコード抽出

ADOを使用したレコード抽出

ADOを使用したレコードの抽出プログラム例を説明します。

プログラム例

Private Sub コマンド0_Click()

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset

Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset

RS.Open “T_社員マスタ2013”, CN, adOpenStatic, adLockOptimistic　　’*1

RS.Filter = “性別= ‘男'”                                                                 ‘*2

Do Until RS.EOF                                                                            ‘*3

Debug.Print RS!名前                                                                      ‘*4

RS.MoveNext
Loop

RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

End Sub

プログラムの説明

*1 テーブル「T_社員マスタ2013」を開きます

*2 Filterを使用して「性別」フィールドの”男”を抽出します。

*3 Do～Loop処理でEOF（ファイルの末尾）まで抽出を繰り返します。

*4 イミディエイトウインドウに抽出結果を表示します。