水如烟：能将MS SQL数据导出成xml文件，但不知道如何快捷导入到SQLServer的表里。

[沐NeMo]

导出的xml文件，是从一个表导出用户选择的一些记录。如何快捷的导入到另外一个表里面，表的结构相同？难道要去分析xml文件的数据。每

个记录每个记录的去处理。进行导入到SQL Server得表里面吗。同时判断要注意记录是否已经存在。有就跳过，不更新记录。
下面就是用最笨的方法导入数据：
dt = New DataTable
dt.ReadXml(xmlFpath)
If dt.Rows.Count > 0 Then
QsCls = New QSClass
'选择的导入记录的方法：如果记录存在，跳过或强制删除两种方法。
If ImportMeths = ImportMethod.JumpNoUpdate Then
For i = 0 To dt.Rows.Count - 1
TmpItemNo = ""
TmpItemNo = dt.Rows(i)(0).ToString
If QsCls.CheckQSItemNoExist(TmpItemNo) = False Then
'导入数据，不想一行一行的导入。因为要表有40个字段。而且插入记录时候浪费资源和时间。
'有什么好方法啊？水版主。
End If
Next
End If
If ImportMeths = ImportMethod.DelAndUpdate Then
For i = 0 To dt.Rows.Count - 1
TmpItemNo = ""
TmpItemNo = dt.Rows(i)(0).ToString
If QsCls.CheckQSItemNoExist(TmpItemNo) Then
QsCls.Delete(TmpItemNo) '如果记录存在删除记录，然后插入新记录。
End If
'导入数据，也说是插入新记录吧。
Next
End If
QsCls = Nothing
End If

[水如烟]

如果两个表的结构相同

针对数据库的表建好
Dim ad As SqlDataAdapter = New ...

Dim table As New DataTable

ad.Fill(table)

dim xmlTable As New DataTable
xmlTable.ReadXml

table.Merge(xmlTable,参数)

ad.Update(table)就可以了

至于merge后头的参数选择,你自己试一下,注意的是保证merge过来的数据在dataTable中的RowStatue状态为Add就可以了.

[沐NeMo]

通过merge合并两个架构相同的表。
merge过来的数据是从一个xml文件读来的。所以他的RowStatue的状态没有是unchanged.
而且我需要的是用户决定更改所有数据就更改替换掉旧表中的数据。如果用户选择跳过相同主键的，就不更改原来相同主键记录的数据只插入原来没有而新表有是记录。
？？？

[水如烟]

        '新增数据到一个新表，目的是使行的Rowstate为Add以便DbDataAdapter进行Update
        Dim newTable As DataTable = table.Clone
        newTable.Load(table.CreateDataReader, LoadOption.Upsert)

        '指定OrderID为主键进行更新
        db.Update("Orders", newTable, New String() {"OrderID"})

[水如烟]

这句:
newTable.Load(table.CreateDataReader, LoadOption.Upsert)

[沐NeMo]

太谢谢你了。你的大公无私，感动着我。不愧是版主。
我会努力的。我在vba板块也要常帮助人（虽然现在只有一颗红星，呵呵）。
“gogo 加油。”【浪漫满屋】里面的台词。

[沐NeMo]

那么还有，这么控制更新在新表和旧表中有相同主键的记录呢？我希望是可以由用户来决定：1、删除并替换，2、跳过不更新。
是否就是MSDN说的：
instance.Merge(table, preserveChanges)
通常在一系列过程的末尾调用 Merge 方法，这些过程涉及验证更改、消除错误、使用更改更新数据源并最后刷新现有的 DataTable。
除非开发人员将 preserveChanges 参数指定为 false，否则在执行合并时，合并操作中将保留合并前对现有数据所做的更改。如果 preserveChanges 参数设置为 true，则传入值不改写现有行的 Current 行版本中的现有值。如果 preserveChanges 参数设置为 false，则传入值将改写现有行的 Current 行版本中的现有值。（这个说明，我不大理解）

1、删除并替换，就把参数 preserveChanges设为false
2、跳过不更新。参数preserveChanges=true呢。
主要针对有相同主键的记录更新问题。？？？
谢谢了。

[水如烟]

你的问题我现在也在考虑.你先试.
我的实现这个:

    Private dbsql As Global.LzmTW.Data.DatabaseHelper = New Global.LzmTW.Data.SqlSqlClientDatabase(".", "Northwind")
    Private dbexcel As Global.LzmTW.Data.DatabaseHelper = New Global.LzmTW.Data.ExcelOdbcDatabase("g:\office\new.xls")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tablename As String = "Customers"

        Dim table As DataTable = dbsql.GetDataTable(tablename)

        Dim result As Boolean = dbexcel.ImportTable(tablename, table, New String() {"CustomerID"})

        Console.WriteLine(result)

        Me.DataGridView1.DataSource = dbexcel.GetDataTable(tablename)
    End Sub

[沐NeMo]

版主考虑的这么样了啊。问题还没解决呢。
我只能用我原来的方法做呢。