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

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

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

Новые блоги и статьи Все статьи Все блоги /
Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .
19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .

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

Решение

Решение

Решение

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

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