ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Pack для сети
7 сообщений из 7, страница 1 из 1
Pack для сети
    #34477768
Gena87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gena87
Участник
опять проблема) (это наверно уже не удивительно))
стал делать проект под сеть(даже вроде что то стало получаться=)) но тут пришел к удалению и застрял мне надо использовать команду PACK но для нее нужен монопольный доступ(
я пишу вот так но оно не работает
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
*блокирование записи
	llFlagBlock=.T.
	DO WHILE llFlagBlock=.T.
		IF LOCK('tZip')=.F. THEN
			IF MESSAGEBOX('Не могу заблокировать запись'+CHR( 13 )+'Повторить попытку?', 4 + 32 ,'Ошибка блокировки', 10000 )= 7  THEN 
				RETURN  0 
			ENDIF
		ELSE 
		llFlagBlock=.F.
		ENDIF
	ENDDO
	DELETE 
        PACK
как удалить физически запись?
и еще пару вопросов)
1. правильно ли я уловил суть работы в сети) (файл-сервер)
2. после команды delete (без использования PACK) нужно ли разблокировать запись?
Спасибо!
...
Рейтинг: 0 / 0
21.04.2007, 02:05
| Ответить | Цитировать | Написать  
Pack для сети
    #34477835
ValeryY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ValeryY
Гость
1. PACK может использоваться только при эксклюзивном открытии таблиц и несовместим с работой в сети.
2. Не нужно блокировать записи в таблицах. Fox это делает сам, а после выполнения команды разблокирует.
3. Неплохо бы почитать что-нибудь про Fox.
4. Поскольку это диплом, не мучайте себя и людей:
При старте
SET Exclusive OFF
SET DELETED ON
После чего считайте, что это файл-сервер
5. Упаковка производится обычно ночью, когда нет пользователей программой, выполняемой по расписанию
SET Exclusive ON
SELECT имя таблицы
PACK
...
Рейтинг: 0 / 0
21.04.2007, 09:02
| Ответить | Цитировать | Написать  
Pack для сети
    #34477856
Gena87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gena87
Участник
а как проверитьпользуется ли еще кто нить в данных момент базой данных?
...
Рейтинг: 0 / 0
21.04.2007, 10:15
| Ответить | Цитировать | Написать  
Pack для сети
    #34477858
Gena87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gena87
Участник
о, еще одна проблема( почему то delete перестало работать, но вот delete-sql работает в чем проблема?
...
Рейтинг: 0 / 0
21.04.2007, 10:17
| Ответить | Цитировать | Написать  
Pack для сети
    #34477891
ValeryY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ValeryY
Гость
В общем примерно так:
TRY
OPEN DATABASE имя DBC EXCLUSIVE
CATCH TO oException
IF oException.ErrorNo = 1705
WAIT WINDOW 'База используется другим пользователем'
ENDIF
ENDTRY
Только зачем это? База должна быть открыта с опцией SHARED, тогда допускается совместная работа и ничего не нужно анализировать.

Скорее всего DELETE IN cTableAlias
А вообще пользуйтесь SQL и Вам будет счастье!
...
Рейтинг: 0 / 0
21.04.2007, 11:21
| Ответить | Цитировать | Написать  
Pack для сети
    #34477893
Gena87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gena87
Участник
ValeryY
Только зачем это? База должна быть открыта с опцией SHARED, тогда допускается совместная работа и ничего не нужно анализировать.

ну это для того что бы делать паковку, сначала проверить работает кто с ней или нет а потом сделать

ValeryY
А вообще пользуйтесь SQL и Вам будет счастье!
Наверное да)
...
Рейтинг: 0 / 0
21.04.2007, 11:24
| Ответить | Цитировать | Написать  
Pack для сети
    #34477894
Gena87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gena87
Участник
только не знаю как назвать пункт в меню что бы сделать паковку)
...
Рейтинг: 0 / 0
21.04.2007, 11:25
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Pack для сети
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=203&tid=1589497]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 26ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 233ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


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