Hi JorgeEnciso-6991,
Please try the following.
VB.NET
Sub Main
Const FILENAME As String = "e:\temp\file_ADO.NET.VB.xml"
Dim builder As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
builder.DataSource = "SPACESHIP,1433"
builder.InitialCatalog = "AdventureWorks2012"
builder.IntegratedSecurity = True
builder.ApplicationName = "Wonderful application"
builder.NetworkLibrary = "dbmssocn"
builder.PacketSize = 32768
Using con As SqlConnection = New SqlConnection(builder.ConnectionString)
Using cmd As SqlCommand = New SqlCommand()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT TOP(2) * FROM Person.Person FOR XML PATH('r'), TYPE, ROOT('root')"
con.Open()
Using reader As XmlReader = cmd.ExecuteXmlReader()
Dim xdoc As XDocument = XDocument.Load(reader)
Dim settings = New XmlWriterSettings()
settings.Indent = True
settings.OmitXmlDeclaration = False
settings.IndentChars = Microsoft.VisualBasic.Constants.vbTab
settings.Encoding = New UTF8Encoding(False)
Using writer = XmlWriter.Create(FILENAME, settings)
xdoc.Save(writer)
End Using
End Using
Console.WriteLine("File '{0}' has been created.", FILENAME)
End Using
End Using
End Sub