Obrigado Evandro...Valew mesmo... Vou testar essas dicas e te falo caso haja alguma outra novidade...
Mesmo assim... Valew! Matheus 2009/10/14 jlchiappa <jlchia...@yahoo.com.br> > > > Segue coments : > > >> ... posteriormente, a instrução WHERE CURRENT OF para q o valor a ser > aplicado NÃO SEJA somente o do último ponteiro... > > reveja o código que vc nos enviou, pois nele ** NÃO ** está o WHERE CURRENT > OF, ok ?? > > > > - A ausência do WHERE se dá pelo fato de que todas as linhas da tabela > > deverão ser atualizadas. > > não, colega, não, pelo jeito vc não entendeu, vamos tentar de novo : SEM um > WHERE qquer no UPDATE (poderia sim ser o WHERE CURRENT OF), o valor > lido/calculado na primeira linha do resultset do seu cursor vai ser gravado > EM TODOS OS REGISTROS da sua tabela, de uma vez só, é DUVIDOSO que seja isso > que vc quer.... A dedução que faço da sua lógica é que vc quer ler dados da > linha 1 do cursor , fazer um cálculo e atualizar ESSA MESMA LINHA 1 apenas > com o resultado, depois ler a linha 2 e atualizar APENAS ESSA LINHA 2 com o > novo valor, assim por diante, e rigorosamente NÂO É isso que o seu UPDATE > sem WHERE faz, yes ?? > > > - Repassei a instrução de FETCH para dentro do laço de LOOP e a proc > > recompilou normalmente... O problema é que, na hora de rodar, ele informa > > erro e indica q o cursor já está aberto... Como devo proceder nesses > casos? > > Ao vc fazer um cursor explícito (cursor 'manual'), com OPEN/FETCH/CLOSE, > **** necessariamente **** a lógica é : abra UMA VEZ SÓ, repita o FETCH até > não haver mais registros (portanto apenas ELE está dentro do laço), e só > quando todos foram lidos feche o cursor (portanto o CLOS está FORA do laço, > também... Ficaria + ou - assim : > > create or replace procedure aux.prc_teste_matheus > (v_erro out varchar2) > > is > v_rqr number; > v_dtf date; > --Criando o cursor para atualização da tabela > cursor mma_update is > select (date_key - rt_qtde_retorno) dt_final > from aux.teste_matheus > for update; > BEGIN > --Abrindo o cursor > open mma_update; > loop > --Obtendo os dados do cursor > fetch mma_update into v_dtf; --sair quando não houver informações > exit when mma_update%notfound; > --Atualizando a Tabela a partir dos valores obtidos > update aux.teste_matheus set dt_final = v_dtf WHERE CURRENT OF mma_update; > end loop; > --Fechando cursor > close mma_update; > --Salvando as informações > commit; > END; > > ====>> ululantemente óbvio, já que vc quis (para testes, ok) trabalhar com > Cursor, sempre há a figura do cursor IMPLÍCITO (cursor 'automático'), aonde > o OPEN/FETCH/CLOSE são feitos pra vc transparentemente, a VARIÁVEL DE > RETORNO é criada transparentemente, veja como realmente ficaria mais simples > : > > create or replace procedure aux.prc_teste_matheus_auto > (v_erro out varchar2) > is > BEGIN > --Abrindo o cursor > for v_dtf in ( select (date_key - rt_qtde_retorno) dt_final, rowid v_row_id > from aux.teste_matheus > ) > loop > --Obtendo os dados do cursor > --Atualizando a Tabela a partir dos valores obtidos > update aux.teste_matheus set dt_final = v_dtf.dt_final WHERE rowid = > v_dtf.v_row_id; > end loop; > commit; > END; > > Os conceitos TODOS que comentei/usei aqui estão muito bem definidos no > manual Oracle de PL/SQL, ele deveria ser se já não é a tua fonte > principal... > > []s > > Chiappa > > > --- Em oracle_br@yahoogrupos.com.br <oracle_br%40yahoogrupos.com.br>, > Matheus Malta de Aguiar <maltamath...@...> escreveu > > > > Obrigado pessoal pelas dicas... > > > > Gostaria de comentar algumas sugestões que talvez esclareçam melhor a > > pergunta que eu fiz: > > > > - SIM, o select (que denomina o cursor) retorna dados; > > - Eu já realizei o comando UPDATE direto, sem a utilização do cursor... e > vi > > que realmente ele dava certo.. Quis utilizar o cursor mais para fins > > didáticos (treinamento mesmo); > > - A ausência do WHERE se dá pelo fato de que todas as linhas da tabela > > deverão ser atualizadas. A coluna DT_FINAL foi inserida na tabela após a > sua > > criação e população. Esse comando eu estou fazendo apenas para fazer um > > UPDATE geral utilizando para isso um cursor, com comando FOR UPDATE (na > > declaração do cursor) e, posteriormente, a instrução WHERE CURRENT OF > para q > > o valor a ser aplicado NÃO SEJA somente o do último ponteiro. > > - Repassei a instrução de FETCH para dentro do laço de LOOP e a proc > > recompilou normalmente... O problema é que, na hora de rodar, ele informa > > erro e indica q o cursor já está aberto... Como devo proceder nesses > casos? > > > > O meu editor é o PL/SQL developer v 5. > > > > Grato! > > > > Matheus Malta > > > > > > 2009/10/14 Evandro Giachetto <evandrogiache...@...> > > > > > > > > > > > E, achei desnecessário comentar alguns possíveis erros em seu código, > como > > > a > > > falta de where na instrução update pois os colegas já os comentaram > acima. > > > > > > De uma boa revisada na proc para ver se esses erros correspondem. > > > > > > Atenciosamente. > > > > > > > > > Evandro Giachetto > > > Oracle Certified Associate > > > evan...@... <evandro%40clickinterativa.com.br> > > > > > > 2009/10/14 Evandro Giachetto <evandrogiache...@...<evandrogiachetto% > 40gmail.com> > > > > > > > > > > > > > > Você colocou o Fetch antes da instrução LOOP. > > > > > > > > Dessa forma, a variável v_dtf recebe apenas o primeiro registro do > > > cursor. > > > > > > > > Tente colocar o fetch dentro de seu laço loop. > > > > > > > > Att. > > > > Evandro Giachetto > > > > Oracle Certified Associate > > > > evan...@... <evandro%40clickinterativa.com.br> > > > > > > > > > > > > 2009/10/14 Matheus Malta de Aguiar <maltamath...@...<maltamatheus% > 40gmail.com> > > > > > > > > > > > > > > > > >> > > > >> Galera... > > > >> > > > >> Estou tentando desenvolver uma proc que tem por objetivo atualizar > uma > > > >> coluna nova que acaba de ser acrescida na tabela, ou seja, ela (a > > > coluna) > > > >> econtra-se sem registros. > > > >> > > > >> No entanto, quando do emprego do cursor (em tempo de execução) eu > > > percebo > > > >> que a proc está atualizando somente a primeira linha da tabela (ou > seja, > > > >> somente uma única célula). > > > >> > > > >> Estou encaminhando a proc... > > > >> > > > >> Quem puder ajudar, ficarei grato! > > > >> > > > >> Valew pessoal! > > > >> > > > >> Matheus Malta > > > >> "O certo é certo mesmo q ninguém o faça.. e o errado é errado mesmo > q > > > todo > > > >> mundo faça... Procure fazer o certo para não explicar porque > resolveu > > > >> fazer > > > >> errado.. " > > > >> > > > >> *PROC* > > > >> > > > >> create or replace procedure aux.prc_teste_matheus > > > >> (v_erro out varchar2) > > > >> > > > >> is > > > >> --/*==================================*/ > > > >> --|| PROC DE TESTE || > > > >> --||----------------------------------|| > > > >> --|| AUTOR: Matheus || > > > >> --|| MOTIVO: Treino || > > > >> --|| TABELA: aux.teste_matheus || > > > >> --/*==================================*/ > > > >> > > > >> v_rqr number; > > > >> v_dtf date; > > > >> > > > >> --Criando o cursor para atualização da tabela > > > >> cursor mma_update is > > > >> select (date_key - rt_qtde_retorno) dt_final > > > >> from aux.teste_matheus > > > >> for update; > > > >> > > > >> begin > > > >> > > > >> --Abrindo o cursor > > > >> open mma_update; > > > >> > > > >> --Obtendo os dados do cursor > > > >> fetch mma_update into v_dtf; > > > >> while mma_update%isopen loop > > > >> --Atualizando a Tabela a partir dos valores obtidos > > > >> update aux.teste_matheus > > > >> set dt_final = v_dtf; > > > >> > > > >> --sair quando não houver informações > > > >> exit loop when mma_update%notfound; > > > >> > > > >> --end loop; > > > >> > > > >> --Fechando cursor > > > >> close mma_update; > > > >> --Salvando as informações > > > >> commit; > > > >> > > > >> -- Tratando os erros > > > >> EXCEPTION > > > >> > > > >> WHEN NO_DATA_FOUND then > > > >> v_erro := 'Parâmetro não encontrado!'; > > > >> dbms_output.put_line(v_erro); > > > >> > > > >> WHEN OTHERS THEN > > > >> v_erro := 'Procedimento não executado - Erro: '||SQLERRM; > > > >> dbms_output.put_line(v_erro); > > > >> end; > > > >> > > > >> [As partes desta mensagem que não continham texto foram removidas] > > > >> > > > >> > > > >> > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > [As partes desta mensagem que não continham texto foram removidas]