Hola
Al ejecutar la aplicación abro las bases de datos con OpenDatos() y al
cerrarla automaticamente se cierran con Close()
//
Procedure OpenDatos()
.. With object AppData:oAdsDataSource := TAdsDataSource():Create()
:cConnect := Appdata:DirDatos
:lRightsCheck := .f.
:lUseDictionary := .f.
:nFileType := afADT
:nServerType := asLOCAL
AppData:oDbfGrupos := :NewDataSet( "GRU"+Appdata:Ejercicio )
:OpenProcess()
end with
AppData:OnClose := {|| Close() }
Return
Procedure Close()
AppData:oAdsDataSource:EndProcess()
Return
//
Pero espues si desde cualquier otro formulario quiero cerra las bases de
datos
AppData:oAdsDataSource:EndProcess()
Me arroja un error
FOKDATOS(95)
Error BASE/1004 Class: 'NIL' has no exported method: ENDPROCESS
Argumentos: ()
Alguna idea de porque
Gracias
Paco Gomis
fvgomis@ono.com
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
AppData y DataSource
-
Paco Gomis
- Mensajes: 70
- Registrado: Mar Oct 27, 2009 2:59 pm
-
Paco Gomis
- Mensajes: 70
- Registrado: Mar Oct 27, 2009 2:59 pm
AppData y DataSource
Solucionado
Instaciava AppData:oAdsDataSource:EndProcess() antes de crearlo.
Gracias Paco (Grupo ST)
Un Saludo
Paco Gomis
fvgomis@ono.com
"Paco Gomis" <fvgomis@ono.com> escribió en el mensaje
news:4448fd6c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola
> Al ejecutar la aplicación abro las bases de datos con OpenDatos() y al
> cerrarla automaticamente se cierran con Close()
> //
> Procedure OpenDatos()
> . With object AppData:oAdsDataSource := TAdsDataSource():Create()
> :cConnect := Appdata:DirDatos
> :lRightsCheck := .f.
> :lUseDictionary := .f.
> :nFileType := afADT
> :nServerType := asLOCAL
> AppData:oDbfGrupos := :NewDataSet( "GRU"+Appdata:Ejercicio )
> :OpenProcess()
> end with
> AppData:OnClose := {|| Close() }
> Return
>
> Procedure Close()
> AppData:oAdsDataSource:EndProcess()
> Return
> //
> Pero espues si desde cualquier otro formulario quiero cerra las bases de
> datos
> AppData:oAdsDataSource:EndProcess()
> Me arroja un error
> FOKDATOS(95)
> Error BASE/1004 Class: 'NIL' has no exported method:
> ENDPROCESS
> Argumentos: ()
>
>
> Alguna idea de porque
> Gracias
> Paco Gomis
> fvgomis@ono.com
>
>
>
>
Instaciava AppData:oAdsDataSource:EndProcess() antes de crearlo.
Gracias Paco (Grupo ST)
Un Saludo
Paco Gomis
fvgomis@ono.com
"Paco Gomis" <fvgomis@ono.com> escribió en el mensaje
news:4448fd6c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola
> Al ejecutar la aplicación abro las bases de datos con OpenDatos() y al
> cerrarla automaticamente se cierran con Close()
> //
> Procedure OpenDatos()
> . With object AppData:oAdsDataSource := TAdsDataSource():Create()
> :cConnect := Appdata:DirDatos
> :lRightsCheck := .f.
> :lUseDictionary := .f.
> :nFileType := afADT
> :nServerType := asLOCAL
> AppData:oDbfGrupos := :NewDataSet( "GRU"+Appdata:Ejercicio )
> :OpenProcess()
> end with
> AppData:OnClose := {|| Close() }
> Return
>
> Procedure Close()
> AppData:oAdsDataSource:EndProcess()
> Return
> //
> Pero espues si desde cualquier otro formulario quiero cerra las bases de
> datos
> AppData:oAdsDataSource:EndProcess()
> Me arroja un error
> FOKDATOS(95)
> Error BASE/1004 Class: 'NIL' has no exported method:
> ENDPROCESS
> Argumentos: ()
>
>
> Alguna idea de porque
> Gracias
> Paco Gomis
> fvgomis@ono.com
>
>
>
>