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
Como Saber si hay abierta una base de datos
Como Saber si hay abierta una base de datos
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.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
Re: Como Saber si hay abierta una base de datos
Hola,
Yo uso esta manera Carlos.
IF Select( "<su_dbf>" ) == 0
? "No está abierto"
ELSE
? "Está Abierto"
ENDIF
Yo uso esta manera Carlos.
IF Select( "<su_dbf>" ) == 0
? "No está abierto"
ELSE
? "Está Abierto"
ENDIF
Re: Como Saber si hay abierta una base de datos
Hola Aferra:
Siempre me dice que no esta abierto.
Un saludo y gracias.
Carlos
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.
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: 213
- Joined: Fri Oct 28, 2005 6:29 pm
- Location: Quilmes, Buenos Aires, Argentina
Re: Como Saber si hay abierta una base de datos
Carlos
Trata de abrirla en modo exclusivo, si es que puedes quiere decir que nadie la esta usando.
Saludos
Trata de abrirla en modo exclusivo, si es que puedes quiere decir que nadie la esta usando.
Saludos
Alejandro Cebolido
Buenos Aires, Argentina
Buenos Aires, Argentina
- FranciscoA
- Posts: 1964
- Joined: Fri Jul 18, 2008 1:24 am
- Location: Chinandega, Nicaragua, C.A.
Re: Como Saber si hay abierta una base de datos
Hola, tambien puedes probar con:
if (cAlias)->(USED())
MsgInfo("En uso")
else
MsgInfo("No en uso")
endif
if (cAlias)->(USED())
MsgInfo("En uso")
else
MsgInfo("No en uso")
endif
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
Chinandega, Nicaragua.
Fwxh1204-MySql-TMySql
Re: Como Saber si hay abierta una base de datos
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.
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.
Re: Como Saber si hay abierta una base de datos
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
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.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es
Nunca se termina de aprender, por eso necesito siempre ayuda.
-
- Posts: 72
- Joined: Tue Oct 02, 2012 4:36 pm
Re: Como Saber si hay abierta una base de datos
FUNCTION LstAlias()
LOCAL i:=1,cMsg:='',cAlias
WHILE !Empty(cAlias:=Alias(i++))
cMsg+=cAlias+CRLF
ENDDO
MsgInfo(cMsg)
RETURN NIL
david
LOCAL i:=1,cMsg:='',cAlias
WHILE !Empty(cAlias:=Alias(i++))
cMsg+=cAlias+CRLF
ENDDO
MsgInfo(cMsg)
RETURN NIL
david