Cómo saber si una base de datos esta abierta.

Hola José Luis:

Puedes usar DBUSED( )

De la ayuda de VFP.

Returns true (.T.) if the specified database is open.

DBUSED(cDatabaseName)

Return Values: Logical

Parameters: cDatabaseName

Specifies the name of the database for which DBUSED( ) returns a logical
value indicating whether or not the database is open.

Remarks: DBUSED( ) returns true (.T.) if the specified database is open;
otherwise, it returns false (.F.).

Example

The following example opens the TESTDATA database, and then uses DBUSED( )
to determine if the TESTDATA database and a database named TEST are open.

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')

CLEAR
? 'Testdata database open? '
?? DBUSED('testdata') && Displays .T.
? 'Test database open? '
?? DBUSED('test') && Displays .F.

Saludos, Antonio Muñoz de Burgos
www.emans.com (Web realizada en vFoxPro)
Manifestando el apoyo a la comunidad de Visual FoxPro

" José Luis" <JLB> escribió en el mensaje
news:

Hola a todos, antes de nada desearos a todos un feliz y prospero año
nuevo.
El motivo de mi consulta es para ver si alguien me podría decir si hay
alguna manera de saber si una base de datos ya esta abierta antes de
realizar el proceso de apertura de dicha base de datos.

Gracias por anticipado.

Un saludo,
José Luis.