Como puedo saber si ya esta abierta la base de datos ?

llDBUsed = DBUSED("MiBasedeDatos")

Espero te sirva.

Hola amigos.
Me gustaria saber una forma de como saber si la base de datos ya se
encuentra abierta.
No hace mucho respondieron a esta inquietud pero no pude encontrar el hilo.
Trabajo con VFP6 SP5.
Muchas gracias desde ya.

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
Acapulco, México
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Muchas gracias Esparta, pero necesitaria una cosa mas

Como puedo hacer para saber si la base de datos esta abierta en modo shared
en la red,
o sea que hay usuarios utilizandola,
para asi yo puedo abrirla en exclusive para una tarea de mantenimiento
necesaria en ese momento.

De nuevo muchas gracias por la ayuda.




"Esparta Palma" escribió en el
mensaje news:

llDBUsed = DBUSED("MiBasedeDatos")

Espero te sirva.

>Hola amigos.
>Me gustaria saber una forma de como saber si la base de datos ya se
>encuentra abierta.
>No hace mucho respondieron a esta inquietud pero no pude encontrar el

hilo.

>Trabajo con VFP6 SP5.
>Muchas gracias desde ya.

¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
Acapulco, México
email:mexicoSINSPAM[Arroba]portalfox.com


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Es simple, tratando de abrirla en modo exclusivo y si se produce error
interceptarlo...

TRY
OPEN DATABASE lcMiDatabase EXCLUSIVE
CATCH TO oError
DO CASE
CASE oError.ErrorNo = 1705 && Acceso denegado
*** Tabla abierta en otra estación
CASE oError.ErrorNo = 1
*** Error no existe el archivo...
ENDCASE
ENDTRY

Espero te sirva.

Muchas gracias Esparta, pero necesitaria una cosa mas

Como puedo hacer para saber si la base de datos esta abierta en modo shared
en la red,
o sea que hay usuarios utilizandola,
para asi yo puedo abrirla en exclusive para una tarea de mantenimiento
necesaria en ese momento.

De nuevo muchas gracias por la ayuda.

"Esparta Palma" escribió en el
mensaje news:

llDBUsed = DBUSED("MiBasedeDatos")

Espero te sirva.

>Hola amigos.
>Me gustaria saber una forma de como saber si la base de datos ya se
>encuentra abierta.
>No hace mucho respondieron a esta inquietud pero no pude encontrar el

hilo.

>Trabajo con VFP6 SP5.
>Muchas gracias desde ya.

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
Acapulco, México
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Muchas gracias Esparta, sos un maestro.
Saludos.




"Esparta Palma" escribió en el
mensaje news:

Es simple, tratando de abrirla en modo exclusivo y si se produce error
interceptarlo...

TRY
OPEN DATABASE lcMiDatabase EXCLUSIVE
CATCH TO oError
DO CASE
CASE oError.ErrorNo = 1705 && Acceso denegado
*** Tabla abierta en otra estación
CASE oError.ErrorNo = 1
*** Error no existe el archivo...
ENDCASE
ENDTRY

Espero te sirva.



>Muchas gracias Esparta, pero necesitaria una cosa mas

>Como puedo hacer para saber si la base de datos esta abierta en modo

shared

>en la red,
>o sea que hay usuarios utilizandola,
>para asi yo puedo abrirla en exclusive para una tarea de mantenimiento
>necesaria en ese momento.

>De nuevo muchas gracias por la ayuda.




"Esparta Palma" escribió en el
mensaje news:
> llDBUsed = DBUSED("MiBasedeDatos")
>
> Espero te sirva.
>
> >Hola amigos.
> >Me gustaria saber una forma de como saber si la base de datos ya se
> >encuentra abierta.
> >No hace mucho respondieron a esta inquietud pero no pude encontrar el
hilo.
> >Trabajo con VFP6 SP5.
> >Muchas gracias desde ya.

¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
Acapulco, México
email:mexicoSINSPAM[Arroba]portalfox.com


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway