Imports System.Data.OleDb Imports System.Data.Common Module Module1 Sub Main() Dim dsUsers As New DataSet("Users") Try ' Define a connection object Dim dbConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=..\..\db.mdb") ' Create a data adapter to retrieve records from db Dim daUsers As New OleDbDataAdapter("SELECT ID, fn, ln, cty, st FROM tabUsers", dbConn) ' Define each column to map Dim dcmUserID As New DataColumnMapping("ID", "UserID") Dim dcmFirstName As New DataColumnMapping("fn", "FirstName") Dim dcmLastName As New DataColumnMapping("ln", "LastName") Dim dcmCity As New DataColumnMapping("cty", "City") Dim dcmState As New DataColumnMapping("st", "State") ' Define the table containing the mapped columns Dim dtmUsers As New DataTableMapping("Table", "User") dtmUsers.ColumnMappings.Add(dcmUserID) dtmUsers.ColumnMappings.Add(dcmFirstName) dtmUsers.ColumnMappings.Add(dcmLastName) dtmUsers.ColumnMappings.Add(dcmCity) dtmUsers.ColumnMappings.Add(dcmState) ' Activate the mapping mechanism daUsers.TableMappings.Add(dtmUsers) ' Fill the dataset daUsers.Fill(dsUsers) ' Declare a command builder to create SQL instructions ' to create and update records. Dim cb As New OleDbCommandBuilder(daUsers) ' Insert a new record in the DataSet Dim r As DataRow = dsUsers.Tables(0).NewRow() r("FirstName") = "Eddie" r("LastName") = "Robinson" r("City") = "Houston" r("State") = "Texas" dsUsers.Tables(0).Rows.Add(r) ' Insert the record even in the database daUsers.Update(dsUsers.GetChanges()) ' Align in-memory data with the data source ones dsUsers.AcceptChanges() ' Print successfully message Console.WriteLine("A new record has been" & _ " added to the database.") Catch ex As Exception ' Reject DataSet changes dsUsers.RejectChanges() ' An error occurred. Show the error message Console.WriteLine(ex.Message) End Try End Sub End Module |