Powerbuilder-consultas Con Cursores Y Data Windows

POWER BUILDER

FERSYSTEM

CONSULTA CON CURSORES Y DATAWINDOW lcodigo lpregunta

La2

La3

la1

La4

tcodigo tpregunta ta1 ta2 ta3 ta4

PROGRAMACION

ta5

La5

declare c1 cursor for OPEN select codigo,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;

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 from preguntas; 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;

[email protected] For: Juan Manuel Fernández Novoa

–

www.fersystem.tk

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

POWER BUILDER

FERSYSTEM

PROGRAMACION

Eliminar delete 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ón

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) dw_1.retrieve() Usando un datawindows y usar sus funciones para avanzar o retoceder en los registros //avanzar registro dw_1.scrollnextrow() //avanzar registro dw_1.scrollpriorrow() //para ir al inicio dw_1.scrolltorow(1) // para ir al final dw_1.scrolltorow(dw_1.rowcount()) A PDF dw_1.Object.DataWindow.Export.PDF.Method = XSLFOP! dw_1.SaveAs("printe1.pdf", PDF!, true) [email protected] For: Juan Manuel Fernández Novoa

–

www.fersystem.tk