Автоматическое обновление клиентской части

@dratxara · 10.11.2015, 08:53. **Показов** 6312. **Ответов** 42

Студворк — интернет-сервис помощи студентам

пожалуйста подскажите как сделать автоматическое обновление клиентской части....

когда стартует клиентская часть есть изменение формах или в ачивках....
происходило обновление клиентской части.

mobile · 11.11.2015, 01:06

В предыдущем варианте скрипта был стратегический просчет. Не учитывалось, что обновление для выложенного серверного файла надо сделать только 1 раз!. И не делать его каждый раз при загрузке БД с ярлыка скрипта. Исправить ситуацию можно, сделав некий признак того, что обновление на данном ПК уже прошло. Я выбрал для этого пустой текстовый файл, название которого совпадает с названием файла обновления. Если такой файл есть рядом с клиентским, то обновление делать не надо. Оно уже было сделано.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sFolder = "C:\Users\AG\Desktop"
sFile = "server1.doc"
kFolder = "C:\Users\AG\Desktop\aa"
kFile = "klient.mdb"
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
'Проверяем существование файла обновления и файла-индикатора закачки обновления 
If FSO.FileExists(sFolder & "\" & sFile) And Not FSO.FileExists(kFolder & "\" & sFile & ".txt") Then
  Set FileFSO = FSO.GetFile(kFolder & "\" & kFile)
  FileFSO.Copy kFolder & "\Копия_" & kFile
  Set FileFSO = FSO.GetFile(sFolder & "\" & sFile)
  FileFSO.Copy kFolder & "\" & kFile
  Set TextStream = FSO.CreateTextFile(kFolder & "\" & sFile & ".txt", True) 'Создание файла-индикатора закачки обновления
  TextStream.Close
End If
WshShell.Run "MSAccess.EXE " & kFolder & "\" & kFile

ВАЖНО! Файл обновления для каждой новой версии должен быть с другим именем. Например в имени есть номер версии: server_1.mdb. Иначе обновление следующей версии не пройдет - файл-индикатор не пропустит.

Не по теме:

Чертов редактор - удаляет слэши если они в кавычках. Приходится делать двойные

@dratxara · 11.11.2015, 17:44 **[ТС]**

большое спасибо за труд конечно но опиат пустое окно access

mobile · 11.11.2015, 21:03

Сообщение от dratxara

пустое окно access

Я не выкладываю непроверенный код. Или, если вдруг не на чем проверить, то обязательно предупреждаю. У меня все работает, файл заменяется и открывается обновленный. Проверяйте у себя. Где-то пропущен или заменен символ. Этого достаточно, чтобы возникла ошибка.

@dratxara · 11.11.2015, 21:09 **[ТС]**

ПОЖАЛУЙСТА ЕСЛИ НЕ ЗАТРУДНИТ ВЫЛОЖИТЕ ФАЙЛ ПРИМЕР ФАЙЛЫ КОТОРОГО НАХОДИЛИСЬ БЫ НА РАБОЧИЙ СТОЛ В ОДНОМ ПАПКЕ А Я СМЕНЮ СВОЙ ЮЗЕР....НАВЕРНО ЧТО ТО Я НЕ ТАК ДЕЛАЮ....

mobile · 11.11.2015, 21:47

Выкладываю. Но только распаковывать надо не на рабочий стол, а в папки C:\Temp\server и C:\Temp\client. С рабочим столом вообще никогда не связываюсь и не рекомендую никому. Эта папка первая которую атакуют вирусы.

Скрипт ЗаменаОбновлением.vbs может находиться в любом месте, в любой папке. Файлы БД, как я уже писал выше должны быть "серверная" в C:\Temp\server, "клиентская" в C:\Temp\client. Собственно эти пути описаны в вбс-файле. Из архива файл server.mdb распакуйте в папку C:\Temp\server, а файл client.mdb в папку C:\Temp\client.

Посмотрите сначала клиентский файл. Убедитесь, что он отличается от серверного варианта. Затем запустите файл скрипта.

@dratxara · 11.11.2015, 22:12 **[ТС]**

если было бы возможность я бы тебя поставил 100000000 спасибо

Добавлено через 13 секунд

Добавлено через 3 минуты
только было бы лучше если вовремя открытие программы пользователя проверялось и если есть обновление объявлялось...

mobile · 11.11.2015, 22:27

Сообщение от dratxara

только было бы лучше если вовремя открытие программы пользователя проверялось и если есть обновление объявлялось...

В файл скрипта вставлен мсгбокс

mobile · 12.11.2015, 00:04

Чтобы не морочиться с изменением скрипта каждый раз для нового обновления, добавил в серверную папку текстовый файл с постоянным именем filename.txt. В нем должна быть только одна строка - имя нового файла обновления: server_2.mdb. Или server_22.mdb, в общем только имя нового файла. И внес изменения в скрипт.

filename.txt в папку с серверным обновлением. Скрипт куда угодно.

@alexpro1979 · 12.11.2015, 20:38

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

mobile · 12.11.2015, 20:56

Сообщение от alexpro1979

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

Этого не надо делать вообще. В самом файле обновления все таблицы уже должны быть слинкованы по сетевому, а не локальному адресу. И неважно где в сети будет стоять новый клиент - сетевой адрес постоянен и неизменен для группы или домена.

@alexpro1979 · 12.11.2015, 21:01

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

mobile · 12.11.2015, 21:08

Ну а почему нельзя заменить путь на полный с указанием сервера?

Visual Basic
1
\\ИмяСервера\полныйпутькрасшареннойпапке\файлобновления.mdb

@alexpro1979 · 12.11.2015, 21:10

клиента я сначала меняю у себя проверяю затем ложу в сеть бегу по компам и обновляю, так как такого имени сетевого диска нет и обновляю свяхь с базой руками

mobile · 12.11.2015, 21:14

Так и не нужно имя сетевого диска. Я же Вам другое предлагаю - делать коннект по имени сервера с полным путем к папке с таблицами. У сервера всегда есть имя или IP. Этого достаточно для указания полного пути. И тогда не нужны виртуальные диски Z или X.

@alexpro1979 · 12.11.2015, 23:30

Сообщение от mobile

\\ИмяСервера\полныйпутькрасшареннойпапке \файлобновления.mdb

У меня на компе путь с файлам с таблицами d:\Общая папка\. У коллег v:\. Если идти путем \\230.255.1.1\Общая папка\ у меня и \\230.255.1.1\ у коллег. Адрес ведь разный. Я в сетях не очень понимаю, растолкуйте что не так.

@texnik-san · 12.11.2015, 23:44

Сообщение от alexpro1979

Если идти путем \\230.255.1.1\Общая папка\ у меня и \\230.255.1.1\ у коллег. Адрес ведь разный.

Вы ПРОБОВАЛИ прописать коллегам \\230.255.1.1\Общая папка\ и не заработало, или вы ДУМАЕТЕ, что не зрааботает?

@alexpro1979 · 12.11.2015, 23:46

Пока думаю, попробовать не могу - нахожусь в командировке неделю.

Добавлено через 47 секунд
На Ваш взгляд путь

Сообщение от texnik-san

\\230.255.1.1\Общая папка\

можно прописать всем и не париться?

mobile · 12.11.2015, 23:55

Да! Именно так. Причем начните с себя :-)

@texnik-san · 12.11.2015, 23:56

Нужно начать с того, что попробовать. В норме - должно работать.

@alexpro1979 · 12.11.2015, 23:59

Приеду - попробую, спасибо

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

Автоматическое обновление клиентской части

Решение

Решение

Решение

@dratxara Заблокирован

	Автоматическое обновление клиентской части 10.11.2015, 08:53. Показов 6312. Ответов 42 Метки нет (Все метки) пожалуйста подскажите как сделать автоматическое обновление клиентской части.... когда стартует клиентская часть есть изменение формах или в ачивках.... происходило обновление клиентской части. 0

@dratxara Заблокирован
	11.11.2015, 17:44 [ТС]
	большое спасибо за труд конечно но опиат пустое окно access 0

@dratxara Заблокирован
	11.11.2015, 21:09 [ТС]
	ПОЖАЛУЙСТА ЕСЛИ НЕ ЗАТРУДНИТ ВЫЛОЖИТЕ ФАЙЛ ПРИМЕР ФАЙЛЫ КОТОРОГО НАХОДИЛИСЬ БЫ НА РАБОЧИЙ СТОЛ В ОДНОМ ПАПКЕ А Я СМЕНЮ СВОЙ ЮЗЕР....НАВЕРНО ЧТО ТО Я НЕ ТАК ДЕЛАЮ.... 0

@dratxara Заблокирован
	11.11.2015, 22:12 [ТС]
	если было бы возможность я бы тебя поставил 100000000 спасибо Добавлено через 13 секунд Добавлено через 3 минуты только было бы лучше если вовремя открытие программы пользователя проверялось и если есть обновление объявлялось... 0

@alexpro1979 648 / 101 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	12.11.2015, 20:38
	Вот бы к такому решению еще получить возможность автоматической привязки файла клиента к разделенной таблице. 0

@alexpro1979 648 / 101 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	12.11.2015, 21:01
	У меня расшарена папка по сети, для меня это один путь к файлу с таблицами, для других путь другой, изменений много и часто. Переподвязывать нужно часто.(( 0

@alexpro1979 648 / 101 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	12.11.2015, 21:10
	клиента я сначала меняю у себя проверяю затем ложу в сеть бегу по компам и обновляю, так как такого имени сетевого диска нет и обновляю свяхь с базой руками 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	12.11.2015, 21:14
	Так и не нужно имя сетевого диска. Я же Вам другое предлагаю - делать коннект по имени сервера с полным путем к папке с таблицами. У сервера всегда есть имя или IP. Этого достаточно для указания полного пути. И тогда не нужны виртуальные диски Z или X. 1

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	12.11.2015, 23:55
	Да! Именно так. Причем начните с себя :-) 0

@texnik-san шапоклякистка 8-го дня 3681 / 2241 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	12.11.2015, 23:56
	Нужно начать с того, что попробовать. В норме - должно работать. 1

@alexpro1979 648 / 101 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	12.11.2015, 23:59
	Приеду - попробую, спасибо 1