Binaryworld - Convert DataReader to DataTable ... [ VB.net -> ADO.net ]

There is no direct way to convert dataraeader to datatable in ADO.net so I wrote this function which is really handy.

Happy Prpgramming...

Click here to copy the following block

Public Function ConvertDataReaderToDataTable(ByVal reader As SqlDataReader) As DataTable
  Dim schemaTable As DataTable = reader.GetSchemaTable()
  Dim dt As DataTable = New DataTable
  Dim intCounter As Integer

  For intCounter = 0 To schemaTable.Rows.Count - 1
    Dim dr As DataRow = schemaTable.Rows(intCounter)
    Dim columnName As String = CType(dr("ColumnName"), String)
    Dim column As DataColumn = New DataColumn(columnName, CType(dr("DataType"), Type))
    dt.Columns.Add(column)
  Next

  While reader.Read()
    Dim dr As DataRow = dt.NewRow()
    For intCounter = 0 To reader.FieldCount - 1
      dr(intCounter) = reader.GetValue(intCounter)
    Next
    dt.Rows.Add(dr)
  End While
  Return dt
End Function