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 |