1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
drop table table_co;
create table table_co (objid NUMBER, product VARCHAR2(100));
insert into table_co values(12, '13000');
commit;
set serveroutput on;
DECLARE
sColumn VARCHAR2(100):='';
cid1 INTEGER;
rc INTEGER;
nb INTEGER;
sSelect2 VARCHAR2(500):=NULL;
BEGIN
sSelect2 := ' Select product FROM TABLE_CO WHERE OBJID=12';
cid1 := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cid1, sSelect2, dbms_sql.native);
DBMS_SQL.DEFINE_COLUMN_CHAR(cid1, 1, sColumn, 100);
-- DBMS_SQL.EXECUTE_AND_FETCH(cid1, TRUE);
rc := DBMS_SQL.EXECUTE(cid1);
nb := DBMS_SQL.FETCH_ROWS(cid1);
DBMS_SQL.COLUMN_VALUE_CHAR(cid1, 1, sColumn);
dbms_output.put_line('Scolumn=' || Scolumn);
END; |
Partager