Разработка баз данныхРазработка баз данных

 Программирование  Программы  Ссылки  Обратная связь
     
. . .
. . .
startpage.htm Новости
about.htm О сайте
fileformat.htm I. Выбор технологии
clientserver.htm Преимущества клиент-серверной технологи
prepare.htm Переход от MDB к ADP
upsizing.htm Инструменты переноса данных
setupserver.htm Выбор версии и установка сервера
selectclient.htm Выбор версии MSAccess
formsreports.htm II. Формы, Отчеты MSAccess
queries.htm Запросы / ADO
inputparameters.htm Передача входных параметров
data_drivers.htm Библиотеки доступа к данным
forms.htm Формы MSAccess
requery.htm Обновление данных в форме
updatableform.htm Обновляемость данных в форме
dialogform.htm Остановка кода пока открыта форма
formsaverecord.htm Сохранить текущую запись
formgotorecord.htm Переход по записям формы
sumform.htm Итоги в формах
serverfiltersample.htm Пример серверного фильтра
formerror.htm Причина Ошибки #Error
menubarevent.htm Перехват нажатия на кнопку меню
woconditionalformat.htm Раскраска строк ленточной формы без условного форматирования
currrec.htm Выделение цветом текущей записи
subform.htm Подчиненные Формы
textboxenter.htm Ввод перевода строки
twimagelistbug.htm treview + imagelist + подч. форма
reports.htm Отчеты, общие рекомендации
report_input_parameters.htm Входные параметры
vbaprog.htm III. Программирование VBA
dbpic.htm Картинки в базе данных
binbmp.htm Двоичные данные картинки в поле таблицы базы данных
piclink.htm Хранение ссылок на файлы
picjpg.htm Бинарное содержимое JPG, Gif файла в бинарном поле базы данных
playsound.htm Воспроизведение звуков
tv.htm Функции для тривью
restartaccess.htm Перезапуск Аксесса
publicvariables.htm Передача и хранение параметров и настроек
collectionfunctions.htm Коллекция полезных функций
datepicker.htm Всплывающий календарик
menuhummer.htm Меню и тулбары
padeg.htm Склонение по падежам
comborowsource.htm Источник данных для поля со списком
filedialog.htm Диалог выбора файла / папки
sendmapi.htm Отправка почты (4 способа) + архивация
autoupdateclient.htm Автоматическое обновление клиентской части
licenses.htm  Устранение проблем с регистрацией компонентов
uncommented.htm Без коментариев
filetime.htm Время и дата файла
reportsample.htm Пример настраивомого отчета
adpformfilter.htm Серверный Фильтр by GEO
tempmdb.htm ADP: Временный MDB для временных таблиц
mutex.htm Запрет запуска нескольких копий приложения
translit.htm Транслитерация всего проекта.
updateident.htm Изменение счетчика
webinterface.htm IV WEB
accessinternet.htm Работа с аксесс через интернет
webupdate.htm Обновление приложения аксесс через интернет
msiecom.htm Программное управление веббраузером
sqlserver.htm MS SQL
mssqltransfer2.htm Перенос/копирование баз
mssqlperm.htm Adp проверка прав пользователя перед открытием формы или управление доступностью полей формы
mssqlcrossdatabase.htm  Межбазовые разрешения
tsqlcollection.htm T-sql коллекция
similarity.htm Сортировка по созвучности
esp.htm расширенные хранимые процедуры
mssqloptimizing.htm Оптимизация быстродействия
     Перезапуск Аксесса

 
Использование WSH скрипта для перезагрузки Аксесса  
(Идея Сенина Виктора)  
 
Алгоритм следующий:  
  • Во временной папке создается временный файл скрипта  
  • аксесс запускает этот скрипт  
  • скрипт завершает работу Аксесса  
  • скрипт открывает изначальный проект  
  • скрипт удаляет свой временный файл  
     
    Код перезапуска с предварительным копированием новой версии файла под старым именем:  
    Private Sub restart(newfile As String)  
         If MsgBox("Обновление загружено." & vbCrLf & _  " Для вступления изменений всилу следует перезапустить приложение." & vbCrLf & " Сделать это сейчас ?", vbInformation + vbYesNo) = vbYes Then  
             Dim Tempscriptfile, tfolder, WshShell, acdir, Fso  
     Set Fso = CreateObject("Scripting.FileSystemObject")  
             acdir = SysCmd(acSysCmdAccessDir)  
             Set WshShell = CreateObject("WScript.Shell")  
             Set tfolder = Fso.GetSpecialFolder(2)  
             Tempscriptfile = tfolder & Fso.GetTempName  
             Tempscriptfile = Replace(Tempscriptfile, ".tmp", ".vbs", , , vbTextCompare)  
             Open Tempscriptfile For Output As #1  
             Print #1, "Set fso = CreateObject(""Scripting.FileSystemObject"")"  
             Print #1, "Set WshShell = WScript.CreateObject(""WScript.Shell"")"  
             Print #1, "Set acc = WScript.GetObject(""" & CurrentProject.FullName & """)"  
             Print #1, "acc.quit "  
             Print #1, "WScript.Sleep 4000"  
             Print #1, "Fso.CopyFile " & Chr(34) & newfile & Chr(34) & "," & Chr(34) & CurrentProject.FullName & Chr(34) & ", true"  
             Print #1, "WshShell.Run "; """"""""; acdir; "msaccess.exe" & Chr(34) & Chr(34) & " " & Chr(34) & Chr(34) & CurrentProject.FullName; """"""""  
             Print #1, "Set MyFile = fso.GetFile(""" & newfile & """)"  
             Print #1, "MyFile.Delete"  
             Print #1, "Set MyFile = fso.GetFile(""" & Tempscriptfile & """)"  
             Print #1, "MyFile.Delete"  
             Print #1, "Set fso = NOTHING"  
             Print #1, "Set WshShell = NOTHING"  
             Close #1  
             WshShell.Run (Tempscriptfile)  
             Set Fso = Nothing: Set tfolder = Nothing: Set WshShell = Nothing  
         End If  
    End Sub  
     
    Код простого перезапуска:  
    Private Sub restartOnly()  
         If MsgBox("Перезапустить приложение?", vbInformation + vbYesNo) = vbYes Then  
             Dim Tempscriptfile, tfolder, WshShell, acdir, Fso  
     Set Fso = CreateObject("Scripting.FileSystemObject")  
             acdir = SysCmd(acSysCmdAccessDir)  
             Set WshShell = CreateObject("WScript.Shell")  
             Set tfolder = Fso.GetSpecialFolder(2)  
             Tempscriptfile = tfolder & Fso.GetTempName  
             Tempscriptfile = Replace(Tempscriptfile, ".tmp", ".vbs", , , vbTextCompare)  
             Open Tempscriptfile For Output As #1  
             Print #1, "Set fso = CreateObject(""Scripting.FileSystemObject"")"  
             Print #1, "Set WshShell = WScript.CreateObject(""WScript.Shell"")"  
             Print #1, "Set acc = WScript.GetObject(""" & CurrentProject.FullName & """)"  
             Print #1, "acc.quit "  
             Print #1, "WScript.Sleep 4000"  
             Print #1, "WshShell.Run "; """"""""; acdir; "msaccess.exe" & Chr(34) & Chr(34) & " " & Chr(34) & Chr(34) & CurrentProject.FullName; """"""""  
             Print #1, "Set MyFile = fso.GetFile(""" & Tempscriptfile & """)"  
             Print #1, "MyFile.Delete"  
             Print #1, "Set fso = NOTHING"  
             Print #1, "Set WshShell = NOTHING"  
             Close #1  
             WshShell.Run (Tempscriptfile)  
             Set Fso = Nothing: Set tfolder = Nothing: Set WshShell = Nothing  
         End If  
    End Sub  

    		•  
    . . .
    . . .
    © 2000 - 2009 Алексей Козин эта вебстраница является зеркалом сайта www.msdatabase.ru Рейтинг@Mail.ru
    Hosted by uCoz