Программная синхронизация доступа к данным
При одновременном доступе нескольких пользователей к одной и той же записи в источнике данных могут возникнуть конфликты. Например, конфликты могут возникать при выполнении метода Update или Delete объекта Recordset и метода OpenDatabase объекта Workspace или DBEngine. Предотвращение конфликтов зависит от настройки Access, касающейся методов блокировки записей, режима доступа к базе данных, периодов обновления данных. Об установке этих параметров мы уже говорили в разд. "Организация совместного доступа к данным и объектам" этой главы. Более подробную информацию можно найти в справочной системе Access.
При программном доступе к совместно используемым базам данных необходимо организовать собственную обработку ошибок, появляющихся при попытке выполнить операции, которые могут привести к возникновению конфликтов. В приложении "Игра в доминирование" используется метод блокировки на уровне записей, блокируются изменяемые записи. В этом случае при возникновении конфликта самым простым решением является ожидание момента, когда заблокированная запись будет освобождена другим пользователем. Этот подход достаточно просто реализовать в процедуре на VBA, используя оператор Resume для повторного выполнения действия через некоторый интервал времени (сделав паузу). Назовем этот способ синхронизацией доступа к данным.
Рассмотрим в качестве примера синхронизации функцию отправки сервером сообщения одному из игроков (программа 16.9). Вспомогательная функция doPause, позволяющая сделать паузу в работе приложения на заданное количество секунд, приведена в программе 16.10.
Программа 16.9. Синхронизация записи изменений в источнике данных
' Послать сообщение подключенному игроку Public Sub SendMessage(message As String, playerName As String) . ' Объявления локальных объектных переменных: Dim db As Database Dim rs As Recordset Dim counter As Integer ' Определяем собственную обработку ошибок: On Error GoTo errHandler Set db = CurrentDb ' Открываем таблицу сообщений для игрока: Set rs = db.OpenRecordset("Сообщения", dbOpenDynaset) On Error GoTo 0 ' Добавляем сообщение в таблицу сообщений клиента: rs.AddNew rs!ИмяИгрока = playerName rs!Сообщение = message ' Обработка ошибок, возникающих при совместном доступе ' к источнику данных: On Error GoTo tryAgain rs.Update On Error GoTo 0 rs.Bookmark = rs.LastModified ' Закрываем открытые объекты: closeAHHandler: rs.Close endHandler: ' Очищаем объектные переменные, т. к. они больше не используются: Set rs = Nothing Set db = Nothing ' Завершаем работу: Exit Sub ' Синхронизация: tryAgain: counter = counter + 1 If counter < 400 Then doPause 5 Resume End If Обработка ошибок: errHandler: Dim errMsg As String errMsg = "Ошибка: " & Err.Number & vbCrLf & _ "Источник: " & Err.Source & vbCrLf & _ vbCrLf & Err.Description MsgBox errMsg, vbCritical, ERR_TITLE Resume endHandler End Sub Программа 16.10. Сделать паузу на заданное количество секунд в работе приложения
Public Sub doPause(seconds As Integer) Dim var_timeStart, var_timeCurrent Dim ftimeOut As Boolean var_timeStart = Time() ' Время начала паузы Do ' Передать управление другим процессам операционной системы DoEvents var_timeCurrent = Time() ' Текущее системное время ftimeOut = _ CDate(var timeCurrent - var timeStart) >= CDate(TimeSerial(0, 0, seconds)) Loop Until ftimeOut End Sub