2011年7月14日木曜日

→→→データセットのデータを配列に取得(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
----------------------------------------------------

0 件のコメント:

コメントを投稿