6

我有接受某些参数的 plsql 程序，例如 v_name、v_country、v_type。

我希望有一个带有这样的选择语句的游标：

select column from table1 t1, table2 t2
where t1.name = v_name
and t1.country = v_country
and t1.id = t2.id
and t2.type = v_type

如果某些参数为空，我只能将相关的 where 子句添加到游标吗？还是有更好的方法来实现这一点？

4

5 回答 5

5

使用它的最佳方法是使用 DBMS_SQL。

您创建一个代表您的 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, 1, 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;
于 2008-12-18T11:38:58.323 回答
4

这不是您要直接问的，但它可能是一个可以接受的解决方案：

select column from table1 t1, table2 t2
where
    (v_name is null or t1.name = v_name)
and (v_country is null or t1.country = v_country)
and t1.id = t2.id
and (v_type is null or t2.type = v_type)
于 2008-12-18T11:46:03.303 回答
3

一种方法是将查询构建为字符串，然后使用立即执行

于 2008-12-18T10:42:17.143 回答
2

最好的方法是使用 Oracle 的应用程序上下文特性，最好的定义是最好的性能和安全性。

更快的方法是 hamishmcn 建议的，使用 EXECUTE IMMEDIATE。我每次都会选择 WW 对 DBMS_SQL 的建议。

另一种编写速度最快但性能不佳的方法是这样的：

select column from table1 t1, table2 t2
where t1.name = nvl(v_name, t1.name)
and t1.country = nvl(v_country, t1.country)
and t1.id = t2.id
and t2.type = nvl(v_type, t2.type)
于 2009-01-02T19:22:16.213 回答
2

您不必使用 dbms_sql 来解决此问题，您仍然可以通过使用 ref 游标来使用普通游标。

样本：

DECLARE
  TYPE cursor_ref IS REF CURSOR;
  c1 cursor_ref;
  r1 table1.column%type;
BEGIN
  l_sql := 'select t1.column from table1 t1, table2 t2 where t1.id = t2.id ';
  if v_name is not null then
    l_sql := l_sql||' and t1.name = '||v_name ;
  end if;
  if v_country is not null then
    l_sql := l_sql||' and t1.country = '||v_country';
  end if;
  if v_type is not null then  
    l_sql := l_sql||' and t2.type = '||v_type';
  end if;
  open c1 for l_sql;
  loop
      fetch c1 into r1;
      exit when c1%notfound;
      -- do something
  end loop;
  close c1;
end;
/

您可以通过使用命令“使用”绑定变量来改善这一点，如下所示：

open c1 for l_sql using v_name, v_country;
于 2009-01-15T05:48:21.817 回答