Question

我认为我的问题最好用一个例子来描述：

Declare
  example1 varchar2(300) := 'sysdate';
  example2  varchar2(300) := 'null';
  example3  varchar2(300) := 'user';
  example4  varchar2(300) := '''Just some Text''';

  cursor_name INTEGER;
  rows_processed INTEGER;
BEGIN

    cursor_name := dbms_sql.open_cursor;

    DBMS_SQL.PARSE(cursor_name, 'UPDATE table_name SET column = :x', DBMS_SQL.NATIVE);
    DBMS_SQL.BIND_VARIABLE(cursor_name, ':x', example1);

    rows_processed := DBMS_SQL.EXECUTE(cursor_name);
    DBMS_SQL.CLOSE_CURSOR(cursor_name);
end;
/

所有＆＃34; exampleX＆＃34;变量将被绑定为varchar2而不是＆＃34;翻译＆＃34;。

我之前使用过Execute Immediate但由于性能优化而不得不切换到DBMS_SQL。使用Execute Immediate，如果使用这种方法，当然没有问题：

Execute Immediate 'UPDATE table_name SET column = ' || example1;

但是我无法想出一种通过BIND_VARIABLE来实现这一目标的方法。

（当然我可以在PARSE语句中连接变量，就像Execute Immediate一样，但我认为我会以这种方式失去性能。在这种情况下，性能非常重要）

编辑：

一个更接近现实的例子是：

将数据从一个数据库（SRC）复制到另一个数据库（DEST），我有这个帮助程序表：

CREATE TABLE "DEST_TAB_COLUMNS" 
   (    "OWNER" VARCHAR2(30 BYTE), 
    "TABLE_NAME" VARCHAR2(30 BYTE), 
    "COLUMN_NAME" VARCHAR2(30 BYTE), 
    "DATA_TYPE" VARCHAR2(106 BYTE), 
    "OPERATION_TYPE" VARCHAR2(30 BYTE), 
    "OPERATION_FUNCTION" VARCHAR2(200 BYTE)
   ) ;

在此表中，我在DEST侧定义了我感兴趣的列。我可以选择定义一个＆＃34; OPERATION_FUNCTION＆＃34;替换某个列值。

所以条目看起来像：

在SRC方面，我定义了我想要转换的数据。这是一个简单的表，看起来基本上像：

CREATE TABLE "SRC_TRANSFER_DATA" 
   (    "OWNER" VARCHAR2(30 BYTE), 
    "TABLE_NAME" VARCHAR2(30 BYTE), 
    "WHERE_CLAUSE" VARCHAR2(300 BYTE), 
   ) ;

实施例： TESTOWNER | SAMPLE_TABLE | SPECIAL_COLUMN = 123

现在程序在SRC_TRANSFER_DATA上循环（在DEST上）并构造一个MERGE语句。为了做到这一点，如果此表和列有规则，它还会在DEST_TAB_COLUMNS表中查找。如果有规则我将bindvariable添加到我的集合中：

l_hostvariable_map(':p'||l_hostvar_cnt) := r_col.operation_function;

最后，我将查看此系列以进行绑定。最终的Merge（简称）可能如下所示：

MERGE INTO dest_table dest 
USING 
(SELECT table_column FROM src_table WHERE special_column= :p1) 
src ON 
(dest.special_column= :p2) 
WHEN matched 
THEN UPDATE SET 
dest.column1=src.column1,dest.column2= :p3,dest.column3= :p4
WHEN NOT matched 
THEN INSERT 
(dest.column1,dest.column2,dest.column3) 
VALUES 
(src.column1,:p5,:p6)

部分：pX是＆＃34;功能＆＃34;。就像编辑前的例子一样。

我希望这能使它更清晰，而不是更复杂;）

Answer 1

检查BIND_VARIABLE documentation：

请注意，BIND_VARIABLE已重载以接受不同的数据类型。

因此，您的代码应如下所示：

example1 DATE := SYSDATE;
example2  varchar2(300) := NULL;
example3  varchar2(30) := USER;
example4  varchar2(300) := 'Just some Text';

如果您使用Execute Immediate，请更好地使用

Execute Immediate 'UPDATE table_name SET column = :a' USING example1;

顺便说一句，在早期的Oracle版本（即Oracle 10）中，使用Execute Immediate或DBMS_SQL包确实存在性能差异。通常DBMS_SQL更快。但是，在目前的版本中，当我比较它们时，我不会再有任何性能差异了。当然，只有在任何情况下使用绑定变量时，才会获得类似的性能。

另请注意，使用绑定变量比静态代码快99.9％ - 尽可能使用它们。它在SQL注入和引用问题方面也很有用。

<强>更新

根据您的输入，您的程序可能如下所示：

Declare
  val_date date;
  var_varchar varchar2(3000);
  var_number number;

  cursor_name INTEGER;
  rows_processed INTEGER;
BEGIN

   for aCol in (select * from DEST_TAB_COLUMNS) loop   
      cursor_name := dbms_sql.open_cursor;
      DBMS_SQL.PARSE(cursor_name, 'UPDATE '||aCol.table_name||' SET '||aCol.COLUMN_NAME||' = :val', DBMS_SQL.NATIVE);

      if aCol.DATA_TYPE = 'DATE' then
          execute immediate 'begin :res := '||aCol.OPERATION_FUNCTION||'; end;' using out val_date;
          DBMS_SQL.BIND_VARIABLE(cursor_name, ':x', val_date);
      elsif aCol.DATA_TYPE = 'VARCHAR2' then
          execute immediate 'begin :res := '||aCol.OPERATION_FUNCTION||'; end;' using out val_varchar;
          DBMS_SQL.BIND_VARIABLE(cursor_name, ':x', val_varchar);
      elsif aCol.DATA_TYPE = 'NUMBER' then
          execute immediate 'begin :res := '||aCol.OPERATION_FUNCTION||'; end;' using out val_number;
          DBMS_SQL.BIND_VARIABLE(cursor_name, ':x', val_number);
      end if;
      rows_processed := DBMS_SQL.EXECUTE(cursor_name);
      DBMS_SQL.CLOSE_CURSOR(cursor_name);
   end loop;
end;
/

当然，上面的过程非常慢，因为您逐列和逐行处理。无论如何，我假设您了解代码的外观。您的函数不仅可以返回单个值，还可以返回PL / SQL表中的多个值。

Answer 2

如果您的示例出错，它会尝试传递文本字符串'sysdate'而不是日期值。绑定变量用于传递值，而不是构造查询文本。

declare
    example1        date := sysdate;  -- an actual date value, not the word 'sysdate'!
    cursor_id       integer;
    rows_processed  integer;
begin
    cursor_id := dbms_sql.open_cursor;

    dbms_sql.parse(cursor_id, 'update demo set dt = :x', dbms_sql.native);
    dbms_sql.bind_variable(cursor_id, 'x', example1);
    rows_processed := dbms_sql.execute(cursor_id);

    dbms_sql.close_cursor(cursor_id);
end;

（dbms_sql.bind_variable的第二个参数是name，所以我通过了'x'而不是':x'，尽管它似乎也接受了。{/ p>

正如Wernfried已经指出的那样，你不需要DBMS_SQL的所有复杂性，因为你可以使用execute immediate：

declare
    example1 date := sysdate;
begin
    execute immediate 'update demo set dt = :x' using example1;
end;

Answer 3

我不准备你想用功能取代一些＆＃34;绑定＆＃34; 。它的功能应该在运行时执行，例如：

 execute immediate 'UPDATE TEST_TABLE 
    SET a = :bind_function'
  using 'substr(a,1,10)';

应该执行：

 UPDATE TEST_TABLE 
    SET a = substr(a,1,10);

Oracle绑定vriables不允许这样做; 但是你可以编写你的函数来替换占位符

  declare 
    l_sql varchar2(4000); 
    l_placeholder1 varchar2(4000) := '(\w+)\s+/\*placeholder_1\*/';
    l_function1    varchar2(4000) := 'substr(\1,1,10)';
    l_placeholder2 varchar2(4000) := '(\w+)\s+/\*placeholder_2\*/';
    l_function2    varchar2(4000) := 'nvl(\1,1000)';
  begin
    l_sql :=  'UPDATE TEST_TABLE 
    SET column_a = column_a /*placeholder_1*/
      , column_b = column_b /*placeholder_2*/
      , column_c = column_e /*placeholder_1*/
    where column_d /*placeholder_2*/ = 10';
    l_sql := REGEXP_REPLACE(l_sql,l_placeholder1,l_function1); 
    l_sql := REGEXP_REPLACE(l_sql,l_placeholder2,l_function2); 
    dbms_output.put_line(l_sql);  
    execute immediate l_sql;
  end;

DBMS_SQL.BIND_VAR到一个函数（例如sysdate）

3 个答案: