Tenho que percorrer um recordset, numa consulta ao MySQL com ADO. No xharbour com DBF eu faria assim:
while !chq->(eof())
if ascan(arr_reg,Cid->numreg) == 0 .OR. Cid->numreg == " "
chq->(dbskip())
loop
endif
chq->(dbskip())
end
O loop (abaixo) no recordset dá erro, alguem sabe como deveria proceder?
while !oRSChq:eof()
if ascan(arr_reg,Cid->numreg) == 0 .OR. Cid->numreg == " "
oRsChq:movenext()
orsChq:loop()
endif
oRsChq:movenext()
end
Obrigado