无数据表映射的DataSet数据保存到数据库

(声明：魏滔序原创，转贴请注明出处。)
题目有些拗口，但是为了节省时间，就不在题目上花费精力了。
我这里说的DataSet数据不是经过DataAdapter进行Fill的，一般是WebService返回值或动态创建的或者是其他原因产生与数据库脱离关系的。
言归正传。
虽然我上面已经阐明DataSet与数据库没关系了，但是我们的目的是要把DataSet的数据保存到数据库，这里我们就来个借尸还魂术。

先建立一个DataSet并建立与数据表之间的映射，方法就是用DataAdapter的Fill。
Dim MyCn As New OleDbConnection(略)
Dim MyDs As New DataSet
Dim SQL As String = "SELECT * FROM [" & TableName & "] WHERE 1=0" '注意：这里仅为了与表建立映射，条件为1=0的目的是不返回任何记录。字段名必须与DataSet一致。
Dim MyDa As OleDbDataAdapter = New OleDbDataAdapter(SQL, MyCn)
MyDa.Fill(MyDs)

Ok,我们现在对MyDs成功进行了映射，下面的工作就是把DataSet数据加载到MyDs。
MyDs.ReadXml(New System.IO.StringReader(DataSet.GetXml), XmlReadMode.IgnoreSchema)
还魂完毕，注意后面的IgnoreSchema参数，这个是为了忽略DataSet的内联架构，为的是提高效率。因为上面我们做数据表映射的同时已经产生架构了。

现在的MyDs中就保存了DataSet的数据，就剩下一个工作了---更新到数据库。
Dim MyCb As New OleDbCommandBuilder(MyDa)
MyDa.Update(MyDs, 0)

运行一下看看结果，祝你好运。