→→→データセットから条件に合致するデータを取得

DataSetオブジェクトのテーブルから条件を満たすレコードを抽出するには、DataViewオブジェクトを使う


DataViewオブジェクトはNewキーワードを使って生成して利用


このとき第１引数にレコードを抽出するDataSetオブジェクトのテーブルを指定する
第２引数にはレコードを抽出する条件式を指定


*DataSetオブジェクトのt_商品テーブルから単価フィールドの値が「200」以上のレコードをDataViewオブジェクトに抽出

Dim i,j As Integer

Dim dView As DataView

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_テスト")

dView = New DataView( dSet.Tables("t_テスト") , "単価>='200' " , "" , DataViewRowState.CurrentRows )

For i = 0 To dView.Count()  - 1

    For j = 0 To dView.Table.Columns.Count()  - 1

        Debug.write( dView(i)(j) & ControlChars.Tab )

    Next

    Debug.WriteLine("")

Next