VB.NET tableadapter 查询从另一个数据集插入

Question

我有一种情况，我想从 MS SQL 表插入访问数据库表。 相同的列和所有内容。 我有两个数据集和两个表适配器。我可以在每个数据集中做任何我想做的事情——任何操作，但我不能从一个表插入到另一个表。 我尝试为目标 tableadapter 创建插入查询，但无法正常工作。尝试链接，没有任何效果。

搜索了几天，根本找不到。

感谢您的回答。你能帮我举个例子吗？我在设置时遇到了麻烦。这是我得到的：

Dim myToTableTableAdapter As FirstDataSetTableAdapters.ToTableTableAdapter
myToTableTableAdapter = New FirstDataSetTableAdapters.ToTableTableAdapter()
Dim myFromTableTableAdapter As SecondDataSetTableAdapters.FromTableTableAdapter       
myFromTableTableAdapter =  New SecondDataSetTableAdapters.FromTableTableAdapter()

myFromTableTableAdapter = myToTableTableAdapter.Clone
'but it doesnt work from here`

我想做的是：

For each drfrom As DataRow In myFromTableTableAdapter.GetData

myToTableTableAdapter.InsertInto(drfrom.item(column01), drfrom.item(column02), drfrom.item(andSoOn))

Next

但在我看来，这比“从选择中插入”脚本花费的时间要长得多。

Answer 1

您不能将一个表中的一行插入到另一个表中，但是有几种方法可以做您想做的事情。一种方式（有点冗长）是这样的：

' sets it up with same schema but empty rows
 mOutTable = inTable.Clone  

'  Now insert the rows:
 For Each rowIn In inTable.Rows    
     r = mOutTable.NewRow()    
     For Each col In inTable.Columns
          r(col.ColumnName) = rowIn(col.ColumnName)    
     Next    
     mOutTable.Rows.Add(r) 
Next
mOutTable.AcceptChanges

第二种更简洁的方法是：

  outTable = inTable.Clone  
  For Each inRow As DataRow In inTable.Rows
        outTable.LoadDataRow(inRow.ItemArray, False)
  End If

  outTable.AcceptChanges

请注意，inTable 和 outTable 都是 ADO.NET DataTable 对象。您无法在 DataAdapter 对象上实施我的建议。您必须使用 DataTable 对象。每个 DataTable 都可以按照 ADO.NET 的标准方式与一个 DataAdapter 相关联：

 Dim t as New DataTable()
 a.Fill(t);

其中 a 是 ADO.NET 数据适配器。我希望这有帮助！ 吉姆