VB.Net by API/System.Xml/XmlReader

Материал из VB Эксперт
Перейти к: навигация, поиск

XmlReader.ReadOuterXml()

<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Xml Imports System.Windows.Forms Imports System.Data.SqlClient

Public Class MainClass

   Shared Dim WithEvents con As SqlConnection
   Shared Sub Main()
       con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") 
       Dim cmd As New SqlCommand()
       cmd.rumandText = "SELECT * FROM Employee FOR XML AUTO, XMLDATA"
       cmd.Connection = con
       Try
           con.Open()
           Dim reader As XmlReader = cmd.ExecuteXmlReader()
           While reader.Read()
               Console.WriteLine(reader.ReadOuterXml())
           End While
           reader.Close()
       Finally
           con.Close()
       End Try
   End Sub

End Class


 </source>