LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Многополь...
 Тема: Многопользовательская работа в Access
 
 15.06.2007 21:04:26
Albatross1
3 сообщения


Тема: Многопользовательская работа в Access
Как правильно сделать сабж?
Например, посредством DAO.
К примеру, используем DAO.Recordset
rs.OpenRecordset ("Таблица");
...
// встали на какую - нить запись
rs.Edit ' до вызова этого метода запись может быть удалена другим пользователем, потому надо поставить On error goto
' с проверкой этого факта, кроме того, запись уде может быть заблокированна другим пользователем,
'и это тоже надо отсечь

' неужели всё так сложно?

on error goto er1

dim Timer as long
Timer = 0

repeat:
rs.edit

goto ok


er1:
if err.code = "Запись удалена" then goto endsub
if err.code = "Запись уже заблокированна" then
<Пауза 1 сек>
timer = timer+1
if Timer < 10 then
goto repeat
else
msgbox "Не удаётся разблокировать"
....
end if

end if
ok:

Неужели примерно так нужно делать, при каждом вызове rs.edit?
Неужели не сделано что-нить попроще? Может, через транзакции какие...


P.S. Обсуждение разных тем
Автор: Albatross от 09.08.2003 18:30:12 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Многополь...
ПоискПоиск  Список форумовСписок форумов  
right