Exportação de Dados Progress para (.txt)

Discussão em 'Progress 4GL' iniciado por homerswat, Abril 19, 2013.

  1. homerswat

    homerswat Sem Pontuação

    Boa tarde,

    Como posso fazer para exportar os dados que possuo em banco de dados para um (.txt)?

    O que preciso é exportar todas as tabelas e todos os campos. TODOS MESMO.


    Da forma que eu conheço eu tenho que exportar tabela a tabela. E mesmo assim não sei o que o campo representa.
    Por exemplo:

    --------------------------------------------------------------------------------------
    output to 'c:\temp\emitente.txt' convert target 'iso8859-1'.

    for each emitente:
    export delimiter ';'
    emitente.
    end.

    output close.

    Resultado:

    0;"Smart";"4414584500000000";2;2;

    Eu nao sei o que o campos significam. eu gostaria de saber.

    --------------------------------------------------------------------------------------

    Alguem saberia como posso trazer todas as tabelas e campos.

    Obrigado.
    homerswat, Abril 19, 2013
    #1
  2. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Veja se esse programa lhe ajuda.... Ele vai gerar um outro .p bem grande mas que acredito que vai resolver seu problema..

    Código:
    DEF VAR c-caminho AS CHAR.
ASSIGN c-caminho = 'c:\temp\arquivos\exporta.p'.
OUTPUT TO VALUE(c-caminho).
FOR EACH mgcad._file WHERE NOT  mgcad._file._frozen:
    PUT UNFORMATTED 'OUTPUT TO C:\TEMP\ARQUIVOS\' mgcad._file._file-name '.csv.' SKIP.
    PUT UNFORMATTED 'FIND FIRST mgcad._file WHERE mgcad._file._file-name = "' mgcad._file._file-name '" NO-LOCK NO-ERROR.' SKIP.
    PUT 'FOR EACH mgcad._field WHERE mgcad._field._file-recid = recid(mgcad._file):' SKIP.
    PUT UNFORMATTED '    PUT UNFORMATTED mgcad._field._field-name ';'.' SKIP.
    PUT UNFORMATTED 'END.' SKIP.
    PUT UNFORMATTED 'FOR EACH ' mgcad._file._file-name ':' SKIP.
    PUT UNFORMATTED '   EXPORT DELIMITER ";" ' mgcad._file._file-name '.' SKIP.
    PUT UNFORMATTED 'END.' SKIP.
    PUT UNFORMATTED 'OUTPUT CLOSE.' SKIP(2).
END.
OUTPUT CLOSE.
    Rogerio, Abril 22, 2013
    #2
  3. homerswat

    homerswat Sem Pontuação

    Boa tarde Rogério,

    Foi quase, ele não criou o CSV com os resultados da tabela.


    OUTPUT TO C:\TEMP\ARQUIVOS\emitente.csv.
    FIND FIRST mgcad._file WHERE mgcad._file._file-name = "emitente" NO-LOCK NO-ERROR.
    FOR EACH mgcad._field WHERE mgcad._field._file-recid = recid(mgcad._file):
    PUT UNFORMATTED mgcad._field._field-name .
    END.
    FOR EACH emitente:
    EXPORT DELIMITER ";" emitente.
    END.
    OUTPUT CLOSE.
    homerswat, Abril 29, 2013
    #3

Compartilhe esta Página