【VB.NET】ADO.Net学习（一）DataReader转换为DataSet

Public   Function  ConvertDataReaderToDataSet( ByVal  reader  As  _
            SqlDataReader)  As  DataSet
             Dim  dataSet  As  DataSet  =   New  DataSet
             Dim  schemaTable  As  DataTable  =  reader.GetSchemaTable()
             Dim  dataTable  As  DataTable  =   New  DataTable
             Dim  intCounter  As   Integer
             For  intCounter  =   0   To  schemaTable.Rows.Count  -   1
                 Dim  dataRow  As  DataRow  =  schemaTable.Rows(intCounter)
                 Dim  columnName  As   String   =   CType (dataRow( " ColumnName " ),  String )
                 Dim  column  As  DataColumn  =   New  DataColumn(columnName, _
                      CType (dataRow( " DataType " ), Type))
                dataTable.Columns.Add(column)
             Next
            dataSet.Tables.Add(dataTable)
             While  reader.Read()
                 Dim  dataRow  As  DataRow  =  dataTable.NewRow()
                 For  intCounter  =   0   To  reader.FieldCount  -   1
                    dataRow(intCounter)  =  reader.GetValue(intCounter)
                 Next
                dataTable.Rows.Add(dataRow)
             End   While
             Return  dataSet
         End Function

Ù* <—f`