При работе с Базами Данных в многопользовательском режиме возникают ситуации, когда необходимо ограничить число обращающихся пользователей к данным. Это делается для того, чтобы предотвратить одновременное обновление одной и той же записи, при глобальном обновленим данных или при техническом обслуживания самой Базы Данных.

Процессор Баз Данных обеспечивает три уровня блокировок:

Блокировка Базы Данных 

Блокиривка на уровне Базы Данных осуществляется присвоением свойству Exclusive, при открытии БД, значения True. При использовании вами элемента управления Data, в его свойствах установите Exclusive = True . Если же вы используете объект DAO, то при  присвоении значения объекту db установите в True значение второго параметра метода OpenDatabase:

Set db = DBEngine.OpenDatabase(“C:\Biblio.mdb”, True)

Когда База Данных заблокирована таким образом, тодругие пользователи не смогут  ее открыть. При попытке обращения к заблокированной Базе Данных вы получите сообщение: 

“Couldnt use C:\Biblio.mdb; file already in use.”

“Невозможно использовать C:\Biblio.mdb; файл уже используется”

Одновременно с этим генерируется перехватываемая ошибка – 3045,  используя которую вы можете завершить программу, которая обращается к заблокированной Базе Данных, т.к. после возникновения ошибки программа продолжает выполняться, хотя База Данных так и не была открыта.

При использовании элемента управления Data в обработчик события Error вставляется следующий код:

Private Sub Data1_Error(DataErr As Integer, Response As Integer) 

If Err = 3045 Then 

MsgBox "Доступ к Базе Данных закрыт. Повторите запрос через несколько минут." &  _    ,vbCritical, "Data_Error"

End

End If

End Sub

При использовании объекта DAO в той процедуре, где будет стоять код открытия Базы Данных, вставляется обработчик ошибок:

On Error Goto ErrHandler

Здесь вставляется код открытия БД и если возникает ошибка – 3045, то она 
перехватывается и обрабатывается 

ErrHandler: 

If Err = 3045 Then 

MsgBox "Доступ к Базе Данных закрыт. Повторите запрос черезнесколько минут." &  _    ,vbCritical, "Data_Error" 

End

End If

Блокировка Таблицы

Блокировка на уровне таблицы применяется при глобальных изменениях в отдельно взятой таблице. После того как вы проведете ваши изменения и закроете эту таблицу, толкко тогда к ней получат доступ другие пользователи. . При использовании вами элемента управления Data, в его свойствах установите Exclusive = False, для того, чтобы пользователи имели доступ к Базе Данных, а свойствu Option присвойте значение 3. Это приведет к томы, что выбранная вами таблица (к примеру Authors) будет открыта с параметрами DenyWrite(1) и DenyRead(2), что запрещает другим пользователям открывать эту таблицу во время действия вашей программы. При попытке обращения к заблокированной таблице вы получите сообщение: 

“Couldnt  lock table Authors;currently in use by user admin on machine USER-0000011660 “

“Невозможно зблокировать таблицу Authors , т.к. она используется администратором машины USER-0000011660 “

Одновременно с этим генерируется перехватываемая ошибка – 3265,  используя которую вы можете завершить программу, которая обращается к заблокированной таблице, т.к. после возникновения ошибки программа продолжает выполняться, хотя таблица так и не была открыта. При использовании элемента управления Data в обработчик события Error вставляется следующий код, но предварительно дополняя предыдущий:

Private Sub Data1_Error(DataErr As Integer, Response As Integer)

Select Case Err

            Case 3045

MsgBox "Доступ к Базе Данных закрыт. Повторите запрос черезнесколько минут." &  _    ,vbCritical, "Data_Error"

End

            Case 3265

MsgBox "Доступ к таблице закрыт. Повторите запрос через несколько минут." &  _    ,vbCritical, "Data_Error"

End

End Select

End Sub

Если же вы используете объект DAO, то при  присвоении значения объекту db установите в False значение второго параметра метода OpenDatabase: 

Set db = DBEngine.OpenDatabase(“C:\Biblio.mdb”, False)

а, при присвоении значении объекту Recordset:

Set rs = db.OpenRecordset(“Authors”, dbOpenTable, dbDenyRead + dbDenyWrite)

Для перехвата возникающей ошибки опять ставте код:

On Error Goto ErrHandler

Здесь вставляется код открытия таблицы и если возникает ошибка – 3265, то она 
перехватывается и обрабатывается

ErrHandler:

If Err = 3265 Then

MsgBox "Доступ к таблице закрыт. Повторите запрос черезнесколько минут." &  _  
 ,vbCritical, "Data_Error"

End

End If

Здесь указан только обработчик ошибки открытия блокированной таблицы, т.к. Базу Данных вы можете открыть в другой процедуре , в отличае от элемента Data.

Внимание! Если вы откроете приложении Access в то время, когда у вас стоит блокировка таблицы (во время работы вашей программы), то данная таблица открывается без извещения вас диалоговым окном о том, что таблица заблокирована. Но, при всем желании вы не сможете сделать запись или произвести редактирование какой либо записи.

Блокировка страницы 

Самым нижнем уровнем блокировки является уровень таблицы. Процессор Microsoft Jet автоматически устанавливает блокировку страницы и не может контролироваться вашей программой. Страница данных может содержатьнесколько записей, размер его равен 26 кб. Блокировка страницы означает блокировкувсех записей, находящейся на этой странице. Если длина записи – 512 байтов, то будет заблокированно 4 записи, а если 50 байтов то 40 записей. Точное число записей нельзя заранее ни определить ни задать, т.к. таблица может содержать удаленные записи (которые удаляются только во время уплотнения). Но, не смотря на это объект Recordset имеет свойство LockEdits, которое позволяетуправлять страничной блокировкой из программы.

Блокировка на уровне таблицы имеетдва режима – пессимистический (LockEdits ю True) и оптимистический (LockEdits = False). По умолчанию устанавливается пессимистическая блокировка. 

Пессимистическая блокировка блокирует страницу при вызове методов Edit и AddNew,  и остается заблокированной до тех пор пока не будетвыполнен метод Update или CancelUpdate. В течении всего времени ни одна программа не имеет доступа к забликированной странице.

Преимущества. Обеспечивается максимально возможныйуровень целостности данных.
Недостатки. Страница может быть заблокирована в течении продолжительного времени.

Оптимистическая блокировка блокирует страницу только при вызове метода Update. Это означает, что пользователь вызывает методы Edit  и AddNew, производит действия с дсанными, и только в момент сохранения обновления процессор Microsoft Jet пытается заблокировать страницу. Если все проходит успешно, то запись попадает в таблицу, но если обнаружится, что эта запись уже была отредактированна, то обновление отменяется и пользователь получаетсообщение о том, что данные были уже кем-то изменены.

Преимущества. Страница блокируется на минимально возвожное время, тен самым уменьшаетсячисло сообщений о блокировках.
Недостатки. Может привести к ошибкам блокировки при одновременном редактировании записи двумя пользователями, когда они будут проводить обновление.

Програмно это осуществляется следующим образом: 

При работе с пессиместической и оптимистической блокировкой используется вызов Idle. Этот метод приостанавливает выполнение программы на Visual Basic на время обнавления динамических и статических наборов, которые были открыты этой программой. Вызов этого метода гарантирует, что в вашу программу попадут самые последние изменения в наборе данных.

Програмно это осуществляется следующим образом:

                        Rs.Update

                        DBEngine.Idle dbFreeLock            сделать паузу

Вот и все.