Power Builder - CURSORES EN PB

COMO SE DEFINEN Y SE UTILIZAN LOS CURSORES DESDE POWER BUILDER. SI ME
PUEDEN ENVIAR UN EJEMPLO LE AGRADEZCO.

Un Cursor un PB es una forma muy util para procesar un set de resultados registro por registro. te envio un ejemplo:

string depto
string empleado
string nombre

DECLARE dept_curs CURSOR FOR SELECT codigo,
nombre FROM departamentos;
OPEN dept_curs;
if SQLCA.sqlcode < 0 then
MessageBox("Open Cursor",SQLCA.sqlerrtext)
end if

DO WHILE SQLCA.sqlcode = 0

FETCH dept_curs INTO :depto, :empleado;
if SQLCA.sqlcode < 0 then
MessageBox("Fetch Error",SQLCA.sqlerrtext)
elseif SQLCA.sqlcode = 0 then
SELECT nombre_empleado INTO
:nombre FROM empleados WHERE emp_id = :empleado;
if SQLCA.sqlcode <> 0 then
MessageBox("select", &
SQLCA.sqlerrtext)
end if
end if
LOOP

CLOSE dept_curs;

if SQLCA.sqlcode <> 0 then
MessageBox("Close Cursor", SQLCA.sqlerrtext)
end if

//fin del codigo

Espero que te pueda ser util

Keylor

hola deme un alcance sobre cursores o explicame por favor

HOLAS NECESITO AYUDA
QUIERO HASER UNA CONSULTA QUE ME MUESTRE LAS FECHAS DE UNA BASE D EDATOS PERO QUIERO HASERLO CON CURSORES PERO AL DIGITAR LOS CODIGOS NO ME ACEPTA NO SE QUE PUEDA HASER SI

HOLAS NECESITO AYUDA
QUIERO HASER UNA CONSULTA QUE ME MUESTRE LAS FECHAS DE UNA BASE D EDATOS PERO QUIERO HASERLO CON CURSORES PERO AL DIGITAR LOS CODIGOS NO ME ACEPTA NO SE QUE PUEDA HASER SI

porfa ayudeme necesito cursores de power builder

en al consulta de mi cursor si puedo enviear la consulta con un where campo = :x, la pregunta del millon y medio es puedo hacer la consulta con un select campos from tablas where campo IN (:X) o como puedo hacerlo necesito hacer un cursor de ese tipo es posible o no gracais antemano

string categ

DECLARE Lista_cate CURSOR FOR SELECT DISTINCT categoria FROM CATEGORIA;

OPEN Lista_cate;

FETCH Lista_Cate INTO :categ;

DO WHILE sqlca.sqlcode<>100

ddlb_cat.additem(categ)

FETCH Lista_Cate INTO :categ;

LOOP

CLOSE Lista_cate;

No te recomiendo que uses cursores en tu aplicacion, lo mejor es usar datastores.

crea un un objeto datawindow (ejm d_empleado)

luego en el script:

DataStore lds_emp

lds_emp= create DataStore

lds_emp.DataObject = "d_empleado"
/*
aqui puedes hacer lo que se te plasca con el
datastore, tiene todas las funcionalidades y propiedades de un control datawindow

*/

destroy lds_emp

Salu2,
IsmA.