Santiago
16 de Julio del 2004

Hola a todos, me gustaria saber como bloquear un registro que esta siendo usado por otra persona en una base de datos hecha en access 2000

tecniCam
16 de Julio del 2004

Si quieres ver TODO sobre los métodos de bloqueo y más, entra en mi sitio VISUALIA -> Bases de Datos y mira en la Septima parte sobre esto.
De todas formas aquí te adjunto algo sobre ello:

¿QUE METODO DE BLOQUEO UTILIZAR Y CUANDO?

Para la mayoría de las aplicaciones de bases de datos, el bloqueo optimista es el mejor. La posibilidad de que alguien modifique o borre el registro en el que estamos trabajando es menor que la probabilidad de que alguien intente acceder a un registro de la página que hemos bloqueado.

Si, no obstante, tenemos una aplicación a la que muchos usuarios acceden y editan registros de forma simultánea, conviene utilizar el bloqueo pesimista para asegurar que el registro no se modifica mientras llevamos a cabo la edición. En ese caso, es interesante poner algún método en marcha para limitar el tiempo de bloqueo del registro.

El bloqueo pesimista es el método predeterminado que usa Visual Basic. Para establecer el método, es preciso especificar la propiedad LockEdits de la tabla o dynaset con la que se trabaja. Al fijar la propiedad a True se obtiene el bloqueo pesimista. Si se fija la propiedad a False, el bloqueo es optimista.

Especificación de la propiedad LockEdits para elegir el método de bloqueo de registros:

Dim OldTbl As Recordset

' Fijar el método de bloqueo pesimista

OldTbl.LockEdits = True

' Fijar el método de bloqueo optimista

OldTbl.LockEdits = False


Mantenimiento del sistema de seguridad con Visual Basic
'*************************************
'Agregar un nuevo usuario a la base de datos del sistema
'*************************************
Dim OldWs As Workspace, NewUser As User, NewGrp As Group
DBEngine.IniPath = "C:VBTEST1.INI"
Set OldWs = DBEngine.Workspaces(0)
Set NewUser = OldWs.CreateUser("PERICO", "73301", "JEFAZO")
OldWs.Users.Append NewUser
'**************************
'Agregar un usuario a un grupo de usuarios
'**************************
Dim OldWs As Workspace, NewUser As User, NewGrp As Group
DBEngine.IniPath = "C:VBTEST1.INI"
Set OldWs = DBEngine.Workspaces(0)
Set NewUser = OldWs.CreateUser("PERICO", "73301", "JEFAZO")
OldWs.Groups("Usuarios").Users.Append NewUser
'**************************************
'Eliminar un usuario de un grupo de usuarios
'**************************************
Dim OldWs As Workspace, NewUser As User, NewGrp As Group
DBEngine.IniPath = "C:VBTEST1.INI"
Set OldWs = DBEngine.Workspaces(0)
OldWs.Users.Delete "PERICO"

Entra en VISUALIA http:/usuarios.lycos.es/tecnicam
o en WB3A http:/usuarios.lycos.es/arves
y verás cursos, códigos y demás cosas buenas.