ник: ГлазастыйМышь
По проблемам при копировании ничего сказать не могу, да и практические испытания тоже не помогут (если только под большой нагрузкой)
Лично у меня бывали ситуации когда при копировании MDB иногда ломалась база (и никакими средствами востановить не получалось), а чаше все происходило нормально (даже если с ней работали люди)
Т.К. приложение запускается через Citrix, то сделал скрипт
SelectVersion.vbs
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
dbPath = "путь в корневой каталог"
dbPathWorkGroup = dbPath & "knowledge.mdw"
dbPathBaseOLD = dbPath & "Знания.mdb"
dbPathBaseNEW = dbPath & "RO_(3-0)_1.mdb"
dbPathAccess = "D:\Program Files\Microsoft Office\Office11\MSACCESS.EXE"
bntNum = WshShell.Popup ("Запустить новую версию программы ?"_
& Chr(10) & Chr(13) & Chr(10) & Chr(13) _
& Chr(10) & Chr(13) & Chr(10) & Chr(13) _
& Chr(10) & Chr(13) & Chr(10) & Chr(13) _
& "______________________________________________________ " _
& Chr(10) & Chr(13) _
& "При ответе 'ДА' или при отсутствии ответа в течение 15 секунд будет " _
& "запущена новая версия программы." , 15 ,"Выберите версию программы", _
vbDefaultButton1 + vbQuestion + vbYesNo)
select case bntNum
'нажата кнопка НЕТ
case 7
dbPathBase = dbPathBaseOLD
case Else
dbPathBase = dbPathBaseNEW
end select
If dbPathBase <> "" Then
WshShell.Run """" & dbPathAccess & """" & " " & """" & dbPathBase & """" & " /WrkGrp " & """" & dbPathWorkGroup & """ /User " & Ucase(WSHNetwork.UserName) & " /pwd "
End If
WScript.Quit
|
соответственно при обновлениях по необходимости меняю переменные dbPathWorkGroup, dbPathBaseNEW в соответствии с новыми именами файлов (да и версионность таким образом неплохо отслеживать)
ЗЫ. Не иначе в банке работаешь, обычно там такие процедуры.
ЗЫ. Да и процедура добавления нового юзера не дела разработчика, а отдела сопровождения (вот и сделай приблуду для них
)