(声明:魏滔序原创,转贴请注明出处。)
题目有些拗口,但是为了节省时间,就不在题目上花费精力了。
我这里说的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)
运行一下看看结果,祝你好运。
题目有些拗口,但是为了节省时间,就不在题目上花费精力了。
我这里说的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)
运行一下看看结果,祝你好运。