Ajuda - Urgente [olhem este codigo]
13/05/2003
0
Para quem me ajudar, Obrigado
implementei este codigo para transferir um TXT de 19000 itens p/ uma tabela SQL, na minha maquina o codigo foi eficiente, mas na maquina que utilizo no trabalho nao, será que pode ser melhorado este código? e mais, o usuario clica no botao para atualizar a tabela, preciso que qdo carregar o programa ele verifica se o arquivo TXT foi alterado se sim atualiza a tabela sem precisar da acao do usuario... obrigado
procedure TfrmPedidos.CopiaTXT(Sender: TObject);
var
TXT : TextFile ;
Entrada : String ;
begin
AssignFile(TXT, ´C:\USIProjetos\Tabelas\Prods.TXT´);
Reset(TXT) ;
while not Eoln(TXT) do
begin
Readln(TXT,Entrada) ;
DMGeral.ADOtblProduto.Insert ;
DMGeral.ADOtblProdutoCod_prod.Value := Copy(Entrada,01,09) ;
DMGeral.ADOtblProdutoNome_prod.Value := Copy(Entrada,10,40) ;
DMGeral.ADOtblProduto.Post ;
end;
CloseFile(TXT) ;
btnCopia.Enabled := False ;
end;
implementei este codigo para transferir um TXT de 19000 itens p/ uma tabela SQL, na minha maquina o codigo foi eficiente, mas na maquina que utilizo no trabalho nao, será que pode ser melhorado este código? e mais, o usuario clica no botao para atualizar a tabela, preciso que qdo carregar o programa ele verifica se o arquivo TXT foi alterado se sim atualiza a tabela sem precisar da acao do usuario... obrigado
procedure TfrmPedidos.CopiaTXT(Sender: TObject);
var
TXT : TextFile ;
Entrada : String ;
begin
AssignFile(TXT, ´C:\USIProjetos\Tabelas\Prods.TXT´);
Reset(TXT) ;
while not Eoln(TXT) do
begin
Readln(TXT,Entrada) ;
DMGeral.ADOtblProduto.Insert ;
DMGeral.ADOtblProdutoCod_prod.Value := Copy(Entrada,01,09) ;
DMGeral.ADOtblProdutoNome_prod.Value := Copy(Entrada,10,40) ;
DMGeral.ADOtblProduto.Post ;
end;
CloseFile(TXT) ;
btnCopia.Enabled := False ;
end;
Martelato
Curtir tópico
+ 0
Responder
Posts
13/05/2003
Motta
O problema pode estar no Banco.
Que bd.
O bd é local, rede ?
Em que máquinas rodou ? Diferença muito grande de processador. memoria etc.
[]´s
Que bd.
O bd é local, rede ?
Em que máquinas rodou ? Diferença muito grande de processador. memoria etc.
[]´s
Responder
13/05/2003
Martelato
na empresa uso Cliente/Servidor Microsoft e em minha maquina uso com desktop
Responder
Clique aqui para fazer login e interagir na Comunidade :)