VB.Net by API/System.Data/DataTableMapping
DataTableMapping.ColumnMappings.Add
<source lang="vbnet"> Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Data.OleDb Imports System.Data.rumon Imports System.Data
Public Class MainClass
Shared Sub Main() Dim dsUsers As New DataSet("Users") Try Dim dbConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=Employee.mdb") Dim daUsers As New OleDbDataAdapter("SELECT ID, FirstName, LastName FROM Employee", dbConn) Dim dcmUserID As New DataColumnMapping("ID", "EmployeeID") Dim dcmFirstName As New DataColumnMapping("FirstName", "FirstName") Dim dcmLastName As New DataColumnMapping("LastName", "LastName") Dim dtmUsers As New DataTableMapping("Table", "Employee") dtmUsers.ColumnMappings.Add(dcmUserID) dtmUsers.ColumnMappings.Add(dcmFirstName) dtmUsers.ColumnMappings.Add(dcmLastName) daUsers.TableMappings.Add(dtmUsers) daUsers.Fill(dsUsers) Dim cb As New OleDbCommandBuilder(daUsers) Dim r As DataRow = dsUsers.Tables(0).NewRow() r("FirstName") = "Eddie" r("LastName") = "Robinson" dsUsers.Tables(0).Rows.Add(r) daUsers.Update(dsUsers.GetChanges()) dsUsers.AcceptChanges() Catch ex As Exception dsUsers.RejectChanges() Console.WriteLine(ex.Message) End Try End Sub
End Class
</source>
New DataTableMapping
<source lang="vbnet">
Imports System Imports System.Xml Imports System.Xml.Schema Imports System.IO Imports System.Data.OleDb Imports System.Data.rumon Imports System.Data
Public Class MainClass
Shared Sub DoDataMappings(ByVal da As OleDbDataAdapter) Try " Define an array of column to map Dim dcmMappedColumns() As DataColumnMapping = { _ New DataColumnMapping("ID", "EmployeeID"), _ New DataColumnMapping("FirstName", "FirstName"), _ New DataColumnMapping("LastName", "LastName")} " Define the table containing the mapped columns Dim dtmUsers As New DataTableMapping("Table", "Employee", _ dcmMappedColumns) " Activate the mapping mechanism da.TableMappings.Add(dtmUsers) Catch ex As Exception " An error occurred. Show the error message Console.WriteLine(ex.Message) End Try End Sub Shared Sub Main() Try " Define a connection object Dim dbConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=Employee.mdb") " Create a data adapter to retrieve records from db Dim daUsers As New OleDbDataAdapter("SELECT ID, FirstName, LastName FROM Employee", dbConn) Dim dsUsers As New DataSet("Employee") DoDataMappings(daUsers) " Fill the dataset daUsers.Fill(dsUsers) " Go through the records and print them using the mapped names Dim r As DataRow For Each r In dsUsers.Tables("Employee").Rows Console.WriteLine("ID: {0}, FirstName: {1}, LastName: {2}", r("EmployeeID"), r("FirstName"), r("LastName")) Next Catch ex As Exception " An error occurred. Show the error message Console.WriteLine(ex.Message) End Try End Sub
End Class
</source>