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

@dratxara · 10.11.2015, 08:53. **Показов** 6128. **Ответов** 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

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

Новые блоги и статьи Все статьи Все блоги /
Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ начало и оглавление - Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование. . .	сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .
32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .	Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .

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

Решение

Решение

Решение

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

	Автоматическое обновление клиентской части 10.11.2015, 08:53. Показов 6128. Ответов 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