Error in Cursors in Oracle 10g

Question

We have a VB program that is running a procedure with a cursor like this:
cursor cleo is select * from tabla1 where campo1='valor1';
leer cleo%rowtype;
begin
open cleo;
loop
fetch cleo into leer;
exit when cleo%notfound;
end loop;
close cleo;
end
Then return rows that not are part of the set given by the select statement.
The problem is given randomly when running the VB program, instead if run the same statement in sqlplus it works fine.
The program works fine against an Oracle 8 database, the error appears against an Oracle 10g database
null

Answer 1

the code to execute is:
create or replace procedure cpc_jz_aux (dirname varchar2, plan varchar2, error out varchar2) is
file_write sys.utl_file.file_type;
cursor cleo is select *
from oper.plan_hidro_et_per_cpcs
where id_plan = plan
and id_etapa = 1 order by id_hidro,id_per;
leer cleo%rowtype;
BEGIN
error:=NULL;
if sys.utl_file.is_open(file_write) then
sys.utl_file.fclose(file_write);
end if;
file_write := sys.utl_file.fopen(dirname,'cpc_jt3.dat','w');
     open cleo;
     loop
          fetch cleo into leer;
          exit when cleo%notfound;
          sys.utl_file.put_line(file_write,leer.id_hidro||','||leer.id_per||','||
               nvl(leer.ymin,0)||','||nvl(leer.ymax,0)||','||nvl(leer.zmin,0)||
                    ','||nvl(leer.zmax,0));
     end loop;
     close cleo;
     sys.utl_file.fclose(file_write);
exception
when others then
dbms_output.put_line('error:'||sqlcode||' '||sqlerrm);
error := sqlerrm;
if sys.utl_file.is_open(file_write) then
sys.utl_file.fclose(file_write);
end if;
raise;
end cpc_jz_aux;
Message was edited by:
jpastro