您创建一个表示您的sql语句的字符串.您仍然使用绑定变量.这是痛苦的.

它是这样的(我没有编译这个,但它应该是接近的)： –

CREATE OR REPLACE FUNCTION find_country( v_name  t1.country%TYPE,v_type  t2.type%TYPE)  /* Hmm,column called type? */
DECLARE
  v_sql         varchar2(2000);
  v_select          INTEGER;   /* "Pointer" to a DBMS_sql select statement */
  v_execute         INTEGER;

BEGIN
  v_sql := 'select column from table1 t1,table2 t2 ||
           'where t1.id = t2.id';

  IF v_name IS NOT NULL THEN
    v_sql := v_sql || ' AND t1.country = :v_name'
  END IF;

  IF v_type IS NOT NULL THEN
    v_sql := v_sql || ' AND t2.type = :v_type';
  END IF;

  /* Setup Cursor */
  v_select := dbms_sql.open_cursor;     
  dbms_sql.parse( v_select,v_sql,DBMS_sql.native);

  IF v_name IS NOT NULL THEN
    dbms_sql.bind_variable( v_select,':v_name',v_name );
  END IF;

  IF v_type IS NOT NULL THEN
    dbms_sql.bind_variable( v_select,':v_type',v_type );
  END IF;

  DBMS_sql.DEFINE_COLUMN(v_select,1,v_column);  /* This is what we have selected */

  /* Return value from EXECUTE is undefined for a SELECT */     
  v_execute := DBMS_sql.EXECUTE( v_select );

  IF DBMS_sql.FETCH_ROWS( v_select ) > 0 THEN

    /* A row was found  
    DBMS_sql.COLUMN_VALUE( v_select,v_column);

    /* Tidy Up */
    DBMS_sql.CLOSE_CURSOR(v_select);

    RETURN v_ID_address;

  ELSE

     DBMS_sql.CLOSE_CURSOR(v_select);

     /* No row */
     RETURN NULL;
  END IF;

  EXCEPTION
    WHEN OTHERS THEN
      IF DBMS_sql.IS_open(v_select) THEN
        DBMS_sql.CLOSE_CURSOR(v_select);
      END IF;
      RAISE;
END;

与仅编写sql内联相比,这种方法非常痛苦,除非您有大量的列,否则使用以下语法编写几个不同的版本会更容易：

FOR r IN (SELECT blah FROM blah WHERE t1 = v_t1) LOOP
   func( r.blah );
END LOOP;