sql - VB から xml にエクスポート

Question

私は次のコードを持っています：

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles     Button1.Click
        Dim cnn As New SqlConnection("Server=test;uid=sa;pwd=1234;database=empatic")
        Dim da As New SqlDataAdapter("select * from producte for xml path('producte'), root('Productes')", cnn)
        Dim ds As New DataSet
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)
        Dim a As String = ds.Tables(0).Rows(0).Item(0).ToString
        Dim x = XDocument.Parse(a)
        Dim s = x.ToString()
        TextBoxXml.Text = s
    End Sub
End Class

このコードは、SQL テキストの内容をフレームに表示します。私が今したいのは、別のボタンを作成し、フレームテキストにリストされたコンテンツを含む XML ファイルを生成するときにクリックすることです。

Answer 1

System.IO.File.WriteAllText("c:\temp\someXml.xml", TextBoxXml.Text)