Oracle:Permintaan dinamis dengan klausa IN menggunakan kursor

Situasi klasik yang dimiliki setiap orang. Anda dapat membentuk string Kueri secara dinamis berdasarkan larik Anda atau semacamnya. Dan gunakan sebagai BUKA KURSOR. .

  DECLARE
    v_mystring VARCHAR(50);
    v_my_ref_cursor sys_refcursor;
    in_string varchar2='''abc'',''bcd''';
    id2 varchar2(10):='123';
        myrecord tablename%rowtype;
  BEGIN

    v_mystring := 'SELECT a.*... from tablename a where name= :id2 and 
                    id in('||in_string||')';

    OPEN v_my_ref_cursor FOR v_mystring USING id2;

    LOOP
      FETCH v_my_ref_cursor INTO myrecord;
      EXIT WHEN v_my_ref_cursor%NOTFOUND;
        ..
      -- your processing
    END LOOP;
    CLOSE v_my_ref_cursor;

  END;

Klausa IN mendukung maksimum 1000 item. Anda selalu dapat menggunakan tabel untuk bergabung. Tabel tersebut mungkin merupakan Global Temporary Table(GTT) yang datanya terlihat oleh sesi tertentu.

Anda tetap dapat menggunakan nested table juga untuk itu (seperti tabel PL/SQL)

TABLE() akan mengonversi tabel PL/Sql sebagai objek tabel yang dapat dimengerti SQL (sebenarnya objek)

Contoh sederhana di bawah ini.

CREATE TYPE pr AS OBJECT
           (pr  NUMBER);
/
CREATE TYPE prList AS TABLE OF pr;
/

declare
  myPrList prList := prList ();
  cursor lc is 
    select * 
      from (select a.*
              from yourtable a
                   TABLE(CAST(myPrList as prList)) my_list
             where 
                   a.pr = my_list.pr
             order by a.pr desc) ;
  rec lc%ROWTYPE;

BEGIN 
  /*Populate the Nested Table, with whatever collection you have */
  myPrList := prList ( pr(91),
                       pr(80));
  /*
     Sample code: for populating from your TABLE OF NUMBER type 

     FOR I IN 1..your_input_array.COUNT
     LOOP
          myPrList.EXTEND;
          myPrList(I) := pr(your_input_array(I));
     END LOOP;
  */
  open lc;
  loop 
    FETCH lc into rec;
    exit when lc%NOTFOUND; -- Your Exit WHEN condition should be checked afte FETCH iyself!
    dbms_output.put_line(rec.pr);
  end loop;
  close lc;
END;
/