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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: テーブルの作成・削除／フィールドの作成・削除（ADOX）

ADOX を使用してテーブル・フィールド（列）を作成・削除 Table オブジェ …

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

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

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

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

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

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

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

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

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

OLE DB プロバイダ OLE DBには、Oracle 提供の Oracle …

: Recordset オブジェクト内のレコード数（ADO）RecordCount プロパティ

RecordCount プロパティ Recordset オブジェクトのレコード数 …

: フィールド名（ADO）Field オブジェクト

Field オブジェクト Recordset オブジェクト内の列（フィールド）を …

: データベース（MySQL）に接続する（ADO）

MySQL ODBCドライバ Windowsには標準で、いくつかの ODBC ド …

: BOF プロパティ・EOF プロパティ（ADO）

EOF プロパティ・BOF プロパティ BOF プロパティは、カレントレコードの …

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