Sería algo como esto, pero necesitas cuidar más detalles, espero que te sirva de base:
Código:
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Dim command as New SqlCommand("select des from foo", _
New SqlConnection("server=localhost;pwd=;uid=sa;database=test;"))
Dim ds as New DataSet
Sub cmdWrite_Click(sender As Object, e As EventArgs)
Dim da as New SqlDataAdapter
da.SelectCommand=command
da.Fill(ds,"foo")
Response.Write(Server.MapPath("./") & "/foo.xml")
ds.WriteXml(Server.MapPath("./") & "/foo.xml")
End Sub
Sub cmdUpdate_Click(sender As Object, e As EventArgs)
ds.Clear
ds.ReadXML(Server.MapPath("./") & "/foo.xml")
Dim da as New SqlDataAdapter
command.Parameters.Add(New SqlParameter("@des",System.Data.SqlDbType.VarChar, 255, "des"))
command.CommandText="update foo set des = @des"
da.UpdateCommand=command
command.CommandText="insert foo(des) values(@des)"
da.InsertCommand=command
da.Update(ds,"foo")
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<asp:Button id="cmdUpdate" onclick="cmdUpdate_Click" runat="server" Text="Actualizar"></asp:Button>
<asp:Button id="cmdWrite" onclick="cmdWrite_Click" runat="server" Text="Write XML"></asp:Button>
</form>
</body>
</html>
Saludos