ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Блокировка таблицы
2 сообщений из 2, страница 1 из 1
Блокировка таблицы
    #38176511
faustgreen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
faustgreen
Участник
Есть таблица test_tab (id n(2)).
Проект состоит из 1 формы

метод load:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
SET EXCLUSIVE OFF

IF !USED('test_tab')
	USE test_tab IN 0
ENDIF

SELECT test_tab

GO BOTTOM



кнопка блокировать:
Код: sql
1.
FLOCK('test_tab')



кнопка разболкировать:
Код: sql
1.
UNLOCK IN test_tab




формирую exe-файл, запускаю 2 версии программы:
в первом варианте нажимаю блокировать запись, затем кнопку проверки блокировки - результат .t.
во втором варианте нажимаю кнопку проверки блокировки - результат .f.
т.е. "виртуальный пользователь 1" заблокировал таблицу и команда isflocked() выдает ему сообщение, что таблица заблокирована,
а для второго пользователя эта же таблица почему то не зблокирована.


кнопка проверка блокировки:
Код: sql
1.
MESSAGEBOX(ISFLOCKED('test_tab'))
...
Рейтинг: 0 / 0
06.03.2013, 18:31
| Ответить | Цитировать | Написать  
Блокировка таблицы
    #38176573
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Можно попробовать хэлп почитать
ISFLOCKED( ) FunctionNote ISFLOCKED() only returns .T. at the workstation that applied the file lock.
.T. может получить только тот кто заблокировал
...
Рейтинг: 0 / 0
06.03.2013, 19:31
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Блокировка таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]