Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / занята ли таблица другим пользователем? / 8 сообщений из 8, страница 1 из 1
19.05.2004, 08:08
    #32523165
nataSid
nataSid
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
Привет.
Программа работает в сети с 4 пользователями.
Хочу чтобы пользователь, выходящий последний из программы копировал таблицы в архив.

При выходе я делаю close all (т.е. в текщем сеансе таблицы закрыты).
Как узнать занята ли таблица или БД другим пользователем в сети?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2004, 08:52
    #32523190
Вячеслав Клепинин
Вячеслав Клепинин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
Если у Вас VFP8, то можно попробовать так:
1. Закройте все таблицы
2. Откройте нужную таблицу (или несколько таблиц) эксклюзивно, используя TRY .. ENDTRY:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
l_ErrOpen = .F.
TRY
   USE MyTable IN  0  EXCLUSIVE
CATCH
   l_ErrOpen = .T.
ENDTRY
IF l_ErrOpen
   = MESSAGEBOX('Таблица MyTable открыта другим пользователем')
ELSE
*  Действия по архивированию
ENDIF
Таблица может быть открыта эксклюзивно только тогда, когда с ней не работают другие пользователи.
Но имейте в виду: если Вы открыли таблицу эксклюзивно, а другой пользователь пытается открыть её в режиме разделяемого доступа, то у него произойдёт ошибка. Её так же нужно отслеживать.

Успехов!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2004, 09:17
    #32523216
nataSid
nataSid
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
А как узнать какой пользователь держит (сетевое имя, например) ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2004, 09:39
    #32523251
Вячеслав Клепинин
Вячеслав Клепинин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
Вроде как никак... Если только спросить у сисадмина, чтобы глянул у себя...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2004, 09:53
    #32523273
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
Для копирования таблиц вовсе не обязательно ждать пока другие пользователи закончат работу. Можно копировать даже таблицы с которыми сейчас работают другие пользователи. Для этой цели лучше всего использовать объект "Scripting.FileSystemObject" примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
LPARAMETERS tcSourceDir,tcTargetDir
*tcSourceDir - директория-источник (откуда копируем)
*tcTargetDir - директория-цель (куда копируем)
LOCAL loFSO
loFSO=CREATEOBJECT('Scripting.FileSystemObject')

LOCAL loSourceFolder, loTargetFolder
loSourceFolder=m.loFSO.GetFolder(m.tcSourceDir)
IF m.loFSO.FolderExists(m.tcTargetDir)=.F.
* Указанная директория-цель - не существует
ELSE
	loTargetFolder=m.loFSO.GetFolder(m.tcTargetDir)
ENDIF

LOCAL loSourceFile
FOR EACH loSourceFile IN m.loSourceFolder.Files
	lcFileName=m.loFSO.BuildPath(m.loTargetFolder.Path,m.loSourceFile.name)
	m.loSourceFile.Copy(m.lcFileName,.T.)
ENDFOR

В принципе, можно копировать и сразу всю директорию не сканирую каждый файл в отдельности. Просто при копировании по файлу за раз можно организовать индикатор прогресса, если таблицы достаточно большого размера.

Подробнее об объекте Scripting.FileSystemObject и как его можно использовать в FoxPro почитай здесь

http://kodu.neti.ee/~juri4/vfpplus/vbs_fso_01_ru.htm
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2004, 10:31
    #32523336
Вячеслав Клепинин
Вячеслав Клепинин
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
to ВладимирМ

> Для этой цели лучше всего использовать объект "Scripting.FileSystemObject"

Можно просто селектом. Scripting.FileSystemObject не очень-то шустрый. Особенно если файлы многометровые.
Только как быть в случае, если несколько пользователей одновременно запустили архивирование?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2004, 10:43
    #32523358
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
Можно просто селектом.
Существует команда COPY TO, которая также может копировать открытые таблицы. Однако, как и в случае с SELECT-SQL будет проблема с копированием собственно файла базы данных (DBC)

Только как быть в случае, если несколько пользователей одновременно запустили архивирование?
Решение элементарное - создать в директории-цели пустую табличку и перед началом копирования попытаться ее заблокировать. Удалось - копируем, нет - копирует другой пользователь.

Хотя, сама постановка задачи весьма странная. Обычно такими делами занимается администратор на регулярной основе. Раз в день (неделю, месяц) запускается процедура резервного копирования. Наряду с другими регулярными процедурами по обслуживанию базы данных.

Привязка любых служебных операций (резервное копирование, восстановление индексов, проверка целостности данных и т.п.) к моменту старта или завершения программы - это не очень хорошее решение. Неоправданные тормоза.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.05.2004, 11:17
    #32523456
Sergey Ch
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
занята ли таблица другим пользователем?
Вопрос уже обсуждался на форуме.
1. Создать таблицу, куда будут пользователт себя писать
2. В программе - таймер по проверке себя в табл.
3. При выходе - удалять себя из таблицы...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / занята ли таблица другим пользователем? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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