[ORACLE 9] OPEN FOR statement USING bind variable

Question

Hi,
I have a loop that only fetches 1 record instead of 7:
DECLARE
lv_into varchar2(40);
lv_qry  varchar2(400);
type curtest_ref is ref cursor;
curtest          curtest_ref;
lv_compteur number(4) := 1;
lv_client_loc   varchar2(100);
BEGIN
dbms_output.put_line( 'Début' );
lv_qry := 'select client_loc from tmp_jbm where client_id = :A ';
open curtest for lv_qry using lv_compteur;                
loop
                fetch curtest into lv_client_loc ;
                exit when curtest%notfound;
                dbms_output.put_line( 'ligne: '       || to_char( lv_compteur )
                                   || ' Client Loc: ' || lv_client_loc );
                lv_compteur := lv_compteur + 1;
                exit when lv_compteur > 6;
     end loop;
EXCEPTION
    when others then
             dbms_output.put_line( 'Erreur exception: ' || sqlerrm );
END;
[/END CODE]
It looks like the cursor only fetches 1 record and then stops.
Many thanks                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       

Answer 1

The code is doing what you have asked it to do.
Incrementing lv_compteur := lv_compteur + 1; inside the FOR LOOP will not refresh your CURSOR as the CURSOR OPEN statement is outside the loop.
You could change your lv_qry variable to something like this:
lv_compteur_min number(4) := 1;
lv_compteur_max number(4) := 6;
lv_qry := 'select client_loc from tmp_jbm where client_id BETWEEN :A AND :B';and OPEN the cursor by passing two variables
open curtest for lv_qry using lv_compteur_min, lv_compteur_max ;