Stainle
Tudo bem?
Se isso for uma tarefa que deverá ocorrer ou sempre ou de vez em quando, e se
for sql server, recomendo vc utilizar os jobs dele. São muito eficientes e
transparentes.
Posso te auxiliar se me passar as tabelas e a regra do negócio, mas, dependendo
do que for, se for select e insert, pode fazer mais ou menos assim:
1) crie um job
2) informe que o job será um T-SQL ( Transact SQL)
3) "se for select insert somente" crie o script:
insert into tabeladestino (campo1, campo2, ...campo3)
select campo1, campo2, ...campon from tabelaorigem
Agora se forem todos os campos da tabela, o sql server permite algo mais
eficiente e mais simples:
select *
into tabeladestino
from tabelaorigem
*** esta instrução acima faz uma copia identica e eficiente da tabelaorigem
Atenciosamente/Regards,
Fabiano Monteiro
Analista/Programador Pleno
[EMAIL PROTECTED]
Tels.: 21-3382-5880/21-9649-2000
-----Mensagem original-----
From: "stainle2003" [EMAIL PROTECTED]
Date: Fri, 25 Feb 2005 08:46:28 -0300
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Lentidão ao Atualizar Banco
>
>
> 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
>
>
>
>
>
>
>
>
--
<<<<< 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
