iMasters | Por uma internet mais criativa e dinâmica

Quinta-feira, 06/11/2003 - 03:59 - Por Luciano Correa
Seções relacionadas:

• V. Basic

• Imprimir
• Indicar
• Digg it
• Del.icio.us
• Twitter
• 0 comentários

Esta semana vamos criar uma arquivo XML fisicamente no Visual Basic usando o ADO, e depois ler este arquivo em um ListView.

O banco que usei para este exemplo esta diponível para download aqui.

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 = "agenda.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 2.5 (Microsoft ActiveX Data Objects 2.5 Library) para usar a conexão com o banco e criar o XML, e ao File System Object (Microsoft Scripting Runtime) para criar o XML fisicamente em uma determinada pasta, como mostra a figura abaixo:

Voltando ao form frmXML modele-o como mostra a figura abaixo:

Para incluir um ListView, no menu principal clique em Project/Components e selecione o ítem Microsoft Windows Common Controls 6.0 (SP6), como mostra a figura abaixo:

Na barra de componente, dê um duplo clique em ListView, como mostra a figura abaixo:

Selecione o ListView que acabou de inserir, vá em properties e renomeie para lstAgenda, como mostra a figura abaixo:

Agora clique em Custom, e, em Column Headers, crie 4 campos: Código, Nome, Endereço e Telefone, como mostra a figura abaixo:

Codifique o frmXML da seguinte forma:

Dim strArq As String
Dim fso As New FileSystemObject

Private Sub cmdCriar_Click()
lstAgenda.ListItems.Clear

strArq = App.Path & "Agenda.xml"
'Se o arquivo existe, é excluído para criar um novo
If fso.FileExists(strArq) Then fso.DeleteFile (strArq)

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

rs.Save strArq, adPersistXML
rs.Close

MsgBox "Arquivo criado com sucesso.", vbInformation
End Sub

Private Sub cmdLer_Click()
Dim Item As ListItem

strArq = App.Path & "Agenda.xml"
'Se o arquivo ainda não foi criado, esse filtro se encarrega
'de chamar a rotina de criação do XML antes de ler
If Not fso.FileExists(strArq) Then
Call cmdCriar_Click
End If

Set rs = CreateObject("ADODB.Recordset")

'Limpar lista
lstAgenda.ListItems.Clear
With rs
.Open strArq, "Provider=MSPersist"

Do Until rs.EOF
Set Item = lstAgenda.ListItems.Add(, , rs("codigo"))
Item.SubItems(1) = rs("nome")
Item.SubItems(2) = rs("end")
Item.SubItems(3) = rs("fone")

rs.MoveNext
Loop
End With
'desmarca a lista
lstAgenda.SelectedItem.Selected = False
End Sub

Private Sub cmdSair_Click()
cn.Close
Unload Me
End Sub

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

Todos os artigos de Luciano Correa

22/07/2004 - Banco MS Access / Arquivo texto 27/11/2003 - Estatística e Visual Basic 13/11/2003 - XML no Visual Basic - Parte Final 06/11/2003 - XML no Visual Basic - Parte 2 29/10/2003 - XML no Visual Basic 20/10/2003 - MDIForm / MDIChild / Menu - Final 14/10/2003 - MDIForm / MDIChild / Menu 06/10/2003 - Menu/TabStrip 29/09/2003 - Menu Vertical 25/09/2003 - Menu 15/09/2003 - Sistema de Controle de Acesso - Parte Final 08/09/2003 - Sistema de Controle de Acesso - Parte 4 02/09/2003 - Sistema de Controle de Acesso - Parte 3 26/08/2003 - Sistema de Controle de Acesso - Parte 2 19/08/2003 - Sistema de Controle de Acesso - Parte 1 04/08/2003 - Arquivo texto / Banco MS Access 28/07/2003 - ComboBox / ListView 22/07/2003 - Conexão com Banco de Dados - Parte Final 15/07/2003 - Conexão com Banco de Dados - Parte 03 07/07/2003 - Conexão com Banco de Dados - Parte 02 01/07/2003 - Conexão com Banco de Dados - Parte 01 24/06/2003 - Criptografia, componente(DLL) para VB e ASP 17/06/2003 - Criptografia e Componente(DLL) 10/06/2003 - Criptografia

0 comentários publicados

Poste um comentário

(clique se não for cadastrado)

Login: Senha: Titulo: digite aqui seu comentário Site/blog: Enviar Receber notificação de novos comentários

Sobre o autor

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

Indique para um amigo

Escreva aqui sua mensagem! ok

Tags relacionadas

celular linux ti crescimento google youtube microsoft windows gerência design mobile web internet 3g iphone photoshop lançamento yahoo apple desenvolvimento brasil tecnologia seguranca mercado php publicidade

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!