Selecion con cursores y select
Publicado por Augusto (2 intervenciones) el 21/04/2005 23:59:32
Tengo este problema, solo me llena el primer valor y me sale error en if SQLCA.sqlcode <> 0 then, a que se debe
// *********** declara curso para Servicios Públicos Energia electrica************
declare cur_servicio cursor for select codServicio, nomServicio, CodClasificacionServicio
from dbo.Servicio
where codclasificacionservicio = 1;
OPEN cur_Servicio ;
if SQLCA.sqlcode < 0 then
MessageBox("Open Cursor",SQLCA.sqlerrtext)
end if
DO WHILE SQLCA.sqlcode = 0
FETCH cur_Servicio INTO :CodigoServicio, :NameServicio, :clasificacionServicio ;
if SQLCA.sqlcode < 0 then
MessageBox("Fetch Error",SQLCA.sqlerrtext)
elseif SQLCA.sqlcode = 0 then
// ************************* Captura y muestra el nombre de la energía electrica ***************************
String NombreServicio
SELECT NomServicio into :NombreServicio
FROM dbo.Servicio;
ddlb_energiaelectrica.additem(NombreServicio)
if SQLCA.sqlcode <> 0 then
MessageBox("Singleton Select", SQLCA.sqlerrtext)
end if
end if
LOOP
CLOSE cur_Servicio;
if SQLCA.sqlcode <> 0 then
MessageBox("Close Cursor", SQLCA.sqlerrtext)
end if
// *********** declara curso para Servicios Públicos Energia electrica************
declare cur_servicio cursor for select codServicio, nomServicio, CodClasificacionServicio
from dbo.Servicio
where codclasificacionservicio = 1;
OPEN cur_Servicio ;
if SQLCA.sqlcode < 0 then
MessageBox("Open Cursor",SQLCA.sqlerrtext)
end if
DO WHILE SQLCA.sqlcode = 0
FETCH cur_Servicio INTO :CodigoServicio, :NameServicio, :clasificacionServicio ;
if SQLCA.sqlcode < 0 then
MessageBox("Fetch Error",SQLCA.sqlerrtext)
elseif SQLCA.sqlcode = 0 then
// ************************* Captura y muestra el nombre de la energía electrica ***************************
String NombreServicio
SELECT NomServicio into :NombreServicio
FROM dbo.Servicio;
ddlb_energiaelectrica.additem(NombreServicio)
if SQLCA.sqlcode <> 0 then
MessageBox("Singleton Select", SQLCA.sqlerrtext)
end if
end if
LOOP
CLOSE cur_Servicio;
if SQLCA.sqlcode <> 0 then
MessageBox("Close Cursor", SQLCA.sqlerrtext)
end if
Valora esta pregunta
0