Me parece una buena solución, Gracias!
"Ramón Zea" <
zeasoftware@hotmail.com> escribió en el mensaje news:[email=
46c9f95c@ozsrv2.ozlan.local...]
46c9f95c@ozsrv2.ozlan.local...[/email]
Yo lo hago algo asi:
METHOD SaveToArray( aFields, bFor, bWhile ) CLASS TSQLQuery
LOCAL aData := {}
LOCAL aTemp
LOCAL xValue, cValue := ""
LOCAL nFor, cTable
Local cSelect := "SELECT "
:::::
:::::
cSelect += " FROM " + cTable
cSelect += " GROUP BY " + cValue
cSelect += " ORDER BY " + cValue
aTemp := AppData:oDataSource:QueryArray(cSelect)
aEval(aTemp, {|r| aAdd(aData, r[1]) })
RETURN aData
donde cTable, cValue, cOrder, al menos en mi caso son valores que tengo en un TSQLQuery modificado y que lo estoy usando y dando una forma tipo los TDataSet, para no hacer muchas modificaciones a la programacion que ya tengo.
Este pedazo de codigo pertenece a un methodo que me emula SaveToArray() para DBF, asi sigo usando casi la misma estructura de programacion, obvio, me da un poco de lata por que son cosas muy aparte pero..., ahi la llevo.
Espero te sirva de ayuda.
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Karl Svensson" <
karl@bcnartis.com> escribió en el mensaje news:[email=
46c9a745@ozsrv2.ozlan.local...]
46c9a745@ozsrv2.ozlan.local...[/email]
> El método SaveToArray de la clase TDbfDataSource no existe en TSqlQuery.
> ¿Hay alguna forma alternativa para hacer lo mismo?
>
> Gracias
> Karl
>
>
--