Socorro....

-----------------------

criei, com ajuda de colegas da UT, uma classe, como mostro abaixo:

-----------------------
LOCAL loClientes as CaClientes

loClientes=CREATEOBJECT("CAClientes")

BROW


* CRIANDO A CLASSE

DEFINE CLASS CAClientes as CursorAdapter

PROTECTED cStrConn as String
PROTECTED oConn as "ADODB.Connection"
PROTECTED oRs as "ADODB.RecordSet"

DataSourceType ="ADO"

PROCEDURE INIT

with this
.cStrConn ="Provider=MSDASQL.1;Password=masterkey;Persist Security nfo=True;User ID=sysdba;Data Source=sagwin"
.oConn =CREATEOBJECT("ADODB.Connection")
.oConn.open(.cStrConn)
.oRS =CREATEOBJECT("ADODB.RecordSet")
.oRS.ActiveConnection=.oConn
.Datasource =this.oRS
.ALIAS ="clientes"
.SelectCMD ="Select codigo,nome from clientes"
.CursorFill(.t.)
endwith

ENDPROC

ENDDEFINE

-----------------------------

o problema é, quando executo esta classe ela não me retorna nada, quando executa a linha do browse, não existe nenhum cursor..

lembrete o meu banco é o firebird...

grato...