Login:

iMasters | Por uma internet mais criativa e dinâmica

Feeds

XML

Feed da seção XML

Newsletter de XML


Quarta-feira, 29/10/2003 - 03:59 - Por Luciano Correa
Seções relacionadas:

XML no Visual Basic

Olá pessoal, como foi o fim de semana?

Para a comunidade iMasters foi muito bom, eu diria que foi ótimo. O primeiro Congresso da nossa comunidade foi um sucesso.

Esta semana criaremos uma arquivo XML no Visual Basic usando o Stream do ADO.
O banco de dados que vamos usar neste exemplo foi feito em ACCESS, mas isso não impede que você use outro banco. Por isso não vou criar o banco nesta matéria, vou deixar a critério de vocês.

No Visual Basic crie um novo Projeto com nome de VBXML, renomeie o Form1 para frmXML e insira um Módulo com o nome de modCnn, como mostra a figura abaixo:

Agora vamos criar dentro do Módulo o código de conexão com o banco como mostram as linhas abaixo:

Option Explicit

Global cn As ADODB.Connection
Global rs As ADODB.Recordset

Private Sub Main()
Dim strArquivo As String
Dim strLocal As String
Dim Conecta As String

DoEvents
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

strArquivo = "cadastro.mdb"
strLocal = App.Path
Set cn = CreateObject("ADODB.Connection")
Conecta = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & strArquivo & ";" & _
"DefaultDir=" & strLocal & ";" & _
"Uid=Admin;Pwd=;"

cn.Open Conecta

Load frmXML
frmXML.Show
End Sub

Não esqueçam de fazer referência ao ADO para usar a conexão com o banco e o Stream, como mostra a figura abaixo:

Voltando ao form frmAgenda modele-o desta forma:

Com três botões e um TextBox. Mas altere a propriedade MultiLine deste TextBox para True.

Codifique o frmXML da seguinte forma:

Private Sub cmdGerar_Click()
Dim oStream As ADODB.Stream
Dim ArquivoXML As String

txtXML.Text = ""
Set rs = CreateObject("ADODB.Recordset")
rs.Open "select * from cliente", cn, adOpenKeyset, adLockOptimistic

Set oStream = New ADODB.Stream
rs.Save oStream, adPersistXML

ArquivoXML = oStream.ReadText

oStream.Close
Set oStream = Nothing

txtXML.Text = ArquivoXML

rs.Close
End Sub

Private Sub cmdLimpar_Click()
txtXML.Text = ""
End Sub

Private Sub cmdSair_Click()
Unload Me
End Sub

Para finalizar, no menu principal clique em Project, depois em VBXML Properties e na tela de propriedades altere a propriedade Startup Object: para Sub Main.

Por enquanto é só pessoal. Um abraço a todos e até a semana que vem.

Todos os artigos de Luciano Correa

0 comentários publicados

Poste um comentário


Os textos publicados neste espaço são de responsabilidade única de seus autores (colunistas e leitores) e podem não expressar necessariamente a opinião do iMasters.

Sobre o autor

Luciano Correa é certificado MCP pela Microsoft, Analista e desenvolvedor Visual Basic, ASP e SQL-Server.


Indique para um amigo

captcha

TI SHOP Produtos iMasters

  • Lançamento: CD-ROM Treinamento Aplicado de SQL - Lançamento! Treinamento Aplicado de SQL - Aprenda a trabalhar com SQL com bancos de dados Oracle e SQL Server. São mais de 100 tópicos explicados por Mauro Pichilliani, um articulistas mais lidos do iMasters. Aproveite! Apenas R$ 69,90 no TI SHOP.
  • Lançamento: Livro iMasters "O Encontro de 2 Mundos"- Este livro conta com 56 crônicas de profissionais mais admirados e influentes do mercado brasileiro de Internet. Aproveite o preço especial para leitores do iMasters. Apenas R$ 40,00 e envio imediato!
  • DVD Curso Completo de Photoshop - Do conceito à finalização Lançamento! Curso Completo de Photoshop, em DVD, com mais de 230 aulas dividas em 4 módulos: conceito, básico, avançado e finalização. Apenas R$ 69,50 no TI SHOP - Frete com 50% de desconto
  • DVD Javascript Starter - Curso Completo Com mais de 9 horas de vídeo-aulas, é um curso completo sobre Javascript. Ideal para quem deseja aprender a linguagem. Apenas R$ 64,90 no TI SHOP - Frete com 50% de desconto!

2001 - iMasters FFPA Informática Ltda - Todos os direitos reservados.