将数据集保存为xml后发现文档编码和根元素需要修改,请教怎么修改后重新生成xml
将数据集保存为xml后发现文档编码和根元素需要修改,请问如何修改后重新生成xml
本帖最后由 xyk21 于 2012-08-27 16:07:27 编辑 附Visual Basic 2005代码
程序主要是想调用sql2005存储过程查询出特定的数据后,导出为xml,但默认的xml文件中编码和根元素需要修改
------解决方案--------------------
程序主要是想调用sql2005存储过程查询出特定的数据后,导出为xml,但默认的xml文件中编码和根元素需要修改
------解决方案--------------------
谁能回答下么,大虾们,谢谢了
本帖最后由 xyk21 于 2012-08-27 16:07:27 编辑 附Visual Basic 2005代码
Imports System.Data.SqlClient
Public Class frmMain
Dim Conn As SqlConnection
Dim Comm As SqlCommand
Private Sub btnRUN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRUN.Click
Try
Conn = New SqlConnection("data source=(local);initial catalog=test20120821;integrated security=false;user id=sa;password=123456")
Conn.Open()
Comm = New SqlCommand("sbp_br_outxml", Conn)
Comm.CommandType = CommandType.StoredProcedure
If cbbSJLX.Text = "销售" Then
Comm.Parameters.Add("@leibie", SqlDbType.VarChar, 2).Value = "XS"
ElseIf cbbSJLX.Text = "进货" Then
Comm.Parameters.Add("@leibie", SqlDbType.VarChar, 2).Value = "JH"
End If
Comm.Parameters.Add("@rq1", SqlDbType.VarChar, 20).Value = dtpSTART.Text
Comm.Parameters.Add("@rq2", SqlDbType.VarChar, 20).Value = dtpEND.Text
Dim ds As New DataSet()
Dim ad As New SqlDataAdapter(Comm)
Try
ad.Fill(ds, "test")
dgvDATA.DataSource = ds.Tables("test")
Catch ex As Exception
End Try
Comm.ExecuteNonQuery()
ds.WriteXml("xyk.xml")
Conn.Close()
Catch ex As Exception
End Try
End Sub
End Class
程序主要是想调用sql2005存储过程查询出特定的数据后,导出为xml,但默认的xml文件中编码和根元素需要修改
------解决方案--------------------
程序主要是想调用sql2005存储过程查询出特定的数据后,导出为xml,但默认的xml文件中编码和根元素需要修改
------解决方案--------------------
谁能回答下么,大虾们,谢谢了