E se voce exportar no seu arquivo produtos.txt apenas os produtos que forem
alterados não daria certo?
Ou coloque um Campo I - Inclusao, A - Alteracao - E - Exclusao, para voce
saber do que se refere a operacao.
Espero que te ajude.
Guilherme
----- Original Message -----
From: "Adriano ( Micro center )" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>; <delphi-br@yahoogrupos.com.br>;
<[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>;
<[EMAIL PROTECTED]>
Sent: Monday, October 10, 2005 5:08 PM
Subject: [delphi-boleto] Importação de Tabelas (Atualização de Tabela com
Aqrivos.TXT )
Olá pessoal. Gostaria de uma ajudinha aqui,,
Eu estou com um Problema na atualização de minhas tabelas ex;
Eu estou usando esta função abaixo para exportar o conteúdo de uma tabela
para um arquivo Produtos.txt , e ao mesmo tempo importar um determinado
arquivo Produtos txt para uma tabela , até ai tudo bem , mas o que esta
acontecendo é o seguinte se eu mandar importar o conteúdo do arquivo
Produtos.txt para a tabela ele importa certo, mas se eu mandar novamente ele
importa tudo de novo ele aumentando a tabela como se ela estivesse vazia .
Por ex; O tenho um arquivo Produtos.txt com 1000 linha, a tabela aceita e
fica ok.. mas se tentar importar novamente o mesmo Produtos.txt ela importa
o e a tabela fica com 2000 registros , como faço para criar um função para a
tabela receber somente o que foi alterado , tipo se eu mandar importar o
Produtos.txt a função verifica e só atualiza a tabela somente no campo que
foi alterado e não deixando importar todos registros tipo se eu abrir o
Produtos.txt e colocar uma (.) virgula ele vai correr a tabela inteira e
alterar somente o campo que esta com a virgula....
Obrigado, e Agradeço desde já...
Procedure TForm1.Button2Click(Sender: TObject);
var
Txt : TextFile;
Entrada : String;
begin
Assignfile(Txt,'Clientes.Txt');
Reset(Txt);
While not Eoln(Txt) do
begin
Readln(Txt,Entrada);
Client_Estoque.Insert;
Client_Estoque.FieldByName('COD_BARRAS').Value:=Copy(Entrada,03,6);
Client_Estoque.FieldByName('COD_INTERNO').Value:=Copy(Entrada,03,6);
Client_Estoque.FieldByName('NOM_PRODUTO').Value:=
Copy(Entrada,6,50);
Client_Estoque.ApplyUpdates(-1);
end;
CloseFile(Txt);
Button3.Enabled := True;
end;
procedure TForm1.Button3Click(Sender: TObject);
Var
F: TextFile;
begin
AssignFile(F,'Clientes.txt');
Rewrite(F);
Client_Estoque.First;
While not Client_Estoque.Eof do
begin
Writeln(F,Client_Estoque.FieldByName('COD_BARRAS').Value+Client_Estoque.FieldByname('NOM_PRODUTO').Value+Client_Estoque.FieldByName('PRECO_REAL').Value);
Label1.Caption:= 'Total de Registro Apagado..'+
IntToStr(Client_Estoque.RecordCount);
Client_Estoque.Next;
end;
CloseFile(F);
Button2.Enabled := True;
Button3.Enabled := False;
end;
[As partes desta mensagem que não continham texto foram removidas]
Delphi-Boleto - Componentes para geração de boleto bancário em Delphi.
Criador/Moderador: Genilton Barbosa
Visite meu site: www.gbimoveis.com/genilton - Dicas de programação em
Delphi, diversos componentes grátis e muito mais
Para enviar mensagens:
[EMAIL PROTECTED]
Para cancelar assinatura:
[EMAIL PROTECTED]
Site do grupo:
http://www.yahoogrupos.com.br/groups/delphi-boleto
Para fazer download do componente, visite o meu site:
http://www.gbimoveis.com/genilton
PARTICIPE DE NOSSAS PESQUISAS DE OPINIÃO
As pesquisas ajudam a entender melhor as opiniões e necessidades dos membros
do grupo. Dê o seu voto. Para acessar as pesquisas visite o endereço
www.yahoogrupos.com.br/groups/delphi-boleto/polls
Links do Yahoo! Grupos
__________ Informação do NOD32 IMON 1.1248 (20051010) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
--
<<<<< 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
