dbms_sql包的用法

http://blog.itpub.net/20948385/viewspace-691398

对于一般的select操作,如果使用动态的sql语句则需要进行以下几个步骤: 
open   cursor---> parse---> define   column---> excute---> fetch   rows---> close   cursor; 
而对于dml操作(insert,update)则需要进行以下几个步骤: 
open   cursor---> parse---> bind   variable---> execute---> close   cursor; 
对于delete操作只需要进行以下几个步骤: 
open   cursor---> parse---> execute---> close   cursor;

例一：
create table test(n_id   number,  v_name  varchar2(50), d_insert_date date);
alter table test add constraint pk_id  primary key(n_id);

declare
   v_cursor   number;
   v_sql      varchar2(200);
   v_id       number;
   v_name     varchar2(50);
   v_date     date;
   v_stat     number;
begin
   
   v_id := 1;
   v_name := '测试 insert';
   v_date := sysdate;
   v_cursor := dbms_sql.open_cursor;  --打开游标
   v_sql := 'insert into test(n_id, v_name, d_insert_date) values(:v_id,:v_name,:v_date)';
   dbms_sql.parse(v_cursor, v_sql, dbms_sql.native);  --解析SQL
   dbms_sql.bind_variable(v_cursor, ':v_id', v_id);   --绑定变量
   dbms_sql.bind_variable(v_cursor, ':v_name', v_name);
   dbms_sql.bind_variable(v_cursor, ':v_date', v_date);
   
   v_stat := dbms_sql.execute(v_cursor);  --执行
   dbms_sql.close_cursor(v_cursor);   --关闭游标
   commit;
end;

例二：

declare
   v_cursor   number;
   v_sql      varchar2(200);
   v_id       number;
   v_name     varchar2(50);
   v_stat     number;
begin
    v_name := '测试 update';
    v_id := 1;
    v_cursor := dbms_sql.open_cursor;
    v_sql := 'update test set v_name = :v_name, d_insert_date = :v_date where n_id = :v_id';
    dbms_sql.parse(v_cursor, v_sql, dbms_sql.native);
    dbms_sql.bind_variable(v_cursor, ':v_name', v_name);
    dbms_sql.bind_variable(v_cursor, ':v_date', sysdate);
    dbms_sql.bind_variable(v_cursor, ':v_id', v_id);
    v_stat := dbms_sql.execute(v_cursor);
    dbms_sql.close_cursor(v_cursor);
    commit;
end;

例三：

declare
    v_cursor   number;
    v_sql      varchar2(200);
    v_id       number;
    v_stat     number;
begin

   v_id := 1;
   v_sql := 'delete from test where n_id = :v_id';
   v_cursor := dbms_sql.open_cursor;
   dbms_sql.parse(v_cursor, v_sql, dbms_sql.native);
   dbms_sql.bind_variable(v_cursor, ':v_id', v_id);
   v_stat := dbms_sql.execute(v_cursor);
   dbms_sql.close_cursor(v_cursor);
   commit;
end;

例四：

declare
   v_cursor    number;
   v_sql       varchar2(200);
   v_id        number;
   v_name      varchar2(50);
   v_date      varchar2(10);
   v_stat      number;
begin

    v_sql := 'select n_id, v_name, to_char(d_insert_date, ''yyyy-mm-dd'') from test';
    v_cursor := dbms_sql.open_cursor;              --打开游标
    dbms_sql.parse(v_cursor, v_sql, dbms_sql.native);  --解析游标
    dbms_sql.define_column(v_cursor, 1, v_id);         --定义列
    dbms_sql.define_column(v_cursor, 2, v_name, 50);   --注意：当变量为varchar2类型时，要加长度
    dbms_sql.define_column(v_cursor, 3, v_date, 10);
    v_stat := dbms_sql.execute(v_cursor);        --执行SQL
    loop
        exit when dbms_sql.fetch_rows(v_cursor) <= 0;  --fetch_rows在结果集中移动游标，如果未抵达末尾，返回1。
        dbms_sql.column_value(v_cursor, 1, v_id);   --将当前行的查询结果写入上面定义的列中。
        dbms_sql.column_value(v_cursor, 2, v_name);
        dbms_sql.column_value(v_cursor, 3, v_date);
        dbms_output.put_line(v_id || ':' || v_name || ':' || v_date);
    end loop;
end;

 

 

 

 

http://blog.tianya.cn/blogger/post_read.asp?BlogID=3351679&PostID=39449188

表名为变量，利用dbms_sql及游标返回多条记录(调用时候传入表名，无法在sql中动态修改标明)

这几天一直在利用PL/SQL Developer写一个存储过程，因为是新手，写了好几天，功能就是根据传入进来的参数（表名和某一特定值查询记录），并将记录插入另一个表中。由于表名是变量，所以使用dbms_sql动态包来解析sql语句，游标也不采用静态游标。
　　1.创建存储过程 
　　create or replace procedure proGetLayerInfoFtable(in_layerName in varchar2,
　　 in_objName in varchar2) is
　　 --in_layerName ：输入的图层名
　　 --in_objName：输入的具体地理物体名
　　 str_sql varchar2(500); --查询字符串
　　 v_cursor number; --游标
　　 rowprocess number;
　　 column_Name varchar2(100); --临时变量，存储地理对象名
　　 column_Minx float; --临时变量，存储从表中获取的EMINX值
　　 column_Miny float; --临时变量，存储从表中获取的EMINY值
　　2.begin
　　 v_cursor := dbms_sql.open_cursor; --打开游标
　　 str_sql := 'select 名称,t.SHAPE.MINX,t.SHAPE.MINY from ' || tableBName ||
　　 ' t where t.名称=''' || in_objname || '''';
　　 dbms_sql.parse(v_cursor, str_sql, dbms_sql.native);分析游标
　　
　　 --动态定义列，并将游标的值赋给对应列
　　 dbms_sql.define_column(v_cursor, 1, column_Name, 40);
　　 dbms_sql.define_column(v_cursor, 2, column_Minx);
　　 dbms_sql.define_column(v_cursor, 3, column_Miny);
　　 loop
　　 if dbms_sql.fetch_rows(v_cursor) > 0 then
　　 dbms_sql.column_value(v_cursor, 1, column_Name);
　　 dbms_sql.column_value(v_cursor, 2, column_minx);
　　 dbms_sql.column_value(v_cursor, 3, column_Miny);
　　 else
　　 exit;
　　 end if;
　　 end loop;
　　 dbms_sql.close_cursor(v_cursor);
　　end proGetLayerInfo;