Compartir vía

Instrucciones Lock y Unlock

  • Artículo

Controla el acceso de otros procesos a la totalidad o parte de un archivo abierto mediante la instrucción Open .

Sintaxis

Bloquee [ # ] filenumber, [ recordrange ] . . .Desbloquear [ # ] filenumber, [ recordrange ]

La sintaxis de las instrucciones Lock y Unlock tiene estas partes:

Parte Descripción
númeroArchivo Obligatorio. Cualquier número de archivo válido.
recordrange Opcional. El rango de registros que bloquear o desbloquear.

Configuración

La configuración del argumentorecordrange es:

recnumber | [ start ] Parafinalizar

Configuración Descripción
recnumber Número de registro (archivos de modo Random) o número de byte (archivos de modo Binary) en el que empieza el bloqueo o el desbloqueo.
start Número del primer registro o byte que bloquear o desbloquear.
end Número del último registro o byte que bloquear o desbloquear.

Comentarios

Las instrucciones Lock y Unlock se usan en entornos en los que varios procesos pueden precisar acceso al mismo archivo.

Las instrucciones Lock y Unlock se usan siempre en parejas. Los argumentos para Lock y Unlock deben coincidir exactamente.

El primer byte o registro de un archivo se encuentra en la posición 1, el segundo byte o registro en la posición 2 y así sucesivamente. Si especifica solo un registro, solo ese registro está bloqueado o desbloqueado. Si especifica un rango de registros y omite un registro de inicio (inicio), se bloquean o desbloquean todos los registros del primer registro al final del rango (fin). Si se usa Lock sin númeroReg, se bloquea todo el archivo; si se usa Unlock sin númeroReg, se desbloquea todo el archivo.

Si el archivo se ha abierto para una entrada o salida secuencial, Lock y Unlock afectan a todo el archivo, independientemente del rango especificado por inicio y fin.

Importante

[!IMPORTANTE] Asegúrese de quitar todos los bloqueos con una instrucción Unlock antes de cerrar un archivo o salir del programa. Un error al quitar los bloqueos puede producir resultados impredecibles.

Ejemplo:

En este ejemplo se muestra el uso de las instrucciones Lock y Unlock. Cuando se está modificando un registro, se deniega el acceso de otros procesos al registro. En este ejemplo se supone que es un archivo que TESTFILE contiene cinco registros del tipo Recorddefinido por el usuario .

Type Record    ' Define user-defined type. 
    ID As Integer 
    Name As String * 20 
End Type 
 
Dim MyRecord As Record, RecordNumber    ' Declare variables. 
' Open sample file for random access. 
Open "TESTFILE" For Random Shared As #1 Len = Len(MyRecord) 
RecordNumber = 4    ' Define record number. 
Lock #1, RecordNumber    ' Lock record. 
Get #1, RecordNumber, MyRecord    ' Read record. 
MyRecord.ID = 234    ' Modify record. 
MyRecord.Name = "John Smith" 
Put #1, RecordNumber, MyRecord    ' Write modified record. 
Unlock #1, RecordNumber    ' Unlock current record. 
Close #1    ' Close file.

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.