VB.Net/Data Structure/Column Map

Материал из VB Эксперт
Перейти к: навигация, поиск

Use DataColumnMapping to Map column

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

<A href="http://www.vbex.ru/Code/VBDownload/Employee.zip">Employee.zip( 7 k)</a>