→→→フィールド数／フィールド名を取得

フィールドの数を取得
OleDbDataReaderオブジェクトに取得したレコードのフィールド数を取得するにはFieldCountプロパティ

Dim ocn As OleDbCommand
Dim srd As OleDbDataReader
Try
      ocn = New OleDbCommand("SELECT * FROM テスト", ocn)
      srd = ocn.ExecuteReader()
               ・
       = srd.FieldCount





FieldCountプロパティはデータベースに接続した状態で実行する
Dim oCom As OleDbCommand
Dim oCn As OleDbConnection = New OleDbConnection
Dim ord As OleDbDataReader
oCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = D:\***;Persist Security Info=False"
oCn.Open()
oCom = New OleDbCommand("SELECT * FROM テスト", oCn)
ord = oCom.executeReader()
Debug.WriteLine("フィールド数=" & ord.FieldCount )
ord.Close()
oCn.Close()
----------------------------------------


フィールド名を取得
OleDbDataReaderオブジェクトに取得したレコードのフィールド名を知るにはGetNameプロパティ

Dim ocn As OleDbCommand
Dim srd As OleDbDataReader


ocn = New OleDbCommand("SELECT * FROM テスト",ocn)
srd = ocn.ExecuteReader()


For i = 0 To srd.FieldCount - 1
           ---- srd.GetName(i) ----------
Next