Querendo gerar arquivos XML com ADO ??
Para você gerar um arquivo no formato XML ( não sabe nem o que isto ? Leia o artigo : XML - eXtensible Markup Language - Introdução ).
Vamos gerar um arquivo XML a partir de uma tabela chamada alunos , de onde iremos exibir: o código, nome e nota de cada aluno . O banco de dados está localizado em c:\teste com o nome de escola.mdb. Agora siga o roteiro :
1-) Inicie um novo projeto no Visual Basic e no formulário padrão insira : três botões de comando , duas caixas de texto e duas labels como a figura abaixo:
2-) No evento click do botão de comando - Gera Arquivo XML - insira o seguinte código:
Private
Sub cmdGeraArquivoXML_Click() Dim aConn As ADODB.Connection Dim aRS As ADODB.Recordset ' cria uma conexão ADO Set aConn = New ADODB.Connection aConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Text1.Text ' cria um recordset ADO Set aRS = New ADODB.Recordset aRS.Open "SELECT codigo , nome , nota FROM Alunos Order by Codigo", aConn ' chama a rotina para gerar o arquivo XML Call GeraArquivoXML(aRS, "Aluno") ' fecha e libera memoria usada aRS.Close Set aRS = Nothing ' fecha e limpa conexao aConn.Close Set aConn = Nothing MsgBox "O arquivo XML 'saida.xml' foi criado em " & Text2.Text, vbInformation, "Gerando arquivos XML" End Sub |
3-) A função que faz o serviço - GeraArquivoXML - tem o seguinte código: (Insira-a no formulário padrão)
Public
Sub GeraArquivoXML(ByVal RS As ADODB.Recordset, Optional
ByVal RecordName As String = "item") |
Será gerado o arquivo saida.xml no diretório informado em text2.txt.
Para ver o resultado apenas clique no arquivo saída e seu Navegador irá exibir o conteúdo do arquivo XML. Veja abaixo:
Gostou até mais ...!!!
Gostou ? Compartilhe no Facebook Compartilhe no Twitter
Referências:
Super DVD Vídeo Aulas - Vídeo Aula sobre VB .NET, ASP .NET e C#