Exportar Dados para TXT, Alquem por favor poderia me ajudar

Question

Galera, eu tenho 3 tabelas em uma base de dados com um sitema rodando, e tem uma tabela que possui 26.000 linhas e alguns usuarios precisam dess tabela em Excel, hj eu exibo toda essa tabela no meu gr...

Woinch · Answer

Que c�digo voc� est� utilizando para montar o arquivo de exporta��o?...

Vitor Alcantara · Answer

Via TextFile[code:1:e3a11f73c4]var  f: TextFile;begin  AssignFile(f,�Nome do seu arquivo.txt�);  Rewrite(f);  Write(f,�Insere no arquivo e continua na mesma linha. �);  WriteLn(f,�Come�a na mesma linha e pula para pr�xima.�);  CloseFile(f);end;[/code:1:e3a11f73c4]Via StringList;[code:1:e3a11f73c4]Var  lst : TStrings;begin  Try     Lst := TStringList.Create;     Lst.Add(�Linha1);     Lst.Add(�Linha2�);     Lst.SaveToFile(�Nome do seu arquivo.txt�);  Finally     Lst.Free;  end;end;[/code:1:e3a11f73c4]...

Cleiflavio · Answer

deixa eu explicar melhor.Eu tenho que exportar todos meus dados da minha tabela de banco de dados para um txt.eu tenho uma tabela com 26.000 linhas e n�o posso ler linha a linha tem que haver um jeito de eu Selecionar a tabela e exportar toda ela para um txt. � isso que eu quero fazer. precisava que isso seria feito pelo Delphi, atraves de um codigo.Alguem sabe como fazer isso ????Estou usando Firebird e Ibexpert...

Woinch · Answer

Desconhe�o uma maneira de fazer esse processo t�o grande de uma maneira que n�o seja t�o demorada, mas voc� pode tentar otimiz�-lo ao m�ximo. Experimente trazer o resultado do select j� concatenado com �;� exemplo:

select CAMPO1 || �;� || CAMPO2 || �;� from TABELA

Ap�s isso, varra todo o resultado e utilize o comando Writeln para gravar direto no arquivo texto sem alocar nada na mem�ria. Se n�o for r�pido o sufuciente, fa�a um teste tamb�m com StringList e para salvar utilize o comando SaveToFile.

Quando tiver terminado se mesmo assim ficar demorado poste o c�digo aqui para que possamos ajudar. Se funcionar, poste tamb�m! :D

Espero ter ajudado.

Vitor Alcantara · Answer

Tem um caso que estou desenvolvendo um PDV que funciona OFF-line e atualiza os dados de tempos em tempos, tanto atualizando os dados do cadastro do servidor como envia as vendas. Estava pensando em utilizar a importa��o via TXT. Mais desisti e resolvi utilizar a op��o save to file do ClientDataSet no modo padr�o que � o bin�rio. Cara ficou muito r�pido tanto na escrita como na leitura. Ser� que isso n�o se encaixaria no seu caso.

Helio Nascimento · Answer

[b:2fac90c314]Vitor Araujo Alcantara[/b:2fac90c314]

Cara estou desenvolvendo algo para uma representa��o que tamb�m ser� vendas of-line e a noite conecta e descarrega. Voce poderia me passar algo de como voce est� implementando. Se quizer me dar mais detalhes via msn pode me adicionar helionas@hotmail.com

Obrigado

Cleiflavio · Answer

WoinchEstou tentando usar a sua, est� indo bem mas est� trazendo toda a informa��o em uma unica linha.Ser� que teria como vc me passar um select que acertasse isso.EX:No select que vc passou = select CAMPO1 || �;� || CAMPO2 || �;� from TABELACONCATENAR ID NOME ENDERECO CIDADE RAFAEL  RUA 2  SP ANDERSON RUA 3 RJEntedeu isso � s� um exemplo est� vindo em uma unica linha toda minha informa��o.Eu preciso que venha assim :NOME                     CIDADE                      ENDERECORAFAEL                   SP                               RUA 2ANDERSON              RJ                               RUA 3Teria como fazer um selec assim ?Agrade�o se me ajudarem....

Woinch · Answer

Mas dessa maneira que lhe passei o select j� est� vindo assim. S� que ele vai trazer o resultado em diversas linhas. Portanto voc� precisar� fazer um loop para gravar o resultado no arquivo texto. Veja:

select NOME || � � || CIDADE || � � || ENDERECO from TABELA

Ir� retornar como voc� mostrou.
PS: Sugiro utilizar um delimitador como �;� ou �|�.

Execute esse select em algum gerenciador de banco de dados para voc� ver como ir� retornar. Agora caso o que voc� queira fazer seja mostrar em diversas linhas a mesma linha de resultado do select basta usar o caractere do �enter�. Veja:

select NOME || �#1310� || CIDADE || �1310� || ENDERECO from TABELA

Ir� retornar:

RAFAEL SP RUA 2 ANDERSON RJ RUA 3

F�rum Exportar Dados para TXT, Alquem por favor poderia me ajudar #368995