如何将 SQL Server 的数据保存到 XML 文件答案

【问题标题】：How to save data for SQL Server to XML file如何将 SQL Server 的数据保存到 XML 文件
【发布时间】：2020-09-04 15:56:50
【问题描述】：

我有一个 VB 项目和一个从 SQL Server 返回数据的函数。数据保存在变量中。我需要将数据直接插入到 XML 文件中。

我需要 vb。将数据保存到 XML 文件的代码/脚本。

如何将 SQL Server 中表中的数据保存到 XML 文件中？

谁能给我发送代码，将数据从 SQL Server 保存到 VB 中的 XML 文件，我以前从未这样做过，我不知道该怎么做。

It should be something like this 问题是文件开头不知道怎么写“-<CON xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">”

有什么建议吗？

提前致谢！

更新

这是我尝试过的，它有效，问题是我不知道如何在文件开头写“-<CON xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">”。就像我之前说的。

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim connection As SqlConnection
        Dim adapter As SqlDataAdapter
        Dim ds As New DataSet
        Dim sql As String

        connetionString = "Data Source=local\SQLSERVER;Initial Catalog=**;Integrated Security=True"
        connection = New SqlConnection(connetionString)
        sql = "select * from Users"
        Try
            connection.Open()
            adapter = New SqlDataAdapter(sql, connection)
            adapter.Fill(ds)
            connection.Close()
            ds.WriteXml("Product.xml")
            MsgBox("Done")
        Catch ex As Exception
            MsgBox(ex.ToString)


        End Try

    End Sub

【问题讨论】：

我们很乐意帮助您解决您编写并遇到困难的代码。但这不是代码生成服务。
考虑到，根据您的“问题”，您已经将数据从 SQL Server 获取到 VB，并且我假设为 XML 格式，那么您似乎是唯一的步骤缺少的是从 VB 中的变量中获取数据到存储系统上的文件。这个网站上有很多例子，还有很多其他的例子，关于如何创建文件和修改现有文件的内容。我建议使用 yoru 最喜欢的搜索引擎来搜索“在文件 VB.Net 中存储变量内容”之类的内容，您可能会找到 100 个答案。

标签： sql-server xml vb.net

【解决方案1】：

使用 Xml linq 代码如下所示

Imports System.Xml
Imports System.Xml.Linq
Module Module1

    Sub Main()
        Dim xml As String =
            "<?xml version=""1.0"" encoding=""utf-8"" ?>" & _
            "<CON" & _
            " xmlns:xsd=""http://www.w3.org/2001/XMLSchema""" & _
            " xmlns:xsi=""http://www.we.org/2001/XMLScehma-instance"">" & _
            "</CON>"


        Dim doc As XDocument = XDocument.Parse(xml)
        Dim con As XElement = doc.Root
        Dim ds As New DataSet '' this is your dataset from the database

        For Each row As DataRow In ds.Tables(0).AsEnumerable()
            Dim referena As XElement = New XElement("Referenza", New Object() { _
                    New XElement("ConNumOrd", row.Field(Of String)("ConNumOrd")), _
                    New XElement("ConDat", row.Field(Of String)("ConDat")), _
                    New XElement("ConOra", row.Field(Of String)("ConOra")) _
                    })
            con.Add(referena)
        Next row
        doc.Save("filename")
    End Sub

End Module

【讨论】：