Question

Hello I have a Datatable and with 36 columns and about 112000 records and an empty mdb file, what is the best way to add that table to the empty mdb database?

do i have to use the SQL Command CREATE TABLE and add each column manually to the created Datatable then use the SQL insert command?

is there something like SqlBulkCopy that can be used for this task?
note the Datatable is created at runtime and never been in a database most of the data is taken from XML files

Answer 1

I think the best way is to use OleDBAdapter class. You need to first build your database before you proceed this process. As it is needed by the OleDBAdapter. If you recall, you use the DataAdapter’s Fill() method to read the contents of a table in a database and fill our locally-cached DataTable object.

There are 3 steps to saving data in ADO.Net:

• Get a locally cached copy of the data with the Fill() method
• Write code (or use a control) that makes changes to the locally cached copy
• Save the changes back to the underlying database with the Update() method

Here’s the code,

Using conn As New OleDBConnection("connectionString Here")
    Using comm As New OleDBCommand()
        With comm
            .Connection = conn
            .CommandType = CommandType.CommandText
            .CommandText = "SELECT * FROM youTableName"
        End With
        Using adapter As New OleDBDataAdapter(comm)
            Dim _dataTable As New DataTable()
            adapter.Fill(_dataTable)

            'add you records here  '
            ' preferably by using loop '
            Dim _dataRow As DataRow
            _dataRow = _dataTable.NewRow()
            _dataRow("colNameA") = "valueA"
            _dataRow("colNameB") = "valueB"
            '........ '
            _dataTable.Rows.Add(_dataRow)

            Dim dt_changes As DataTable
            dt_changes = _dataTable.Changes()
            If Not IsNothing(dt_changes) Then
                Using commBuild As OleDbCommandBuilder(adapter)
                    Dim rowCount as Integer = adapter.Update(dt_changes)
                    MsgBox(rowCount  & " updated")
                End Using
            End If
        End Using
    End Using
End Using