Ajuda - Urgente [olhem este codigo]

13/05/2003

1

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;


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


Responder

13/05/2003

Martelato

na empresa uso Cliente/Servidor Microsoft e em minha maquina uso com desktop


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira