Sql 从VB导出为xml

我有以下代码：

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文件时单击。

System.IO.file.writealText（“c:\temp\someXml.XML”，TextBoxXml.text）

您的问题让人困惑，能否尝试将其重写得更清楚。您好，我找不到更清楚的方法。要么使用XML库编写，要么自己做一些愚蠢的字符串连接。这不是一个真正的编程问题。对不起，我会考虑更多我的问题。谢谢@paul，我会试试这个。嗨@paul，现在我发现我想我遗漏了一些关于xml文档的东西，xml头。如何显示？xml声明未存储在SQL server中，因此您必须在所有结果的开头添加

。请原谅我的无知@paul，但我该如何做？

Dim xmlWithDeclaration As String=“”+TextBoxXml.Text