estou usando a rotina abaixo e verifico que demora muito para
atualizar a mesma tabela em outro banco, consigo maior velocidade na
opção de Import and Export do SQL Server 2000; pergunto :
está certa a atualização desta forma ou seria de maneira diferente ?
grato
Stainle
Edit4.Text := TimeToStr(now);
Refresh;
try
if not (Query1.IsEmpty) then
begin
Query1.First;
gg := 1;
While not (Query1.EOF) do
begin
Edit6.Text :=
Query1Codes.Value;
Query3.Close;
Query3.ParamByName
('pcodes').AsString := Query1Codes.Value;
Query3.Open;
if Query3.IsEmpty then
Query3.Append
else
Query3.Edit;
for i := 0 to
Query1.FieldCount - 1 do
Query3.Fields
[i].Value := Query1.Fields[i].Value;
Query3.Post;
DBCommitDB2(Query2);
Query1.Next;
inc(gg);
Edit3.Text := IntToStr(gg);
Refresh;
end;
end;
except
close;
end;
Edit5.Text := TimeToStr(now);
Refresh;
--
<<<<< 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
