PGlabo

« [VB.NET|Access] DataGrid に表示 | メイン | [VB.NET|Access] レコードの削除・挿入・更新（OleDb） »

2005年10月14日

[VB.NET] DataSet内のデータの取り出し方

            Dim RowCnt As Integer = DS.Tables("テーブル名").Rows.Count 'DataSetの列数
            Dim ColCnt As Integer = DS.Tables("テーブル名").Columns.Count 'DataSetの行数
            Dim Row As DataRow
            Dim Col As DataColumn
            Dim Data(RowCnt - 1, ColCnt - 1) As String
            Dim i As Integer
            Dim j As Integer

'例１：
            i = 0
            For Each Row In DS.Tables("テーブル名").Rows
                j = 0
                For Each Col In DS.Tables("テーブル名").Columns
                    Data(i, j) = Row(Col)
                    j = j + 1
                Next
                i = i + 1
            Next

'例２：
            i = 0
            For Each Row In DS.Tables("テーブル名").Rows
                j = 0
                For Each Col In DS.Tables("テーブル名").Columns
                    Data(i, j) = DS.Tables("テーブル名").Rows(i).Item(j)
                    j = j + 1
                Next
                i = i + 1
            Next

2005 / 10 / 14