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）BeginTrans、CommitTrans、RollbackTrans

ADO でのトランザクション処理【書式】 Sub Sample_Transac …

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

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

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

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

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

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

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

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

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

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

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

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

: Recordset オブジェクトの内容をワークシートにコピーする（CopyFromRecordset メソッド・ADO）

CopyFromRecordset メソッド ADO の Recordset オ …

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

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

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