Bom dia!
Faço uma conexão com o Firebird utilizando AdoDb que está funcionando, porém não consigo varrer todos os registros da tabela selecionada, fica sempre posicionada no inÃcio do RecordSet. Vejam:
public CNN
try
CNN:=CreateObject("ADODB.Connection")
CNN:Open("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=127.0.0.1:C:\CONVER~1\santor~1\Arquiv~1\Emdesa~1\Fashion\Dados\01\data.fdb;CHARSET=WIN1252;DIALECT=3;CLIENT=fbEmbed.dll")
catch e
Error Connection CNN
ExitProcess(0)
end
try
oCursor:=CreateObject("ADODB.Recordset")
catch e
Error Connection CNN
return
end
oCursor:Open("select * from CLIENTE order by CODCLIENTE", CNN, 2, 3)
&& O problema está no bloco abaixo, ele deveria varrer a tabela com o :MoveNext() porém isto não está ocorrendo.
oCursor:MoveFirst()
do while .not. oCursor:Eof()
msgstop( oCursor:Fields["NOMECLIENTE"]:Value, "" )
oCursor:MoveNext()
enddo
Ele não se movimenta, mostra sempre o mesmo registro e entra em loop. Alguém já passou por esta situação e poderia me dar uma dica? Não encontro o erro, o AdoDb.ch que estou utilizando é do exemplo Agenda postado anteriormente. Muito obrigado!
Adilson