Cursores en power builder

FERSYSTEM

POWER BUILDER

CONSULTA CON CURSORES Y DATAWINDOW
lcodigo lpregunta
La2 la1 La3 La4 La5

tcodigo
tpregunta ta1 ta2 ta3 ta4 ta5

declare c1 cursor for OPEN selectcodigo,pregunta,a1,a2,a3,a4,a5 from preguntas; open c1; do while SQLCA.sqlcode =0 fetch c1 into :v1,:v2,:v3,:v4,:v5,:v6,:v7; lcodigo.additem(v1) lpregunta.additem(v2) la1.additem(v3) la2.additem(v4)la3.additem(v5) la4.additem(v6) la5.additem(v7) LOOP close c1;

PROGRAMACION

AGREGAR

insert into preguntas (codigo,pregunta,a1,a2,a3,a4,a5) values(:tcodigo.text,:tpregunta.text,:ta1.text,:ta2.text,:ta3.text,:ta4.text,:ta5.text);
ACTUALIZAR
lcodigo.reset() lpregunta.reset() la1.reset() la2.reset() la3.reset() la4.reset() la5.reset() int n,a String v1,v2,v3,v4,v5,v6,v7 select count(*) into :n frompreguntas; declare c1 cursor for select codigo,pregunta,a1,a2,a3,a4,a5 from preguntas; open c1; for a=1 to n fetch c1 into :v1,:v2,:v3,:v4,:v5,:v6,:v7; lcodigo.additem(v1) lpregunta.additem(v2)la1.additem(v3) la2.additem(v4) la3.additem(v5) la4.additem(v6) la5.additem(v7) next close c1;

Para poder mostrar información de una manera mas exacta tenemos que usar count para que nos cuente losregistro y para mostrar hay que uasr el bucle for para un mejor desepeño

Fersystem_soft@hotmail.com For: Juan Manuel Fernández Novoa

–

www.fersystem.tk

FERSYSTEM

POWER BUILDER

Eliminardelete from preguntas where codigo=:bcodigo.text;

Cuando se quiera eliminar un registro hay que tener cuidado por eso debemos usar sentencias Where para no borra toda la informaciónPROGRAMACION

usando un usuario desde la base datos para realice consultas: según lo permiso otorgados string us,pas // Profile encu SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = False //SQLCA.DBParm ="ConnectString='DSN=encuesta;UID=estacion1;PWD=123456'" us="UID="+tusu.text+";" pas="PWD="+tpas.text+"'" SQLCA.DBParm = "ConnectString='DSN=encuesta;"+us+pas connect; //cargar data dw_1.setTransobject(SQLCA)...