Como Saber si hay abierta una base de datos

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Como Saber si hay abierta una base de datos
Posted: Tue Sep 11, 2012 08:31 AM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

aferra

Posts: 88

Joined: Wed Apr 28, 2010 06:34 PM

Re: Como Saber si hay abierta una base de datos
Posted: Tue Sep 11, 2012 11:43 AM

Hola,

Yo uso esta manera Carlos.

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

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Como Saber si hay abierta una base de datos
Posted: Tue Sep 11, 2012 01:35 PM

Hola Aferra:

Siempre me dice que no esta abierto.

Un saludo y gracias.

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

TecniSoftware

Posts: 244

Joined: Fri Oct 28, 2005 06:29 PM

Re: Como Saber si hay abierta una base de datos
Posted: Tue Sep 11, 2012 01:42 PM

Carlos

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

Saludos

Alejandro Cebolido

Buenos Aires, Argentina

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Como Saber si hay abierta una base de datos
Posted: Tue Sep 11, 2012 03:14 PM

Hola, tambien puedes probar con:

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

aferra

Posts: 88

Joined: Wed Apr 28, 2010 06:34 PM

Re: Como Saber si hay abierta una base de datos
Posted: Tue Sep 11, 2012 03:22 PM

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

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: Como Saber si hay abierta una base de datos
Posted: Tue Sep 11, 2012 04:31 PM

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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

davidObarrio

Posts: 72

Joined: Tue Oct 02, 2012 04:36 PM

Re: Como Saber si hay abierta una base de datos
Posted: Wed Oct 03, 2012 10:28 AM

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

david

FiveTech Support Forums

Continue the discussion