*

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

公開日: : 最終更新日:2014/05/11 データベース操作(DAO)

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

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

スポンサーリンク

プログラム例

Private Sub コマンド0_Click()

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset(“T_社員マスタ2013”, dbOpenDynaset)     ‘*1

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

Do Until RS.EOF                                    ‘*4

Debug.Print RS!名前                              ‘*5

RS.MoveNext
Loop

RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing

End Sub

プログラムの説明

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

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

*3 レコードセットを更新(抽出)。

*4 Do~Loop処理でEOF(ファイルの末尾)まで抽出を繰り返します。

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

「Filter」を使用してレコードの抽出を行います。
レコードを複数抽出する為に「Do~Loop文」を使用しレコードを上から順番に検索していきます。「EOF」とはレコードの最後を意味し、「Until RS.EOF」はレコードの最後までという意味です。

スポンサーリンク

ad-pc

ad-pc

関連記事

no image

Access VBA DAOを使用したレコード検索

DAOを使用したレコード検索 DAOを使用したレコードの検索プログラム例を説明します。

記事を読む

no image

Access VBA DAOを使用したレコード削除

DAOを使用したレコード削除 プログラム例 Private Sub コマンド0_Click()

記事を読む

no image

Access VBA DAOを使用したレコード追加

DAOを使用したレコード追加 DAOを使用したレコードの追加プログラム例を説明します。

記事を読む

no image

Access VBA DAOを使用したレコード更新

DAOを使用したレコード更新 DAOを使用したレコードの更新プログラム例を説明します。

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログ

Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時

Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のか

Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使

Access VBA カレンダーコントロールを使用して日付入力を行う

カレンダーコントロールを使用して日付入力を行う 日付入力を実施する際

→もっと見る

PAGE TOP ↑