DataReader на пустой DataTable

Question

Учитывая существующий DataReader (в данном случае OleDbDataReader), я могу построить DataTable с помощью DataTable.Load:

// C# 
OleDbDataReader dr = SomeMethodThatReturnsADataReader(); 
var dt = new DataTable(); 
dt.Load(dr); 

' VB.NET 
Dim dr As OleDbDataReader = SomeMethodThatReturnsADataReader(); 
Dim dt = New DataTable() 
dt.Load(dr); 

Однако это загружает данные из DataReader в DataTable ,

Я хочу создать DataTable, который соответствует структуре существующего DataReader, но не содержит данных.

Как я могу это сделать?

Редактировать

На дальнейших размышлений, я понимаю, нет встроенного метода, чтобы сделать это. Однако может ли проблема разбиться на две части?

1. Извлечение информации схемы из DataReader
2. нагрузки этой схемы информации в новую DataTable

Answer 1

The DataAdapter Class, который является базовым классом OleDbDataAdapter и других, имеет Protected FillSchema Method, который принимает IDataReader, чтобы заполнить пустую схему DataTable в соответствии с полями читателя.

Чтобы использовать эту функцию, вам нужно построить небольшой класс утилиты.

Friend Class ReaderAdapter 
    Inherits System.Data.Common.DataAdapter 

    Public Function GetTypedTable(dataReader As IDataReader) As DataTable 
     Dim ret As New DataTable 
     FillSchema(ret, Data.SchemaType.Source, dataReader) 
     Return ret 
    End Function 
End Class 

Пример использования:

Dim rdr As OleDb.OleDbDataReader = cmd.ExecuteReader 
Dim ra As New ReaderAdapter() 
Dim emptyTypedTable As DataTable = ra.GetTypedTable(rdr)