tenho que atualizar os primeiro 50 registros de um select

Question

Quero mandar fichas de clientes do cobrador origem para o cobrador destino, porem um numero x.update clienteset cod_cob = :cobdestinowhere cod_cob= :coborigem Porem nem todos apenas uma quantidade inf...

Afarias · Answer

o Interbase 6.0 n�o possui a cl�usula FIRST.

Entretanto, pode fazer isto com um StoredProcedure, ex:

for select <campo_chave> from cliente
where cod_cob = :cob_origem
into :valor_chave do
if (num_updates < max_updates) then
begin
num_updates = num_updates + 1;
update cliente set cod_cob = :cobdestino
where <campo_chave>= :valor_chave;
end
else
exit;

T+

Midas · Answer

Afarias, estou come�ando agora com o interbase ... e gostaria de saber como fazer esta SP citada acima ? Me ajuda nessa !...

Midas · Answer

[quote:2e69c57e08=�afarias�]o Interbase 6.0 n�o possui a cl�usula FIRST.Entretanto, pode fazer isto com um StoredProcedure, ex:for select from cliente where cod_cob = :cob_origem into :valor_chave doif (num_updates < max_updates) thenbegin num_updates = num_updates + 1; update cliente set cod_cob = :cobdestino where = :valor_chave;endelse exit;T+[/quote:2e69c57e08]create procedure Trans_cliencobfor select cod_clienfrom clientewhere cod_cob = :cob_origeminto cod_cob doif (num_updates < :quant) thenbeginnum_updates = num_updates + 1;update clienteset cod_cob = :cobdestinowhere cod_cob = :codorigem;endelseexit;seria mais ou menos assim... como eu passaria os parametros ?...

Afarias · Answer

|Afarias, estou come�ando agora com o interbase ... e gostaria de saber
|como fazer esta SP citada acima ? Me ajuda nessa !

Hummm... recomendo q leia sobre o SQL do Interbase para aproveitar todo o seu poder.

segue o ex abaixo (assumindo q sua tabela cliente tem um campo codigo integer)::

set term ^;

create procedure pr_muda_cob(cob_origem integer, cob_destino integer, max_updates integer) as
declare variable num_updates integer;
declare variable cod_cli integer;
begin
num_updates = 0;
for select codigo from cliente
where cod_cob = :cob_origem
into :cod_cli do
if (num_updates < max_updates) then
begin
num_updates = num_updates + 1;
update cliente set cod_cob = :cob_destino
where codigo = :cod_cli;
end
else
exit;
end^

depois � s� executar o procedure:

execute procedure pr_muda_cob(1, 2, 10);

para mudar 10 clientes do cob. 1 para o cob. 2

T+

Midas · Answer

vou pesquisar sobre SP, valeu ....mas se tiver um link pra me ajudar pode postar aqui ... valeu mesmo ......

Afarias · Answer

Para informa��es r�pidas consulte o �SQL Reference Help� que � instalado com o IB.

M�s, para um guia de refer�ncia completo, sugiro que leia o �Interbase 6.0 Language Reference� que faz parte da documenta��o do IB e pode ser baixado no link:

http://www.ibphoenix.com/downloads/60LangRef.zip

T+

Midas · Answer

Agrade�o pela informa��o....Muito Grato .......

F�rum tenho que atualizar os primeiro 50 registros de um select #37603