Transferir um Recordset para um arquivo txt, utilizando o DAO
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Observe a lista abaixo que é o resultado de uma consulta:
Palavra | Sinônimo |
---|---|
Renovar | Melhorar |
Renovar | Aperfeiçoar |
Renovar | Esmerar |
Trajetória | Caminho |
Trajetória | Carreira |
Rodar | Girar |
Rodar | Virar |
O objetivo neste exemplo é gerar um arquivo txt, com a seguinte formatação:
Renovar ={"Melhorar","Aperfeiçoar","Esmerar"} Trajetória ={"Caminho","Carreira"} Rodar ={"Girar","Virar"}
Acompanhe os comentários do código que abre o Recordset da consulta e monta as linhas do txt, conforme o layout desejado:
Private Sub btCriarTxt_Click() Dim rs As DAO.Recordset Dim strLinha As String Dim strPalavra As String
'-------------------------------------------
'Abre o Recordset da consulta, utilizando o DAO
'------------------------------------------- Set rs = CurrentDb.OpenRecordset("qrySinonimos")
'--------------------
'Cria o arquivo txt
'------------------- Open "c:\MinhaPasta\meuArquivo.txt" For output As #1
'-------------------------------------------------
'Inicia um loop por todos os registros da consulta
'-------------------------------------------------
Do While Not rs.EOF strPalavra = rs!palavra
'--------------------------------------------------------
'Armazena na variável, a formatação inicial de cada linha
'-------------------------------------------------------- strLinha = rs!palavra & " ={"
'----------------------------------------------------
'Agrupa os valores do campo sinônimo da palavra atual
'----------------------------------------------------- Do While strPalavra = rs!palavra strLinha = strLinha & Chr(34) & rs!sinonimo & Chr(34) & "," rs.MoveNext If rs.EOF Then Exit Do Loop
'-------------------------------------------------------------------
'Monta a formatação final da palavra com os seus sinônimos agrupados
'-------------------------------------------------------------------- strLinha = Left(strLinha, Len(strLinha) - 1) strLinha = strLinha & "}"
'--------------------------------
'Grava a montagem da linha no txt
'-------------------------------- Print #1, strLinha Loop rs.Close Set rs = Nothing Close #1 MsgBox "Montagem concluída...", vbInformation, "Aviso" End Sub
Clique aqui e baixe o exemplo para você testar e praticar.
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Como carregar o seu menu sem que ele vá para lista de suplementos
Não há comentário |