22 | 02 | 2017

RecordSet (Adors) to Datatable

The functionbelow converts a recordset into a datatable

    Public Function RecordSetToDataTable(ByVal objRS As ADODB.Recordset) As DataTable

        Dim objDA As New OleDbDataAdapter()
        Dim objDT As New DataTable()
        objDA.Fill(objDT, objRS)
        Return objDT


    End Function
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2174926
Latest Articles