Доступ к заблокированной таблице

[vvs_adm]

У меня есть программа, где есть небольшая вероятность одновременного открытия (через ADODB.recordset) одной и той же таблицы (Access) на запись двумя пользователями. Соответственно при попытке открытия вылетает ошибка. Как проверить, не заблокированна ли таблица и тут же её заблокировать (если свободна)?

P.S.: пробовал "в лоб" - через On Error Goto , но почему-то обрабатывается только первая ошибка, а при повторном запросе вылетает с ошибкой вся программа, как буд-то никакого OnError нету

[val]

Проверяй директорию на .ldb file.

[vvs_adm]

Проверяй директорию на .ldb file.

И что? Если таблица открыта другим пользователем на чтение, то и хрен бы с ним. Лишь бы не на запись...
Может кто знает, хотя бы, как обработать ошибку? Дело в том, что открывается на запись таблица "ненадолго", мне не в лом и в цикле покрутиться, пока таблица не разблокируется, но крутиться не желает зараза, обрабатывает только первую ошибку, после чего вылетает обычная ошибка, как буд-то никакого OnError нету!! Код примерно такой :

Код: Выделить всё

Dim cnTemp as ADODB.connection
Dim rsTemp as New ADODB.recordset
set cnTemp = cnMain
cnTemp.Open

set rsTemp.ActiveConnection = cnTemp
rsTemp.Source = "MyTable"
rsTemp.LockType = adLockPessimistic
rsTemp.CursorType = adOpenStatic
Retry:
On Error Goto Retry
rsTemp.Open
.... если open, то ура ...


[Igor_123]

Так сделай цикл явный:

Код: Выделить всё

On Error Goto Next
while rsTemp.Active = false and lCountIteration <> 10000
   rsTemp.Open
   lCountIteration = lCountIteration + 1
wend

[vvs_adm]

Igor_123 А какая разница? После второго подключения все-равно вылетит минуя OnError... Принцип то остался тот же : подключиться, если ошибка, то подключиться опять... Но уже второе подключение вылетает с системной ошибкой и последующим вылетом программы (ну если в отладке, то в дебаггер,а если готовый exe-шник, то нафиг) а НЕ с обработчиком OnError... Почему не срабатывает On Error. Таблицу в частности блокирую открытием в режиме конструктор, но это не суть важно, по-моему...

[Ennor]

В нормальных СУБД есть такое понятие - LOCK TIMEOUT. Поищи в Аксессе, вдруг там это есть.

[vvs_adm]

Ennor А типа мысль Попробуем... хотя не того хотелось. Неужели нет другого способа

[Ennor]

Это классический (и, по-правильному, единственный) способ определения доступности объекта в блокировочных СУБД. В принципе, наверняка можно нарыть системную таблицу со списком этих самых блокировок (типа syslockinfo в MSSQL), но это способ, который я отношу к неправильным, ибо он будет зависеть от версии Аксесса, а версия Аксесса - это не настолько постоянная величина, насколько постоянна версия сиквела .

[vvs_adm]

Ennor Да оно все бы замечательно было, тока все-таки непонятно, почему повторный метод опен вызывает не обработку ошибки OnError, а "обычный ран-тайм"

[Ennor]

Скорее всего, потому, что в этом случае ошибка происходит в обработчике ошибок, а такое, видимо, не обрабатывается. Лучше, действительно, On Error Resume Next и цикл пока не запишет данные.

[vvs_adm]

EnnorВот большое спасибо-то!!! Мало того, что заработало оч. замечательно, так еще и код стал гораздо лучше с Do While вместо Goto