关于Lock 及 Unlock 语句示例(VBA)

gemini527

本示例示范如何使用 Lock 及 Unlock 语句。
当用户正在修改数据中某个记录时，其他过程不可以来访问这条记录。
本示例假设 TESTFILE 文件内含五个用户自定义类型 Record 的记录。
Type Record   ' 定义用户自定义数据类型。   
ID As Integer   
Name As String * 20
End Type
Dim MyRecord As Record, RecordNumber   ' 声明变量。
' 以随机访问的方式来打开文件。
Open "TESTFILE" For Random Shared As #1 Len = Len(MyRecord)RecordNumber = 4   ' 指定记录编号。
Lock #1, RecordNumber   ' 锁住该记录。
Get #1, RecordNumber, MyRecord   ' 读记录。
MyRecord.ID = 234   ' 修改记录。
MyRecord.Name = "John Smith"Put #1, RecordNumber, MyRecord   ' 将修改过的记录存回文件中。
Unlock #1, RecordNumber   ' 当前记录解锁。
Close #1   ' 关闭文件。