→→→データセット内のレコード数を取得

DataSetオブジェクトのテーブルのレコード数を取得するにはDataRowCollectionオブジェクトのCountプロパティを使う


DataRowCollectionオブジェクトはDataTableオブジェクトに含まれておりRowsプロパティで取得できる


Dim rNum As Integer
Dim dSet As DataSet = New DataSet("t_テスト")
Dim dAdp As OleDbDataAdapter
Dim ocn As OleDbConnection = New OleDbConnection
ocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\***.mdb;Persist Security Info=False"
dAdp = New OleDbDataAdapter("SELECT * FROM テスト",ocn)
dAdp.Fill( dSet, "t_テスト")
rNum = dSet.Tables("t_テスト").Rows.Count
Debug.writeLine("レコード数:" & rNum)


データセット内のフィールド数を取得
  DataSetオブジェクトのオブジェクト.Tables(インデックス／テーブル名).Colums.Count
データセット内のフィールド名を取得
  DataSetオブジェクトのオブジェクト.Tables(インデックス／テーブル名).Colums(インデックス).ColumnName

データセット内のフィールドの型名を取得

  DataSetオブジェクトのオブジェクト.Tables(インデックス／テーブル名).Colums(インデックス).DataType

Dim dSet As DataSet = New DataSet("t_テスト")

Dim dAdp As OleDbDataAdapter

Dim Dcol As DataColumn

・・・

dAdp = New OleDbDataAdapter("SELECT * FROM テスト",ocn)

dAdp.Fill( dSet, "t_テスト")

For Each Dcol In dSet.Tables("t_テスト").Columns

               Dcol.ColumnName

               Dcol.DataType.ToString()

Next