Странное дело получается....
Вообщем так
1)в майн программе стоит
SET EXCLUSIVE OFF

2)использую приватные датасессии в формах,
там в BeforeOpenTables стоит
SET EXCLUSIVE OFF
итд,

команд
SET DATABASE TO (namebasedan)
open database....
НЕТ!!!
В этих формах в DE
понапиханы таблицы.
открываю, форму, все работает
значит окружение формы контейнер баз нашла
по путям поиска, таблицы открыла-все отобразилось и нашлось

2)значит запустил я майн прогу, завелась ас топ левел форма
*БД нигде точно не открываю!!!
с меню, там в пункте меню стоит запуск формы
на архивацию,там идет такая проверка
на эксклюзивночсть открытия

LPARAMETERS tcnamebasedan
*SET STEP ON
IF !PARAMETERS()=1
MESSAGEBOX("Не передан параметр-название БД")
RETURN
ENDIF
**************************************************************
* Проверяем на предмет незанятости базы данных
LOCAL llZanjato,_Return
llZanjato = .T.
_Return=.f.

DO WHILE llZanjato && крутимся в цикле, пока не освободится БД
TRY
OPEN DATABASE (tcnamebasedan) EXCLUSIVE
&& если база открылась, то работаем
llZanjato = .F.
_Return=.T.
CATCH
IF MESSAGEBOX("Кто-то работает с базой данных. Архивировать базу данных невозможно."+Chr(10)+;
"Закройте все окна, завершите работу программы на других компьютерах и повторите попытку."+Chr(10)+Chr(10)+;
"Повторить попытку архивирования?",5+16+0,"Ошибка") = 4 then
llZanjato = .T.
ELSE
_Return=.F.
ENDIF
FINALLY
ENDTRY
ENDDO

* Резко закрываем активные базы и таблицы
CLOSE DATABASE ALL
RETURN _Return


вариант А:
запускаю форму-архивирую, все нормально
Все как бы нормально, обрабатывается
возвращает _Return=.T.

Вариант Б:
Эмулируем тыкания кнопок юзера на одной
локальной машине, без участия сети:
-юзер нажал форму с данными,
соответственно открыл БД шарово,
все нормально, данные в гридах видит и радуется.
-стукнуло ему в голову не закрыв форму
с данными запустить форму архивации, и моему удивлению нет предела!!!
хоть и БД открыта им шарово на локальной машине,
легко выполняется строка
OPEN DATABASE (tcnamebasedan) EXCLUSIVE
и соответственно
эта процедурка возвращает RETURN _Return
Начинаем архивировать и получаем ошибки на
невозможность архивации дбф-ок, которые участвуют
в форме данных.

пробовал и fopen(...,2) use контейнер.DBC excl
итд-такая же билиберда.

То вдруг возникает такая ситуация-
запустили форму с отображением данных-
запустили на архивацию-опять никакого предупреждения что
что то там используется,выполняется
CLOSE DATABASE ALL
RETURN _Return
все архивируется,
но форма с данными остается
с "белыми гридами" :-)

Вопрос:
как же мне эта безболезненно обойти это все???
предложения по архивированию раром с ключом
"архивировать испольуемые файлы",
руками в форме открывать, потом закрывать таблицы и
контейнеры баз не прредлагать
Неужели к 9 фоксу ничего мудрого не придумано???

Да, приходиться беседовать тихо сам с собою..........
Неужели нет соображений??
Ваще меня удивляет возможность выполнения команд,
следующих друг за другом
open database data shared
open database data excl
без всяких ошибок. Почему?

Проблему с открытием решил так
автор
LOCAL namebasewithrash,_Return,lcOldError
namebasewithrash= tcnamebasedan+'.DBC'
_Return=.f.
lcOldError=ON("ERROR")

ON ERROR
CLOSE DATABASES ALL
lnFH=Fopen(namebasewithrash,2)
IF m.lnFH<0
Messagebox("Для выполнения данной операции требуется эксклюзивный доступ к данным."+Chr(13)+ ;
"Закройте все окна, завершите работу программы на других компьютерах и повторите попытку.",16,"Ошибка!!!")
ON ERROR &lcOldError
_Return=.f.
ELSE
_Return=.T. &&открылась БД
ENDIF

Fclose(m.lnFH)

ON ERROR &lcOldError
CLOSE DATABASES ALL
RETURN _Return=.T.


Но проблема "белых гридов"
остается
То есть если открыта форма с данными,
и происходит процедуры архивации,
то БД закрывается.
Че делать, как быть

Sergey ChПопробуйте закрыть проект разработки программы - он открывает Database exclusive...
Я веду речь о экзешнике, извините что не сказал сразу
сузим вопрос :-)
почему легко в командном окне выполняется
3 строчки без ошибок
CLOSE DATABASE ALL
open database data shared
open database data excl

и как это побороть

спасибо Владимир за подробный ответ...
Но толи место, на котором я сижу пишеться
с буквой "б", толи что...
Вот смотрите
Сделал такую процедуру для
проверки
автор
LPARAMETERS tcnamebasedan
IF !PARAMETERS()=1
MESSAGEBOX("Не передан параметр-название БД")
RETURN
ENDIF
**************************************************************
LOCAL namebasewithrash,_Return
namebasewithrash= tcnamebasedan+'.DBC'
_Return=.f.
* Если база данных УЖЕ открыта, но в режиме SHARED, то закрываю ее
IF DBUSED(tcnamebasedan) = .T. AND IsExclusive(tcnamebasedan,2) = .F.
CLOSE DATABASE ALL
ENDIF

* Если база данных НЕ открыта, то пытаюсь ее открыть в режиме EXCLUSIVE
IF DBUSED(tcnamebasedan)=.F.
* Вот здесь ловим возможные ошибки открытия
TRY
OPEN DATABASE (tcnamebasedan) EXCLUSIVE VALIDATE
_Return=.t.
CATCH
=MESSAGEBOX("Невозможно открыть файл базы данных: "+tcnamebasedan+CHR(13)+;
"для эксклюзивного использования."+CHR(13)+CHR(10)+;
"Файл заблокирован для администрирования."+CHR(13)+;
" "+CHR(13)+;
"Повторите попытку позже..." , 16, "Ошибка!!!", 20000)
_Return=.f.
FINALLY
CLOSE DATABASE ALL
ENDTRY
ENDIF

RETURN _Return



Смотрю в отладчике, все закрывается как положено
строки между
TRY
OPEN DATABASE (tcnamebasedan) EXCLUSIVE VALIDATE
_Return=.t.
CATCH
выполняются,
затем выполняется
CLOSE DATABASE ALL

Начинаю процедуру архивации,
и идет затык на строке
df=Fopen(xfile)
If Not df>0
=Messagebox("Íåâîçìîæíî îòêðûòü ôàéë:"+Chr(13)+xfile,64,"Âíèìàíèå...")
Return .f.
Endif

df-это как Вы понимаете какой-то файл БД
У меня уже голова кипит от этого непонимания!!!!

Спасибо Владимир, исчерпывающее
прошу извинений за затраченное время.

Вариант с Fopen(namebasewithrash,2)
помоему пока рулит нормально(надо сдавать проект), единственное
что мне не нравиться, это-ON ERROR
Да и TRY......
тоже не нравиться.
Ваще бы запретил в программах, а то расслабляет.
:-)

alex11100Да и TRY......
тоже не нравиться.
Ваще бы запретил в программах, а то расслабляет


лихо!!!!
ну даешь!!
сказать ничего не могу, слов не хватат.

А что мы какие нибудь Java програмеры чтоли???
Чтоб ошибки "глотать"
Мы ваще серьезные вещи пишем- СУБД называются
Ошибки обрабатывать нада.
:-)))))

да шютка, шютка

alex11100Уважаемый, _иван_
может вы чего недопоняли???

а кто Вам мешает в конструкции try..endtry обработать ошибку???

Многоуважаемый alex11100
хепл по try я прочитал,
;) в отдличии от хелпа по
OPEN DATABASE,
просто поведение с открытием
какое то не тривиальное-сначала шарово открывается,
а потом на эксклюзивное открытие и может не открыться, и молча.....,

:-)

Потому говорю в 3 раз, что шучу, шучу.
Все нормально, я все понял,
даже про объект oException
знаю и использую

_иван_
Приветсвую еще раз, вопрос не так прост как казалось
бы мне сначала.
КАк я говорил сразу, используются приватные сессии,
и используется форма для архивации.
Юзер наоткрывал приватных форм
а потом решил начать архивировать

И никак я не могу отдифференцировать
открыта ли БД шарово по сети или
открыта в приватной сессии
чотбы дать команду на
"закройте все активные формы"
или
"БД используется в сети "

а команда close database
то закрывает ,то не закрывает БД
(активные приватные сессии)
И если активна форма-то "белые гриды"

Вообщем я лично не вижу разрешения проблемы
закрытия БД без закрытия форм(скажите что я не прав).

дак и с закрытием форм проблемы:


автор* Если база данных УЖЕ открыта, но в режиме SHARED, то закрываю ее
IF DBUSED(tcnamebasedan) = .T. AND IsExclusive(tcnamebasedan,2) = .F.
*поищем в коллекции форм главную и эту
FOR EACH loForm IN _vfp.Forms
llForms=.f.
IF loForm.Name#'MAINFORM' OR loForm#thisform &&AS TOP FORM и форма архивации
llForms=.f.
ELSE
llForms=.t.
ENDIF

ENDFOR

IF Messagebox("Для выполнения данной операции требуется эксклюзивный доступ к данным."+Chr(13)+ ;
"Закрыть все окна и повторить попытку?",4+48+0,THISFORM.Caption)=1 AND llForms=.T.
*Закроем формы, которые могут использовать приватные сессии и БД на локальной машине
*сначала закроем модальные формы
FOR EACH loForm IN _vfp.Forms
IF loForm.Name#'mainform' OR loForm#thisform
TRY
*Бывает, что в колеекции не находит свойство WindowType
IF loForm.WindowType=1
loForm.click()
loForm.release()
ENDIF
CATCH
FINALLY
ENDTRY
ENDIF
ENDFOR

FOR EACH loForm IN _vfp.Forms
IF loForm.Name#'mainform' OR loForm#thisform
loForm.click()
loForm.release()
ENDIF
ENDFOR
ELSE
_Return=.f.
RETURN _Return
ENDIF
ENDIF

* Если база данных открыта, то пытаюсь ее закрыть
IF DBUSED(tcnamebasedan) = .T. AND IsExclusive(tcnamebasedan,2) = .F.
CLOSE DATABASES ALL
ENDIF

блин неоттуда скопироавл код,
для проверки пользую такой,
но он не работает :((

автор
LOCAL namebasewithrash,_Return,lcOldError
namebasewithrash= tcnamebasedan+'.DBC'
_Return=.f.

* Если база данных УЖЕ открыта, но в режиме SHARED, то закрываю ее
IF DBUSED(tcnamebasedan) = .T. AND IsExclusive(tcnamebasedan,2) = .F.


*поищем в коллекции форм главную и эту
LOCAL lnI
llFormsOn=.F.
FOR lnI=1 TO _VFP.Forms.Count
IF !UPPER(_VFP.Forms(lnI).Name)=="MAINFORM" OR !UPPER(_VFP.Forms(lnI).Name)==UPPER(thisForm.Name);
OR UPPER(_VFP.Forms(lnI).BaseClass)=="TOOLBAR"
llFormsOn=.T.
EXIT
ENDIF
ENDFOR




IF Messagebox("Для выполнения данной операции требуется эксклюзивный доступ к данным."+Chr(13)+ ;
"Закрыть все окна и повторить попытку?",4+48+0,THISFORM.Caption)=1 AND llFormsOn=.T.
*Закроем формы, которые могут использовать приватные сессии и БД на локальной машине
*сначала закроем модальные формы
FOR EACH loForm IN _vfp.Forms
TRY
*Бывает, что в колеекции не находит свойство WindowType
IF loForm.WindowType=1
loForm.click()
loForm.release()
ENDIF
CATCH
FINALLY
ENDTRY
ENDFOR

FOR EACH loForm IN _vfp.Forms
loForm.click()
loForm.release()
ENDFOR
ELSE
_Return=.f.
RETURN _Return
ENDIF
ENDIF

* Если база данных открыта, то пытаюсь ее закрыть
IF DBUSED(tcnamebasedan) = .T. AND IsExclusive(tcnamebasedan,2) = .F.
CLOSE DATABASES ALL
ENDIF