Comprobar DBF abierta

[servicomver]

Estoy tratando de comprobar si una base de datos esta abierta desde otro programa, uso:

Select 1
Use C:\Datos\Mesa_1 ALIAS aMesa_1 Exclusive
if !NetErr() ////compruebo si puedo abrirla o no
Select 2 ///uso otra base datos para poner el resultado
Go Registro
if Rlock() ///NUNCA LO BLOQUEA CUANDO LA BASE DE DATOS PRIMERA ESTA OCUPADA
aDatos->Enuso:=.T.
Endif
Else
? "no hago nada"
Endif

¿ Porque después de que Neterr() da .T. ya no se puedo bloquear un registro de otra base de datos ?

¿ Que estoy haciendo mal ?

Gracias. Saludos

[artu01]

Prueba asi:

Code: Select all  Expand view

Select 1
Use C:\Datos\Mesa_1 ALIAS aMesa_1 Exclusive
lerror:=NetErr()


Select 2 ///uso otra base datos para poner el resultado
Go Registro
if Rlock()
    aDatos->Enuso:=iif(lerror,.T.,.F.)
Else
    ?'no se pudo bloquear 2da BD'
Endif
 

[jvtecheto]

Hola Servicomver:

Yo utilizo la funcion Used()

Code: Select all  Expand view

IF(aMesa_1->(Used() ), Select("aMesa_1"),dbUseArea( .T., , "Mesa_1", "aMesa_1", .T. )    )
 

Saludos.

Jose

[hmpaquito]

En entorno compartido se utiliza la funcion de apertura Net_Use() o similar que permite una manera suave de comprobacion y apertura
Se usa algo asi como:

Code: Select all  Expand view

IF !Net_Use(cFileDbf, .f., 5)
   MsgInfo("Nos se pudo abrir !", cFileDbf)
ENDIF

[karinha]

En entorno compartido se utiliza la funcion de apertura Net_Use() o similar que permite una manera suave de comprobacion y apertura
Se usa algo asi como:

Code: Select all  Expand view

IF !Net_Use(cFileDbf, .f., 5)
   MsgInfo("Nos se pudo abrir !", cFileDbf)
ENDIF

Code: Select all  Expand view

// ------------------------------------------------------------------------
// Fun‡Æo.....: NetUse
// Descri‡Æo..: Abre um Arquivo DBF, em modo EXCLUSIVE (.F.), ou SHARED (.T.)
// Par metros : cDbf      -> Nome da Base de Dados
//              lShared   -> SHARED (.T.), EXCLUSIVE (.F.)
// Devolve ..: .T.       -> Si se ha podido abrir.
//             .F.       -> Si no se ha podido abrir.
// ------------------------------------------------------------------------
FUNCTION NetUse( cDbf, lShared )

   LOCAL cAlias := cFileName( cDbf )
   LOCAL bAlias := cFileName( cDbf )

   // CONTROLE DE PARAMETROS DE ENTRADA =====================
   If cDbf = NIL .OR. !File( cDbf + ".DBF" )
      MsgStop( "NOME DO ARQUIVO INCORRETO" + CRLF + CRLF + ;
               "NÃO ACHEI BANCO DE DADOS." + CRLF + CRLF + ;
               cDbf + ".DBF", "ERRO FATAL!!" )
      RETURN( .F. )
   ENDIF

   IIf( lShared = NIL, lShared := .F., lShared )
   // ======================================================

   IF lShared = .T.

      USE ( cDbf ) ALIAS ( cAlias := GetNewAlias( cAlias ) ) ;
         VIA "DBFCDX" SHARED NEW

   ELSE
      USE ( cDbf ) ALIAS ( cAlias ) VIA "DBFCDX" EXCLUSIVE NEW
   ENDIF

   IF !NetErr()
      RETURN( .T. )
   ENDIF

   MsgStop( "IMPOSSIVEL ABRIR BANCO DE DADOS: " + cAlias + CRLF + ;
            OemToAnsi( "BLOQUEADO POR OUTRO USUµRIO." ), ;
            "ERRO FATAL DE REDE! FECHAR BANCO DE DADOS." )

RETURN( .F. )
 

Saludos.

[servicomver]

Muchisimas gracias, Problema resuelto