Clipper/FiveWin - aprovecho la ocacion

Aprovecho que puedes ayudar en eodigo de clipper y fivewin, tengo el sig, codigo que se conecta a mysql, solo necesito saber como sacar del objeto el arreglo o sacar el valor de cada campo de la tabla que traigo con el select

function main
local oCon
oCon:=toleauto():new("adodb.connection")
oCon:OPEN("DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=10.35.176.146;DATABASE=coordinacion2;UID=root")
//;PWD=rachmaninov")
oSql:=toleauto():new("adodb.command")
oSql:ActiveConnection(oCon)
* oSql:CommandText:="Select * from catalogo"
oSql:CommandText:="Select * from catalogo where DESCRIPCIO like '%COMETIDA%'"
oDatos:=oSql:Execute()
set colo to w+/b
cls
@0,0 say "Registros "+STR(oDatos:RecordCount())
@1,0 say "Campos "+STR(oDatos:Fields:Count())

?oDatos:Fields:Count()

inkey(0)
Odatos:MoveFirst()

retu

Ojala puedas ayudarme gracias

Vamos a ver, el objeto Command regresa un objeto RecordSet, luego, TODOS los datos estan almacenados en el recordset, ahora tienes que descargarlos a un array,

¿¿¿¿ ya probaste utilizar la data VALUE del objeto FIELDS ??????

aDatos := {}

DO WHILE .NOT. oDatos:Eof()

aTemp := {}

FOR x := 1 TO oDatos:Fields:Count()
AADD(aTemp, oDatos:Fields(x-1):Value)
NEXT x

AADD(aDatos, aTemp)
oDatos:MoveNext()

ENDDO

Con este pedazo de codigo vulecas todos los valores devueltos por el SELECT a un array.