Fórum exportar arquivo texto e importar arquivo texto no delphi #341813
15/05/2007
0
Tenho uma Empresa de desenvolvimento de Software.
Utilizo o delphi 7
Banco de dados firebird.
Preciso de um programa modelo que exporta uma tabela do firebird para um arquivo do tipo texto e um programa que faça o processo ao contrario ou seja ler o arquivo texto e grave numa tabela do arquivo firebird. OU seja eu preciso de um progrma para exportar dados gerando um arquivo texto e um programa que importe os dados do texto para a tabela do banco firebird.
Alguem pode me ajudar a resolver este tipo de problema???
Grato
Plácido
Placido
Curtir tópico
+ 0Posts
16/05/2007
George_piaulino
1. Use odbc para acessar os arquivos txt, csv ou tab e faça o que quiser com o arquivo.
2. Use TstringList para abrir e salvar o arquivo
Caso resolva pelo segundo item crie o select no firebird de acordo com o separador que vc definiu, no caso abaixo estou usando ´;´:
select col1+´;´+col2+´;´+col3 from tabela.
Jogue estes dados em uma Tstringlist e depois salve com nome que quiser.
Para importar vc dererá abrir o arquivo direto em uma stringlist.
faça o tramaneto necessário para separar as linhas e colunas.
Boa sorte!
Gostei + 0
16/05/2007
Paullsoftware
http://forum.clubedelphi.net/viewtopic.php?t=73392&highlight=txthttp://forum.clubedelphi.net/viewtopic.php?t=53307&postdays=0&postorder=asc&highlight=txt&start=15
espero ter ajudado :wink:
Gostei + 0
16/05/2007
Paullsoftware
corriginho, esqueci de dar um espaço pra separar os links :lol:
Gostei + 0
18/05/2007
Placido
Mas nao consegui gerar o arquvo texto.
Segeu abaixo um exemplo da tabela veiculo
CREATE TABLE VEICULO (
VEI_CODIGO INTEGER NOT NULL,
VEI_DESCRICAO VARCHAR(20),
VEI_MARCA VARCHAR(15),
EMP_CODIGO INTEGER NOT NULL,
VEI_DATA DATE,
VEI_VRCUSTO NUMERIC(15,2) default 0
);
Preciso gerar um arquivo texto com o nome veiculo.txt
Gostaria que baseado na tabela acima algume fazer o programa modelo para gerar o arquivo texto e para importar o arquivo veiculo.txt
Grato
Placido
Gostei + 0
22/05/2007
Nigro
Faça um for de 0 até Fields.Count do seu DataSet, assim você consegue pegar o nome e tipo de campo, mas não se esqueça de fazer o tratamento para contepudo nulo dos campos.
Acho que o que você quer é uma ferramenta inteligente e flexível, se é isso mesmo com certeza o ponto inicial, está ai em cima.
Boa sorte.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)