SQLDataAdapter + Generate XML 檔案

 

   SQLDataAdapter + Generate XML 檔案
 
   Imports System.Data.SqlClient
 
   Private Sub Write_XML_Data()
 
      Dim connectionString1 As New SqlConnectionStringBuilder
      connectionString1.DataSource = "<SQL Server Instance Host Name>"
      connectionString1.InitialCatalog = "<SQL Server Database>"
      connectionString1.UserID = "<SQL Server Account>"
      connectionString1.Password = "<SQL Server Account Passwd>"
 
      Dim con1 As SqlConnection = New SqlConnection
      con1.ConnectionString = connectionString1.ConnectionString
      con1.Open()
 
      Dim SqlString1 As String = "SELECT * FROM dbo.Player"
 
      Dim Adapter As New SqlDataAdapter(SqlString1.ToString(), con1)
      Dim ds As New DataSet
 
      Adapter.Fill(ds)
      ds.WriteXml("./Player.xml")
 
      ds.Dispose()
      con1.Dispose()
 
   End Sub