20 | 09 | 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

Sign up now and upload your code to the website.

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