Hello. I have a problem. Appears this message my application "cursor is not open". This message appears just in some machines. Others that have the same application does not have the error. Can you help me? please.
The machines are Windows 10, the DB is Oracle 11g. The software is developed with Appeon Power Builder 2017 R3.
The code is:
Declare lcur_indicador cursor for
SELECT "WEB_INDICA"."CD_INDICA_WEB",
"WEB_INDICA"."NM_INDICA_WEB"
FROM "WEB_INDICA" ORDER BY "WEB_INDICA"."CD_INDICA_WEB" ASC
Using SQLCA;
Open lcur_indicador;
If (SQLCA.sqlcode < 0) then
MessageBox ("Base de Datos", "ERROR-0 : " + &
SQLCA.sqlerrtext, StopSign!)
return
end if
do while (SQLCA.sqlcode = 0)
fetch lcur_indicador into :li_cod_indicador, :ls_nom_indicador;
if (SQLCA.sqlcode = 0) then
ls_total = String(li_cod_indicador) + ' ' + RightTrim(ls_nom_indicador)
ddlb_indicador.AddItem (ls_total)
elseif (SQLCA.sqlcode < 0) then
MessageBox ("Base de Datos", "Error en fetch de lcur_indicador : " + &
SQLCA.sqlerrtext, exclamation!)
return
else
exit
end if
loop
ddlb_indicador.SetRedraw(true)
Close lcur_indicador;
Thanks