Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

フィールド名（ADO）Fields コレクション

2017/09/05

Fields コレクション

Recordset オブジェクト内の１つ以上の列（フィールド）を表すオブジェクト（Field オブジェクト）で構成されています。各 Field オブジェクト に関しての詳細は、フィールド名（ADO）Field オブジェクトを参照して下さい。

Count プロパティ

Recordset オブジェクト内の Fields コレクションが持つ Field オブジェクトの数を取得します。

【書式】

＜取得＞
object.Fields.Count

引数・戻り値

object ・・・対象となる Recordset オブジェクトを指定します。
戻り値・・・ Recordset オブジェクト内の列数を返します。

Item プロパティ

Field オブジェクトを取得します。

【書式】

＜取得＞
object.Fields[.Item](index)
object.Fields[.Item](“name“)
object(index)
object(“name“)
object![name]

引数・戻り値

object ・・・対象となる Recordset オブジェクトを指定します。

Fields コレクション使用例

サンプルVBAソース

　
Sub Sample_ADO_FieldsConnection()
     
    '参照設定
    'Microsoft ActiveX Data Objects 6.1 Library

    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim constr As String
    Dim DBFile As String
    Dim strSQL As String
    
    DBFile = ActiveWorkbook.Path & "\mydb1.accdb"
    constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile
    
    cn.ConnectionString = constr
    cn.Open
    
    strSQL = "Select * from 社員名簿;"
    rs.Source = strSQL
    rs.ActiveConnection = cn
    
    MsgBox "フィールド数：" & rs.Fields.Count
    
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

　

Sub Sample_ADO_FieldsConnection()

'参照設定

'Microsoft ActiveX Data Objects 6.1 Library

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim constr As String

Dim DBFile As String

Dim strSQL As String

DBFile = ActiveWorkbook.Path & "\mydb1.accdb"

constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile

cn.ConnectionString = constr

cn.Open

strSQL = "Select * from 社員名簿;"

rs.Source = strSQL

rs.ActiveConnection = cn

MsgBox "フィールド数：" & rs.Fields.Count

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

　

実行結果

- データベース Access, ADO, Count プロパティ, CreateObject 関数, excel vnba, Field オブジェクト, Fields コレクション, Item プロパティ, Recordset オブジェクト, Select文, SQL, VBA中・上級, エクセル VBA, データベース, 参照設定

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: クエリにパラメータを渡して結果を取得する（ADO）Command オブジェクト・Execute メソッド

クエリにパラメータを渡して結果を取得する手順 Command オブジェクトの作成 …

: レコードの削除（ADO）Delete メソッド

データベースのレコードを削除する Delete メソッドカレントレコードを削除 …

: Excel VBA のクラスを使ってデータベースへ接続する（ADO）

データベースの処理をクラスモジュールに書く ExcelVBAで、クラス使用する方 …

: CSVファイルに接続（ADO）

ADOでCSVファイルに接続 ADO を使用してCSVファイルを読み込みます。C …

: データベースを作成する（ADOX）

ADOX を使用してデータベース（Access）を作成 Catalog オブジェ …

: インデックス、プロパティの設定（ADOX）

インデックスを作成する index オブジェクト【書式】＜CreateObj …

: データベース（Access 等）に接続（ADO）

ADO で、データベースに接続外部データベースを操作する方法のひとつに ADO …

: Excelファイルに接続（ADO）

ADOでExcelファイルに接続 ADO を使用してExcelファイルを読み込み …

: テーブル名、クエリ名の取得（ADOX）

テーブル名の取得 Table.Type プロパティ【書式】＜取得＞ obje …

: データベース（Oracle）に接続する（ODBC を使用）

ODBC接続（ADO） ADOで、ODBC（Open Database Conn …

PREV: フィールド名（ADO）Field オブジェクト
NEXT: レコードの追加（ADO）AddNew メソッド,Update メソッド