DataSets y DataSources

[Xevi]

A ver si me familiarizo con los DataControls...
Tengo una duda sobre si cerrar un DataSet
FUNCTION miFuncion()
LOCAL oNtxDataSourceORALBARANS, oDataSetORALBARANS
WITH OBJECT oNtxDataSourceORALBARANS := TNtxDataSource():New( Self )
:cConnect := oXevi:cRuta + oXevi:cCodiEmpresa
:lAbortOnErrors := .T.
:lDisplayErrors := .F.
:Create()
END
WITH OBJECT oDataSetORALBARANS := TDbfDataSet():New( Self )
:oDataSource := oNtxDataSourceORALBARANS
:cProcess := "GENERAL"
:cName := "ALBAR.Dbf"
:lDisplayErrors := .F.
:aIdxFiles := { "Albar01", "Albar02", "Albar03", "Albar04", "Albar05", "Albar06", "Albar07", "Albar08", "Albar09", "Albar10", "Albar11", "Albar12" }
:Create()
END
....
....
RETURN NIL
¿Hace falta antes del Return... CERRAR el DataSet???
O por contra, en este caso en concreto, al tratarse de una variable LOCAL, al terminar la función y terminar por consiguiente la visibilidad de la misma variable, automáticamente se cierra el Dataset???
Gracias.
Un Saludo,
Xevi.
--

[joseluis]

Xevi,
No lo he probado...
Los objetos que se crean con variables locales se 'destruyen' cuando se
pierde el ámbito. No obstante, eso no significa que se dispare
automáticamente el método de cierre de tablas. Como mucho se disparará
el método DESTRUCTOR si así­ fue definido.
Serí­a buena práctica, desde mi punto de vista, cerrar esos datasets
cuando no vayas a usarlos más.
Saludos,
José Luis Capel
Xevi escribió:
> A ver si me familiarizo con los DataControls...
>
> Tengo una duda sobre si cerrar un DataSet
>
> FUNCTION miFuncion()
> LOCAL oNtxDataSourceORALBARANS, oDataSetORALBARANS
> WITH OBJECT oNtxDataSourceORALBARANS := TNtxDataSource():New( Self )
> :cConnect := oXevi:cRuta + oXevi:cCodiEmpresa
> :lAbortOnErrors := .T.
> :lDisplayErrors := .F.
> :Create()
> END
>
> WITH OBJECT oDataSetORALBARANS := TDbfDataSet():New( Self )
> :oDataSource := oNtxDataSourceORALBARANS
> :cProcess := "GENERAL"
> :cName := "ALBAR.Dbf"
> :lDisplayErrors := .F.
> :aIdxFiles := { "Albar01", "Albar02", "Albar03", "Albar04",
> "Albar05", "Albar06", "Albar07", "Albar08", "Albar09", "Albar10",
> "Albar11", "Albar12" }
> :Create()
> END
> ...
> ...
> RETURN NIL
>
>
> ¿Hace falta antes del Return... CERRAR el DataSet???
> O por contra, en este caso en concreto, al tratarse de una variable
> LOCAL, al terminar la función y terminar por consiguiente la visibilidad
> de la misma variable, automáticamente se cierra el Dataset???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
>
>

[ignacio]

Xevi,
El único problema que tendrás es que la tabla Albaran.dbf se quedará abierta. No obstante el propio DataSource la cerrará antes de salir de la aplicación, y creo recordar que incluso te muestra un mensaje de aviso indicandote de que existí­a una tabla abierta, para que lo soluciones.
Un saludo,
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:43900586$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
A ver si me familiarizo con los DataControls...
Tengo una duda sobre si cerrar un DataSet
FUNCTION miFuncion()
LOCAL oNtxDataSourceORALBARANS, oDataSetORALBARANS
WITH OBJECT oNtxDataSourceORALBARANS := TNtxDataSource():New( Self )
:cConnect := oXevi:cRuta + oXevi:cCodiEmpresa
:lAbortOnErrors := .T.
:lDisplayErrors := .F.
:Create()
END
WITH OBJECT oDataSetORALBARANS := TDbfDataSet():New( Self )
:oDataSource := oNtxDataSourceORALBARANS
:cProcess := "GENERAL"
:cName := "ALBAR.Dbf"
:lDisplayErrors := .F.
:aIdxFiles := { "Albar01", "Albar02", "Albar03", "Albar04", "Albar05", "Albar06", "Albar07", "Albar08", "Albar09", "Albar10", "Albar11", "Albar12" }
:Create()
END
...
...
RETURN NIL
¿Hace falta antes del Return... CERRAR el DataSet???
O por contra, en este caso en concreto, al tratarse de una variable LOCAL, al terminar la función y terminar por consiguiente la visibilidad de la misma variable, automáticamente se cierra el Dataset???
Gracias.
Un Saludo,
Xevi.

--