Problema con Datasets

[jmartial]

Hola,
Estoy teniendo el siguiente problema que nunca habí­a visto. Si pongo lo
siguiente para crear un objeto TDataset :
WITH OBJECT ::oCab := TDbfDataSet():New( )
:oDataSource := ::oRdd
:cName := "PRECLI.DBF"
:lShared := .T.
:lNew := .T.
:lOpen := .F.
:lReUseDel := .T.
:Create()
END
Como se puede observar no abro la dbf. Si salgo de la aplicación Xailer
me muestra un msgbox() diciendo que me he dejado abierto el Dataset.
¿Si no lo he abierto porqué me lo dice? ¿Debo crearlo de otra manera?
Un Saludo,
Joaquí­n Martí­nez

[ignacio]

Joaquin,
Me he tomado lo molestia de hacer un pequeño proyecto en el cual incluyo un
CDXDataSource de nombre oRDD y con el siguiente y único código en el evento
OnClick del único botón del formulario:
//---------------------------------------------------------- --------------------
METHOD Button1Click( oSender ) CLASS TForm1
WITH OBJECT TDbfDataSet():New( )
:oDataSource := ::oRdd
:cName := "PRECLI.DBF"
:lShared := .T.
:lNew := .T.
:lOpen := .F.
:lReUseDel := .T.
:Create()
END
RETURN Nil
Después de pulsar el botón multitud de veces, salgo de la aplicación y no
recibo ningún mensaje de ficheros abiertos.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:465188fe$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Hola,
>
> Estoy teniendo el siguiente problema que nunca había visto. Si pongo lo
> siguiente para crear un objeto TDataset :
>
> WITH OBJECT ::oCab := TDbfDataSet():New( )
> :oDataSource := ::oRdd
> :cName := "PRECLI.DBF"
> :lShared := .T.
> :lNew := .T.
> :lOpen := .F.
> :lReUseDel := .T.
> :Create()
> END
>
> Como se puede observar no abro la dbf. Si salgo de la aplicación Xailer me
> muestra un msgbox() diciendo que me he dejado abierto el Dataset. ¿Si no
> lo he abierto porqué me lo dice? ¿Debo crearlo de otra manera?
>
> Un Saludo,
> Joaquín Martínez

[jmartial]

Ignacio,
Perdón por no incluir estas 2 lí­neas y gracias por molestarte, pero me
lo podrí­as haber dicho y te lo hubiera enviádo inmediatamente. Siento el
despiste por mi parte.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WITH OBJECT ::oRdd := TCdxDataSource():New()
:cConnect := "c:test"
:Create()
END
WITH OBJECT ::oCab := TDbfDataSet():New( )
:oDataSource := ::oRdd
:cName := "PRECLI.DBF"
:lShared := .T.
:lNew := .T.
:lOpen := .F.
:lReUseDel := .T.
:Create()
END
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Te comento, esto está en una clase aparte, no visual, no forma parte de
ningún formulario, con lo cual no se le pasa nada en el new y no sé si
tomará algún valor por defecto.
No uso en esa aplicación ningún componente Dataset ni Datasource aparte
de estos 2 trozos de código.
Al crear una clase llamo a este método y si a continuación salgo de la
aplicación, entonces me da el error:
XAILER TCdxDataSource: 1 files not closed correctly
Siempre hablo sin ejecutar ::oCab:lOpen = .t. ni ::oCab:Open() en
ninguna parte de la aplicación.
Un Saludo,
Joaquí­n
Ignacio Ortiz de Zúñiga escribió:
> Joaquin,
>
> Me he tomado lo molestia de hacer un pequeño proyecto en el cual incluyo un
> CDXDataSource de nombre oRDD y con el siguiente y único código en el evento
> OnClick del único botón del formulario:
>
> //---------------------------------------------------------- --------------------
>
> METHOD Button1Click( oSender ) CLASS TForm1
>
> WITH OBJECT TDbfDataSet():New( )
> :oDataSource := ::oRdd
> :cName := "PRECLI.DBF"
> :lShared := .T.
> :lNew := .T.
> :lOpen := .F.
> :lReUseDel := .T.
> :Create()
> END
>
> RETURN Nil
>
> Después de pulsar el botón multitud de veces, salgo de la aplicación y no
> recibo ningún mensaje de ficheros abiertos.
>
> Un saludo
>

[ignacio]

Joaquin,
Ok. Visto. Intentaremos arreglarlo lo antes posible.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Joaquín Martínez" <jmartial@interbook.net> escribió en el mensaje
news:4651c425$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Ignacio,
>
> Perdón por no incluir estas 2 líneas y gracias por molestarte, pero me lo
> podrías haber dicho y te lo hubiera enviádo inmediatamente. Siento el
> despiste por mi parte.
>
> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>
> WITH OBJECT ::oRdd := TCdxDataSource():New()
> :cConnect := "c:test"
> :Create()
> END
>
> WITH OBJECT ::oCab := TDbfDataSet():New( )
> :oDataSource := ::oRdd
> :cName := "PRECLI.DBF"
> :lShared := .T.
> :lNew := .T.
> :lOpen := .F.
> :lReUseDel := .T.
> :Create()
> END
>
> >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>
> Te comento, esto está en una clase aparte, no visual, no forma parte de
> ningún formulario, con lo cual no se le pasa nada en el new y no sé si
> tomará algún valor por defecto.
>
> No uso en esa aplicación ningún componente Dataset ni Datasource aparte de
> estos 2 trozos de código.
>
> Al crear una clase llamo a este método y si a continuación salgo de la
> aplicación, entonces me da el error:
>
> XAILER TCdxDataSource: 1 files not closed correctly
>
>
> Siempre hablo sin ejecutar ::oCab:lOpen = .t. ni ::oCab:Open() en ninguna
> parte de la aplicación.
>
>
> Un Saludo,
> Joaquín
>
>
> Ignacio Ortiz de Zúñiga escribió:
>> Joaquin,
>>
>> Me he tomado lo molestia de hacer un pequeño proyecto en el cual incluyo
>> un CDXDataSource de nombre oRDD y con el siguiente y único código en el
>> evento OnClick del único botón del formulario:
>>
>> //---------------------------------------------------------- --------------------
>>
>> METHOD Button1Click( oSender ) CLASS TForm1
>>
>> WITH OBJECT TDbfDataSet():New( )
>> :oDataSource := ::oRdd
>> :cName := "PRECLI.DBF"
>> :lShared := .T.
>> :lNew := .T.
>> :lOpen := .F.
>> :lReUseDel := .T.
>> :Create()
>> END
>>
>> RETURN Nil
>>
>> Después de pulsar el botón multitud de veces, salgo de la aplicación y no
>> recibo ningún mensaje de ficheros abiertos.
>>
>> Un saludo
>>