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

関連記事

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

データベース（SQL Server）に接続 ODBC または OLE DB で接 …

: カレントレコードの移動（ADO）MoveFirst、MoveLast、MoveNext、MovePrevious、Move

MoveFirst メソッド、MoveLast メソッド、MoveNext メソ …

: クエリの作成・削除（ADOX）

ADOX を使用してクエリを作成・削除クエリを作成する手順【書式】＜参照設 …

: レコードの更新（ADO）Update メソッド

データベースのレコードを更新する Update メソッドカレントレコードの内容 …

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

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

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

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

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

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

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

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

: SQL文を実行する(ADO)Execute メソッド

Command オブジェクトの Execute メソッドで、SQL文を実行 Co …

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

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

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