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 を使用してクエリを作成・削除クエリを作成する手順【書式】＜参照設 …

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

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

: データベース（Oracle）に接続する（oo4o）

oo4o 接続 OO4O（Oracle Objects for OLE）はWin …

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

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

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

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

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

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

: レコードを並べ替える（ADO）Sort プロパティ

データベースのレコードを並べ替える Sort プロパティ【書式】 object …

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

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

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

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

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

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

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