Pessoal,
Alguns leitores me enviaram e-mails solicitando ajuda para colocar o código do post Gerando arquivos XML com SQL Server em um aplicativo .NET e como sempre eu faço o possível para ajudar, abaixo esta o código em VB.NET.
Para criar esse código eu utilizei o Visual Studio 2010 e criei um Console Application. Para quem quiser fazer o download da versão beta é só clicar aqui, porém esse código irá rodar sem problemas no Visual Studio 2008.
Imports System.Data.SqlClient
Imports System.Xml
Module Module1
Sub Main()
Dim lSQL As String = “select * from HumanResources.Department for xml auto”
Dim lConexao As String = “Data Source =(local); integrated security=SSPI; Initial Catalog=Adventureworks;”
Dim lCon As New SqlClient.SqlConnection(lConexao)
Dim lCmd As New SqlCommand(lSQL, lCon)
lCon.Open()
Dim lrXml As XmlReader = lCmd.ExecuteXmlReader()
Console.WriteLine(“<?xml version=1.0 encoding=ISO-8859-1?>”)
Console.WriteLine(“<Departament>”)
While (lrXml.Read())
Console.WriteLine(lrXml.ReadOuterXml())
End While
Console.WriteLine(“</Departament>”)
lrXml.Close()
End Sub
End Module
Pessoal, não preciso nem concluir não é? Muito fácil, mas se houver alguma dúvida é só pedir.
Abraço, Rodrigo