Bom dia!!!
Estou precisando importar dados de um txt para uma tabela, só que o txt esta
gravado uma informação em cada linha, ou seja, codigo do cliente, nome,
endereço, cidade, e estado, tudo embaixo um do outro, e como é a primeira
vez que tentarei fazer isto, alguem teria alguma sugestão para facilitar ou
de como posso proceder.
Abraços.
==esta procedure funciona perfeitamente bem
procedure TConversao_Principal.CentrosdeCusto1Click(Sender: TObject);
begin
NomeArqTXT:='c:\arquivo.TXT';
NomeTabela:='sua tabela';
IBTable1.Active:=false;
IBTable1.TableName := NomeTabela;
if IBTable1.Exists then
begin
ibquery1.SQL.Clear;
ibquery1.SQL.Add('DELETE FROM "'+NomeTabela+'";');
ibquery1.ACTIVE:=TRUE;
ibtransaction1.Commit;
ShowMessage('Registros excluidos para '+NomeTabela);
end
else
begin
ShowMessage('Não foi encontrada tabela '+NomeTabela);
exit;
end;
assignfile(f,NOMEARQTXT);
RESET(F);
TotReg:=13; //Número total de LINHAS
progressbar1.Max:=totreg;
SHOWMESSAGE('Início do processamento');
ContReg:=0;
ContImp:=0;
IBTable1.Active:=false;
IBTable1.TableName := NomeTabela;
ibtable1.open;
while not eof(f) do
begin
readln(f,s);
contreg:=contreg+1;
progressbar1.Position:=contreg;
IBTABLE1.Append;
ibtable1.FieldByName('c1').AsINTEGER :=strtoint(copy(s,1,3));
ibtable1.FieldByName('C2').AsSTRING :=TRIMRIGHT(copy(s,4,30));
Ibtable1.post;
contIMP:=contIMP+1;
end;
ibtransaction1.COMMIT;
ibtable1.Close;
closefile(f);
showmessage(inttostr(contIMP)+' Registros de '+NomeTabela+'
convertidos.')
end;
Tasquim
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
--
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
