Realmente usando um JOB funcionou, ficou rápido a atualização ou
criação de uma tabela identica a uma existente, tentei até criar em
DATABASES diferentes e consegui, gostaria se saber o seguinte :
consigo atualizar uma tabela de um SERVIDOR em outro SERVIDOR ?
como executo os JOB´S criados através de um programa em DELPHI ?
eu utilizo o DTS para importar dados gerado pelo COBOL através do
ODBC, seria possível usar tal ODBC em JOB´S e acioná-los pelo
DELPHI ?
desde já agradeço pelo força que tem me dado.
grato
Stainle
--- Em delphi-br@yahoogrupos.com.br, "Fabiano Monteiro"
<[EMAIL PROTECTED]> escreveu
>
> 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
