Exeporta banco paradox para TXT

[marvazoler 0]

Olá galera beleza?

 

Alguem teria um script para exportar paradox para txt?

 

Desde já agradeço

[Marcelo R Moura 0]

cara...

 

não sei se o delphi tem algum componente nativo que faça a exportação não... mas é teta de fazer... seguinte

 

procedure ExportaTabela;

var

Arquivo : TextFile;

nomeArq : String;

cont :integer;

Dados :string;

begin

 

Nomearq := 'C:\TABELA.TXT'; // SEU ARQUIVO SERÁ CHAMADO TABELA.TXT E ESTARÁ NA RAIZ DO C:

AssignFile(vArquivo, nomeArq);

Rewrite(vArquivo);

 

Query1.SQL.text := 'SELECT CLI_ID, CLI_NOME FROM Tab_Cliente'; // estou suponde que sua tabela cliente tem 2 campos apenas... você vai colocar *

Query1. Open;

 

for cont := 1 to query.recorcount - 1 do

begin

Dados := query1.FieldByName('CLI_ID').AsString + ','query1.FieldByName('CLI__NOME ').AsString; //usei uma virgula para separar os campos... e você vai

colocando aqui todos os campos da sua tabela...

Writeln(Arquivo, Dados);

 

Query1.Next;

 

end;

 

query1.close;

CloseFile(Arquivo);

 

end;

 

...

 

é isso ae... nao testei, depois diz pra gente o que deu...