*

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

公開日: : 最終更新日:2014/05/11 データベース操作(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 イミディエイトウインドウに抽出結果を表示します。

スポンサーリンク

ad-pc

ad-pc

関連記事

no image

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

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

記事を読む

no image

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

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

記事を読む

no image

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

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

記事を読む

no image

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

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

記事を読む

Message

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

転職01
初心者がAccess VBAの仕事に就く為には

初心者がAccess VBAを使った仕事に就く 私はSEやITエンジ

sound01
Access VBA 音を鳴らす PlaySound

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

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

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

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

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

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

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

→もっと見る

PAGE TOP ↑