... Pague apenas R$67,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Transferir um Recordset para um arquivo txt, utilizando o DAO

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!


 

 


Não há comentário

Envie seu comentário: