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

这段代码在 Frame 中显示 SQL 文本的内容是什么？我现在想要的是创建另一个按钮，然后在我生成一个包含框架文本中列出的内容的 XML 文件时单击。

Answer 1

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