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

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

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

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

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

mobile · 11.11.2015, 01:06

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

Visual Basic

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

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

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

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

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

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

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

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

Решение

Решение

Решение

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

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	11.11.2015, 21:03	23
	Сообщение от dratxara пустое окно access Я не выкладываю непроверенный код. Или, если вдруг не на чем проверить, то обязательно предупреждаю. У меня все работает, файл заменяется и открывается обновленный. Проверяйте у себя. Где-то пропущен или заменен символ. Этого достаточно, чтобы возникла ошибка. 1

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

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	12.11.2015, 20:56	30
	Сообщение от alexpro1979 Вот бы к такому решению еще получить возможность автоматической привязки файла клиента к разделенной таблице. Этого не надо делать вообще. В самом файле обновления все таблицы уже должны быть слинкованы по сетевому, а не локальному адресу. И неважно где в сети будет стоять новый клиент - сетевой адрес постоянен и неизменен для группы или домена. 1

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	12.11.2015, 23:30	35
	Сообщение от mobile \\ИмяСервера\полныйпутькрасшареннойпапке\файлобновления.mdb У меня на компе путь с файлам с таблицами d:\Общая папка\. У коллег v:\. Если идти путем \\230.255.1.1\Общая папка\ у меня и \\230.255.1.1\ у коллег. Адрес ведь разный. Я в сетях не очень понимаю, растолкуйте что не так. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	12.11.2015, 23:44	36
	Сообщение от alexpro1979 Если идти путем \\230.255.1.1\Общая папка\ у меня и \\230.255.1.1\ у коллег. Адрес ведь разный. Вы ПРОБОВАЛИ прописать коллегам \\230.255.1.1\Общая папка\ и не заработало, или вы ДУМАЕТЕ, что не зрааботает? 1

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	12.11.2015, 23:46	37
	Пока думаю, попробовать не могу - нахожусь в командировке неделю. Добавлено через 47 секунд На Ваш взгляд путь Сообщение от texnik-san \\230.255.1.1\Общая папка\ можно прописать всем и не париться? 0

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

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

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