→→→データセットのデータを配列に取得(DataRow/ItemArray)

DataRowオブジェクトのItemArrayプロパティを使うとDataSetオブジェクトのテーブルデータ(レコード)を配列に取得できる


DataRowオブジェクトはDataSetオブジェクトに含まれるDataTableオブジェクトに含まれておりRowsプロパティに
インデックスを指定して取得


DataTableオブジェクトはDataSetオブジェクトのTablesプロパティにインデックスまたは名前を指定して取得


DataSetオブジェクト.Tables(テーブル名).Rows


データセットのデータを配列に取得
DataSetオブジェクトのテーブルのレコード内容をフィールドの値を要素とする配列に取得するにはDataRowオブジェクトの
ItemArrayプロパティを使います
DataTableオブジェクトはDataSetオブジェクトのTablesプロパティにテーブルのインデックスまたは名前を指定して取得

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

Dim colArray() As Object

Dim recField As Object

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

Dim dAdp As OleDbDataAdapter

・・・・

dAdp = New OleDbDataAdapter("SELECT * FROM テーブル", ocn)

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

colArray = dSet.Tables("t_テスト").Rows(0).ItemArray

-----------------------------------------------

Dim RecArray() As Object

Dim RecField As Object

Dim dRow As DataRow

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:\***;Persist Security Info=False"

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

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

For Each dRow In dSet.Tables("t_テスト").Rows

   RecArray = dRow.ItemArray

     For Each RecField In RecArray

           Debug.Write( RecField & ControlsChars.Tab )

     Next

     Debug.Write( ControlsChars.NewLine )

Next

----------------------------------------------------