Como cerrar los XA_DATASET1 usando el m

[Carlos Ortiz]

Ya medio que lo resolví pero pregunto para conocer a cerca del tema!
Usamos Xailer 1.99 + Postgres + Clases y MVC
A las grillas con datos (no son editables) las cargamos usando un
::oSlq:Query("select ..." por ejemplo) y a dicho oDbcDataSet recibido se lo
pasamos al dbbrowse(), e aquí la duda por que detecto que en la carpeta
temporal definido en el entorno del SO me quedan los archivos
XA_DATASET1.tmp de cada una de esas consultas y no consigo de que se cierren
y por ende autodestruyan, lo que origina que despues de un rato de usar el
sistema me aparezca el error "Area actualmente en uso: XA_DATASET250" y se
cierre la aplicación obviamente. Esto es así?, hay algo que le diga a los
dataset cerrate y borrate o no permanezcas conectada al odatasource?.
Estuve probando hacer QueryArray ya que al no crear archivos en disco supuse
que podría andar bién, y efectivamente les puedo asegurar que la diferencia
de velocidad en un select de 50.000 registros se nota y mucho entre un
quereyarray y un query común, pero despues tengo problemas para armar la
estructura del array como para pretender pasar esto a un memdataset y que el
browse trabaje con un array y no con un dbf de fondo.
Quzás haciendo un query en FALSE para crear la estructura de un memdataset
desde ese dataset y luego hacer el queryarray para pasarselo al aData del
memdataset, no se por ahí me complico yo solo, el tema es que el sistema
está manejando grandes volumenes de datos y lo veo medio lerdo.
Por otro lado el FasReport no me funciona con memdataset como alias() pero
bueno seguiré investigando.
Desde ya muchas gracias
Perdón por el largo del post

[Jaxmax]

Nosotros usamos MySql y ODBC, te dejo un ejemplo de una consulta
usando un QueryArray y usando un ArrayBrowse

METHOD refresca() CLASS servicios
LOCAL cArma, adSer
cArma:=" select servicio,nombre,tipo";
+" from servicios" ;
+" order by servicio"
adSer:=appdata:origen1:QueryArray(carma)
with object ::obSer
:setarray(adSer,{"Servicio","Descripcion","Tipo"})
:acols[01]:nwidth:=80
:acols[02]:nwidth:=250
:acols[03]:nwidth:=100
end with
::obSer:refresh()
RETURN Nil

Si quieres un ejemplo de un Browse editable me dices y pongo el ejemplo.

[Carlos Ortiz]

Cualquier cosa te aviso, muchas gracias.
Muchas gracias.
"Max J[dot] Rodriguez Beltran" <ing[dot]maxjrb[at]gmail[dot]com> escribió en
el mensaje news:4cdee2e3$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Nosotros usamos MySql y ODBC, te dejo un ejemplo de una
> consulta
> usando un QueryArray y usando un ArrayBrowse
>
>
> METHOD refresca() CLASS servicios
>
> LOCAL cArma, adSer
>
> cArma:=" select servicio,nombre,tipo";
> +" from servicios" ;
> +" order by servicio"
>
> adSer:=appdata:origen1:QueryArray(carma)
>
> with object ::obSer
>
> :setarray(adSer,{"Servicio","Descripcion","Tipo"})
>
> :acols[01]:nwidth:=80
> :acols[02]:nwidth:=250
> :acols[03]:nwidth:=100
>
> end with
>
> ::obSer:refresh()
>
> RETURN Nil
>
>
>
> Si quieres un ejemplo de un Browse editable me dices y pongo
> el ejemplo.
>