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

Vídeo - Aprenda sobre filtragens

Uma ajuda para quem está começando um negócio ou um projeto

Vídeo - Programação de relatórios - Parte 1

Desabilitando a faixa(ribbon) superior do Access

Adquira o kit UsandoAccess e aprenda em alta velocidade

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |

Não há comentário

Usando Access

Transferir um Recordset para um arquivo txt, utilizando o DAO