Como Saber si hay abierta una base de datos

[colthop]

Hola a todos:

Tengo un programa en red y hay una opción donde desearía saber si algun usuario de la red tiene abierta una base de datos para advertirlo.

¿Existe alguna forma?

Un saludo

Gracias

Carlos

[aferra]

Hola,

Yo uso esta manera Carlos.

IF Select( "<su_dbf>" ) == 0
? "No está abierto"
ELSE
? "Está Abierto"
ENDIF

[colthop]

Hola Aferra:

Siempre me dice que no esta abierto.

Un saludo y gracias.

Carlos

[TecniSoftware]

Carlos

Trata de abrirla en modo exclusivo, si es que puedes quiere decir que nadie la esta usando.

Saludos

[FranciscoA]

Hola, tambien puedes probar con:

if (cAlias)->(USED())
MsgInfo("En uso")
else
MsgInfo("No en uso")
endif

[aferra]

Hola Carlos.

Hago la apertura y funciona de esta manera.

cDriver := "DBFCDX"
lShared := .T.
lReadOnly := .F.
cFile := <su_DBF>

IF Select( cFile ) > 0
dbSelectArea( cFile )
ELSE
dbUseArea( .T., cDriver, cFile, cFile, lShared, lReadOnly )
IF NetErr()
...
...
etcétera
ENDIF
ENDIF

RETURN .T.

[colthop]

Hola y gracias a todos por vuestras indicaciones.

Al final lo he solucionado como dice Alejandro, tratando de abrirla en modo Exclusivo y si da error comentarlo y no seguir.

Un saludo

Carlos

[davidObarrio]

FUNCTION LstAlias()
LOCAL i:=1,cMsg:='',cAlias
WHILE !Empty(cAlias:=Alias(i++))
cMsg+=cAlias+CRLF
ENDDO
MsgInfo(cMsg)
RETURN NIL

david