HOME > 即効テクニック > Excel VBA > データベース関連のテクニック > レコードセットのフィールド名を取得する

即効テクニック

データベース関連のテクニック

レコードセットのフィールド名を取得する

(Excel 2000/2002/2003)
●概要●
レコードセットのフィールド名を取得するには、ADODB.FieldオブジェクトのNameプロパティを利用します。

 構文 オブジェクト.Name
 設定項目    内容
 オブジェクト  ADODB.Fieldオブジェクト

次のサンプルは、ADOを利用して、Accessデータベースにあるテーブルのフィールド名を取得します。なお、このサンプルを実行するには、「Microsoft ActiveX Data Objects x.x Library(x.xはバージョンによって異なります)」に参照設定する必要があります。
●サンプル●
Sub Sample()
    Dim AdoConnection As ADODB.Connection
    Dim TableName As String
    Dim TempField As ADODB.Field
    
    TableName = "T_Master"
    
    Set AdoConnection = New ADODB.Connection
    AdoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
                        & "Data Source=" & ThisWorkbook.Path _
                        & Application.PathSeparator & "SampleDB.mdb"
                        
    With AdoConnection
        With New ADODB.Recordset
            .Open TableName, AdoConnection
            For Each TempField In .Fields
                Debug.Print TempField.Name
            Next
            .Close
        End With
        .Close
    End With
    
    Set AdoConnection = Nothing
    
End Sub