ADOで特定フィールドのデータを取得する方法
ActiveX Data objects【ｱｸﾃｨﾌﾞｴｯｸｽﾃﾞｰﾀｵﾌﾞｼﾞｪｸﾂ】（以下ADO)で、特定のフィールドのデータを取得するには、レコードのフィールドを表すField【ﾌｨｰﾙﾄﾞ】オブジェクトのValue【ﾊﾞﾘｭｰ】プロパティを使用します。
データを取得するフィールドを指定するには、Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのFields【ﾌｨｰﾙｽﾞ】プロパティを使用してField【ﾌｨｰﾙﾄﾞ】オブジェクトを参照します。
特定のフィールドを取得するために使用するプロパティとメソッド
| プロパティ・メソッド | 内容 |
|---|---|
| Recordset.Fieldsプロパティ 【ﾚｺｰﾄﾞｾｯﾄﾌｨｰﾙｽﾞ】 | 外部データベースの特定のフィールドを表す Field【ﾌｨｰﾙﾄﾞ】オブジェクトを参照します。 |
| Field.Valueメソッド 【ﾌｨｰﾙﾄﾞﾊﾞﾘｭｰ】 | 外部データベースの特定のフィールドの値を 取得または設定します。 |
| Recordset.BOFプロパティ 【ﾚｺｰﾄﾞｾｯﾄﾋﾞｷﾞﾝｵﾌﾞﾌｧｲﾙ】 | 外部データベースのカレントレコードの 位置がデータ範囲の先頭レコードより前に あるかないかをブール型の値で返します。 |
| Recordset.EOFプロパティ 【ﾚｺｰﾄﾞｾｯﾄｴﾝﾄﾞｵﾌﾞﾌｧｲﾙ】 | 外部データベースのカレントレコードの 位置がデータ範囲の最後レコードより後に あるかないかをブール型の値で返します。 |
| Recordset.MoveNextメソッド 【ﾑｰﾌﾞﾈｸｽﾄ】 Recordset.MovePreviousメソッド 【ﾑｰﾌﾞﾌﾟﾋﾞﾘｱｽ】 Recordset.MoveFirstメソッド 【ﾑｰﾌﾞﾌｧｰｽﾄ】 Recordset.MoveLastメソッド 【ﾑｰﾌﾞﾗｽﾄ】 | 外部データベース内のカレントレコードを移動します。 |
Recordset.Fields【ﾚｺｰﾄﾞｾｯﾄﾌｨｰﾙｽﾞ】プロパティ
外部データベースの特定のフィールドを表すField【ﾌｨｰﾙﾄﾞ】オブジェクトを参照するには、Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのFields【ﾌｨｰﾙｽﾞ】プロパティを使用します。
Recordset.Fields【ﾚｺｰﾄﾞｾｯﾄﾌｨｰﾙｽﾞ】プロパティの書式と設定値(引数)の説明
オブジェクト変数.Fields(フィールド名)
- オブジェクト変数（必須）
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスが格納されているオブジェクト変数を指定します。 - フィールド名（必須）
参照したい外部データのフィールド名を文字列で指定します。
Field.Value【ﾌｨｰﾙﾄﾞﾊﾞﾘｭｰ】メソッド
外部データベースの特定のフィールドの値を取得または設定するには、Field【ﾌｨｰﾙﾄﾞ】オブジェクトのValue【ﾊﾞﾘｭｰ】メソッドを使用します。
Field.Value【ﾌｨｰﾙﾄﾞﾊﾞﾘｭｰ】メソッドの書式と設定値の説明
【取得】
オブジェクト.Value
【設定】
オブジェクト.Value = 設定値
- オブジェクト（必須）
外部データベースの特定のフィールドを表すField【ﾌｨｰﾙﾄﾞ】オブジェクトを指定します。 - 設定値（必須）
特定のフィールドに設定したいデータを指定します。外部データベースのフィールドと設定するデータのデータ型が違うとエラーになります。データ型が一致するデータを指定してください。
BOF【ﾋﾞｷﾞﾝｵﾌﾞﾌｧｲﾙ】プロパティ
EOF【ｴﾝﾄﾞｵﾌﾞﾌｧｲﾙ】プロパティ
外部データベースのカレントレコードの位置がデータベースの範囲を超えたかをブール型の値で返します。値の取得のみ可能です。
BOFは「Begin Of File【ﾋﾞｷﾞｲﾝｵﾌﾞﾌｧｲﾙ】」の略で、カレントレコードの位置が外部データベースの先頭のレコードより前にあるかないかを判定する場合に使用します。
| カレントレコードの位置 | BFOの値 |
|---|---|
| 先頭のレコードの前 | True |
| 先頭のレコード | False |
| 最後のレコード | False |
| 最後のレコードの後 | False |
EOFは「End OF File【ｴﾝﾄﾞｵﾌﾞﾌｧｲﾙ】」の略で、カレントレコードの位置が外部データベースの最後のレコードより後にあるかないかを判定する場合に使用します。
| カレントレコードの位置 | EFOの値 |
|---|---|
| 先頭のレコードの前 | False |
| 先頭のレコード | False |
| 最後のレコード | False |
| 最後のレコードの後 | True |
BOF・EOFプロパティの書式と設定値の説明
オブジェクト変数.BOF
オブジェクト変数.EOF
- オブジェクト変数（必須）
外部データのレコードを表すRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスが格納されている
オブジェクト変数を指定します。
外部データベース内のレコードのカーソルを移動するメソッド
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクト内のカーソルを移動するには以下の表のRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトの各メソッドを使用します。
| カーソルを移動する位置 | 使用するメソッド |
|---|---|
| 次のレコード | MoveNext【ﾑｰﾌﾞﾈｸｽﾄ】 |
| 前のレコード | MovePrevious【ﾑｰﾌﾞﾌﾟﾋﾞﾘｱｽ】 |
| 先頭のレコード | MoveFirst【ﾑｰﾌﾞﾌｧｰｽﾄ】 |
| 最後のレコード | MoveLast【ﾑｰﾌﾞﾗｽﾄ】 |
各メソッドの書式と設定値
オブジェクト変数.MoveNext
オブジェクト変数.MovePrevious
オブジェクト変数.MoveFirst
オブジェクト変数.MoveLast
- オブジェクト変数（必須）
外部データのレコードを表すRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスが格納されているオブジェクト変数を指定します。
Accessデータベースの指定したフィールドのデータをワークシートに読み込む例
コードと解説
※ADOのライブラリファイルへの参照設定がされていることが前提のコード例です。
Sub 特定フィールド読み込み()
Dim コネクション As New ADODB.Connection
Dim レコード As New ADODB.Recordset
Dim i As Long
コネクション.Open ConnectionString:= _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:¥Users¥Desktop¥Database1.accdb;"
レコード.Open Source:="商品マスター", ActiveConnection:=コネクション
i = 1
Do Until レコード.EOF
Cells(i, 1).Value = レコード.Fields("商品名").Value
レコード.MoveNext
i = i + 1
Loop
レコード.Close: Set レコード = Nothing
コネクション.Close: Set コネクション = Nothing
End Sub
Dim【ﾃﾞﾑ】ステートメントでNew【ﾆｭｰ】キーワード使用して外部データベースとの接続を確立するConnection【ｺﾈｸｼｮﾝ】オブジェクトのインスタンスを生成してオブジェクト変数「コネクション」に格納します。
3行目【Dim レコード As New ADODB.Recordset】
Dim【ﾃﾞﾑ】ステートメントでNew【ﾆｭｰ】キーワード使用して外部データベースのレコードを参照するRecordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのインスタンスを生成してオブジェクト変数「レコード」に格納します。
4行目【Dim i As Long】
繰り返し処理の中でワークシートの行番号を格納する変数iを長整数型（Long)で宣言します。
5行目～7行目【コネクション.Open ConnectionString:= _
“Provider=Microsoft.ACE.OLEDB.12.0;” & _
“Data Source=C:¥Users¥Desktop¥Database1.accdb;”】
Connection【ｺﾈｸｼｮﾝ】オブジェクトのOpen【ｵｰﾌﾟﾝ】メソッドを使用して外部データベースの接続をします。
8行目【レコード.Open Source:=”商品マスター”, ActiveConnection:=コネクション】
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのOpen【ｵｰﾌﾟﾝ】メソッドを使用して外部データベースのレコードを参照します。
9行目【i = 1】
ワークシートの行番号を格納する変数iに1を代入します。
10行目【Do Until レコード.EOF】
Do Loop【ﾄﾞｳ ﾙｰﾌﾟ】 ステートメントを使用して繰り返し処理の始まりです。繰り返しの条件をUntil【ｱﾝﾃｨﾙ】の「～ではない間」に設定してEOF【ｴﾝﾄﾞｵﾌﾞﾌｨｰﾙﾄﾞ】プロパティがTrueではない間(外部データベースの最後のレコードまでの間）繰り返す条件を設定します。
11行目【Cells(i, 1).Value = レコード.Fields(“商品名”).Value】
1列目の変数i行目のセルにValue【ﾊﾞﾘｭｰ】プロパティで取得した外部データベースの「商品名」フィールドの値を代入します。
12行目【レコード.MoveNext】
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトMoveNext【ﾑｰﾌﾞﾈｸｽﾄ】メソッドを使用して外部データベースのカーソルの位置を次のレコードに移します。
13行目【i = i + 1】
セルの行番号が格納されている変数iに1を加算してセルの次の行を参照する準備をします。
14行目【Loop】
10行目からここまでの処理を外部データベースのレコードの数（EOFがTrueになるまで）繰り返してワークシートに「商品名」フィールドのデータを代入します。
15行目【レコード.Close: Set レコード = Nothing】
Recordset【ﾚｺｰﾄﾞｾｯﾄ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドでレコードの参照を切断し、Nothing【ﾅｯｼﾝｸﾞ】を代入してメモリー領域を解放します。
16行目【コネクション.Close: Set コネクション= Nothing】
Connection【ｺﾈｸｼｮﾝ】オブジェクトのClose【ｸﾛｰｽﾞ】メソッドで外部データベースの接続を切断し、Nothing【ﾅｯｼﾝｸﾞ】を代入してメモリー領域を解放します。
実行結果
以上で、ADOで外部データベースの特定フィールドのデータを取得する方法についての解説を終了します。ありがとうございました。