→→→指定した行番号のレコードを取得／フィールド名を指定して値を取得

DataSetオブジェクトのテーブルから行番号を指定してレコードを参照するには
DataRowsCollectionオブジェクトのItemプロパティに「0」から始まる行番号を指定

DataSetオブジェクト.DataTableオブジェクト.Rows.Item(番号)


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:\***;" &

                                   "Persisit Security Info=False"

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

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

dRow = dSet.Tables("t_テスト").Rows.Item(1)

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－　

DataSetオブジェクトのテーブルから指定したフィールド名のフィールド値を取得するには

DataRowオブジェクトを使う

DataRowオブジェクトはDataTableオブジェクトに含まれておりRowsプロパティにレコードのインデックスを指定

DataSetオブジェクト.DataTableオブジェクト.Rows(インデックス)

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:\***;" &

                                   "Persisit Security Info=False"

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

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

'データセットからテーブルのレコードを取得して値を表示

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

   Debug.writeLine( dRow("社員NO") & ":"  & dRow("氏名"))

Next