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 イミディエイトウインドウに抽出結果を表示します。