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 件のコメント:
コメントを投稿