導出到XML從VB

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)