Charger un datatable à partir d'un datareader

Le code suivant vous montre comment charger un datareader dans un datatable :


Dim cnx As New OleDbConnection(strCnx)
cnx.Open()

Dim cmd As New OleDbCommand("select * from ....", cnx)
Dim dr As OleDbDataReader = cmd.ExecuteReader

Dim dt As New DataTable
dt.Load(dr)