即効テクニック |
●概要● レコードセットのフィールド名を取得するには、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