may
29
2012

CURSOR DINÁMICO FORMS 10G

Os dejo un ejemplo sobre como crear un cursor dinámico en Forms.

PROCEDURE cursor IS
my_cursor INTEGER;
NUM_ROWS_PROCESSED INTEGER;
id NUMBER;
valor VARCHAR2(45);
SQLSTR VARCHAR2(70);
 
BEGIN
SQLSTR := 'SELECT id, valor FROM test  ';
my_cursor:= DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE (my_cursor, SQLSTR, 1);
DBMS_SQL.DEFINE_COLUMN (my_cursor, 1, id);
DBMS_SQL.DEFINE_COLUMN (my_cursor, 2, VALOR, 45);
NUM_ROWS_PROCESSED := DBMS_SQL.EXECUTE (my_cursor);
 
LOOP
IF DBMS_SQL.FETCH_ROWS (my_cursor) > 0 THEN
DBMS_SQL.COLUMN_VALUE (my_cursor, 1, id);
DBMS_SQL.COLUMN_VALUE (my_cursor, 2, valor);
message(TO_CHAR(id) || ' ' || valor);
message(TO_CHAR(id) || ' ' || valor);
ELSE
EXIT;
END IF;
END LOOP;
DBMS_SQL.CLOSE_CURSOR (my_cursor);
END;
Compártenos ...

    Artículos relacionados

    About the Author:

    Leave a comment


    × ocho = 48

    Entradas recientes

    Encuesta Rápida

    ¿Qué OS para móvil te gusta más?

    View Results

    Loading ... Loading ...

    Recientes

    • admin: Hola Andres, Mira, en esta otra “aplicación” tienes la función publishwall que publica en el muro...
    • andres: gran aporte lo de publicar en tu muro con dialogo lo sabia pero el sin dialogo no queria saber si me podrian...
    • admin: Gracias!! Cualquier idea será bienvenida. Gracias de nuevo.
    • admin: Hola Jaiver, La página ahora mismo tiene instalado el plugin para la versión móbil, si entras desde uno de...
    • Jaiver: hola, tienen version mobil de su pagina? .. saludos.