Delphi - Importando dados TXT para Tabela

Delphi

19/03/2015

Bom, estou há muito tempo sem programar em Delphi, e perdi a mão. Abaixo segue o código que estou usando para exportar os dados da Tabela para um arquivo TXT, quero fazer o contrário agora. Importar desse mesmo TXT para a Tabela. Podem me ajudar?

Está exportando normalmente, fiz inúmeros testes. O problema é que não sei fazer importar para o banco

procedure Tfrm_PRINCIPAL.spdbt_GERACARGAClick(Sender: TObject);
var
arq: TextFile;
i, n: integer;
ano,dia,mes,segundo,minuto,hora:string;
begin
Showmessage('Aguarde a Geração de Carga Total em formato TXT'#13'Aguarde a mensagem de confirmação do arquivo criado');
ano:= FormatDateTime('yy',Now);
dia:= FormatDateTime('dd',Now);
mes:= FormatDateTime('mm',Now);
segundo :=FormatDateTime('ss',Now);
minuto :=FormatDateTime('nn',Now);
hora :=FormatDateTime('hh',Now);
lblgeranome.caption:='TOTAL'+ano+dia+mes+segundo+minuto+hora;

dm_dados.qry_eqproduto.close;
dm_dados.qry_eqproduto.SQL.clear;
dm_dados.qry_eqproduto.SQL.add('select codprod, descprod, codbarprod, cloteprod, precobaseprod, sldprod, codunid, codfisc from eqproduto');
dm_dados.qry_eqproduto.open;
dm_dados.qry_eqproduto.First;
lblqtdregistro.caption:=(IntToStr(dm_dados.qry_eqproduto.RecordCount));
AssignFile(arq, lblgeranome.caption+'.txt');
Rewrite(arq);
while not dm_Dados.qry_Eqproduto.Eof do
begin
Writeln(arq,dm_dados.qry_EQPRODUTO.FieldByName('CODPROD').AsString+','+
dm_dados.qry_EQPRODUTO.FieldByName('DESCPROD').AsString+','+
dm_dados.qry_EQPRODUTO.FieldByName('CODBARPROD').AsString+','+
dm_dados.qry_EQPRODUTO.FieldByName('CLOTEPROD').AsString+','+
dm_dados.qry_EQPRODUTO.FieldByName('PRECOBASEPROD').AsString+','+
dm_dados.qry_EQPRODUTO.FieldByName('SLDPROD').AsString+','+
dm_dados.qry_EQPRODUTO.FieldByName('CODUNID').AsString+','+
dm_dados.qry_EQPRODUTO.FieldByName('CODFISC').AsString+';');
dm_Dados.qry_eqproduto.Next;
end;
CloseFile(arq);
showmessage('Atenção Operador'#13'Arquivo gerado com sucesso');
end;
Israel Lopes

Israel Lopes

Curtidas 0
POSTAR