#眉標=資料庫
#副標=如何解決資料欄位轉換對照問題
#大標=ADO.NET的欄位對應處理

     ===============<box>================
Imports System.Data.Common
Imports System.Data.SqlClient
…
Dim sdaCustomers As SqlDataAdapter
Dim strSQL As String = _
	"SELECT CustomerID, CompanyName, ContactName FROM Customers"
Dim strConnString As String = _
	"Data Source=(local);Initial Catalog=Northwind;Integrated Security=SSPI"
sdaCustomers = New SqlDataAdapter(strSQL, strConnString)
     ================<end>==================
     
     =============<box>=================
Dim dtmCustomers As DataTableMapping = _
	sdaCustomers.TableMappings.Add("Customers", "客戶")
=======================<end>=============================
     
     =============<box>=================
Dim dcmColumn As DataColumnMapping
dcmColumn = New DataColumnMapping("CustomerID", "客戶代號")
dtmCustomers.ColumnMappings.Add(dcmColumn)
dcmColumn = New DataColumnMapping("CompanyName", "公司名稱")
dtmCustomers.ColumnMappings.Add(dcmColumn)
dcmColumn = New DataColumnMapping("ContactName", "聯絡人")
dtmCustomers.ColumnMappings.Add(dcmColumn)
===========================<end>======================
     
     =============<box>================
dtmCustomers.ColumnMappings.AddRange(New DataColumnMapping() _
 {New DataColumnMapping("CustomerID", "客戶代號"), _
  New DataColumnMapping("CompanyName", "公司名稱"), _
　New DataColumnMapping("ContactName", "聯絡人")})
　=====================<end>=============================
     
   
     ===============<box>========================
Dim dtCustomers As New DataTable("客戶")
sdaCustomers.Fill(dtCustomers)
DataGrid1.DataSource = dtCustomers
     =================<end>=======================
    
     ============<box>==============
Dim dsNorthwind As New DataSet
sdaCustomers.Fill(dsNorthwind, "Customers")
DataGrid1.DataSource = dsNorthwind
Dim dt As DataTable
DataGrid1.DataMember = "客戶"
==================<end>========================
     
     
     =============<box>=================
Dim objService As New localhost.CompanyInfo
Dim strXML As String = objService.GetCompanyInfoByID(1)
Dim srXML As New StringReader(strXML)
Dim dsNew As New DataSet
dsNew.ReadXml(srXML, XmlReadMode.Auto)
     ================<end>===================
   
     ==============<box>================
Dim sdaCustomers As SqlDataAdapter
Dim strSQL As String = _
	"SELECT CustomerID, CompanyName, ContactName FROM Customers"
Dim strConnString As String = _
	"Data Source=(local);Initial Catalog=Northwind;Integrated Security=SSPI"
sdaCustomers = New SqlDataAdapter(strSQL, strConnString)

' 準備對應命令物件
Dim cbCustomers As New SqlCommandBuilder(sdaCustomers)
================<end>======================
     
     ================<box>===================
' 安排資料表對照關係
Dim dtmCustomers As DataTableMapping = _
	sdaCustomers.TableMappings.Add("Customers", "CompanyInfo")

' 安排欄位對照關係
dtmCustomers.ColumnMappings.AddRange(New DataColumnMapping() _
 {New DataColumnMapping("CustomerID", "CompanyCode"), _
  New DataColumnMapping("CompanyName", "CompanyName"), _
  New DataColumnMapping("ContactName", "CompanyContact")})
===============<end>===================
     
     ============<box>==================
        sdaCustomers.Update(dsNew, "Customers")
     =============<end>=================