ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Замена файла XXX.mdb на удалённых рабочих местах.
25 сообщений из 126, страница 4 из 6
  4  все
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775244
Фотография xax_nv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xax_nv
Участник
час58Щас поспим до утра.
Вот это ценная идея. Я тоже пошел спать. Я хоть и пенсионер, и даже по новому стилю, но завтра на работу, к тому же часовой пояс мск+2.
...
Рейтинг: 0 / 0
17.02.2019, 21:37
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775248
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Я когда-то тоже мудрил со свойствами БД. Но столкнулся с тем, что для проектов это не пошло. Были какие-то сложности. Кстати, где-то здесь на форуме лежат мои топики об этом.

Сейчас у меня в базе просто есть табличка tblRelrase в которую я заношу номер версии, дату изменения, краткое описание изменения. Я её всегда могу прочитать как из своей базы, так и из другой.
...
Рейтинг: 0 / 0
17.02.2019, 21:55
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775254
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Joss,

Да...
вот тоже уже подумываю о более простом и надёжном способе. Иметь таблицу.
...
Рейтинг: 0 / 0
17.02.2019, 22:12
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775390
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
xax_nv,

Интересное дело...
Свойство наше в базе данных создаётся вот так:

Код: vbnet
1.
2.
    Set prp = dbs.CreateProperty("VERSII", dbDate, GLB_VERSION)
                    dbs.Properties.Append prp


без вот этой строки Set doc = cnt.Documents!UserDefined

об этом говорит повтор попытки создать это свойство. В ответ звучит:
такое свойство уже есть.

Можно уже менять значение свойства вот так:
Код: vbnet
1.
2.
     Set prp = dbs.Properties("VERSII")
     prp.Value = GLB_VERSION



но визуально, открыв свойства Б.Д. вручную этого свойства не видно.
Типа его нет.
...
Рейтинг: 0 / 0
18.02.2019, 10:58
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775406
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Итого, получается вот так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
' создание и добавление свойства   "VERSII"
    Set prp = dbs.CreateProperty("VERSII", dbDate, GLB_VERSION)
    dbs.Properties.Append prp
' присвоение значения свойству  "VERSII"
     prp.Value = GLB_VERSION
     Set prp = dbs.Properties("VERSII")
' чтение свойства"VERSII"
     Set prp = dbs.Properties("VERSII")
     MsgBox prp.Value


Всё работает.
Есть один минус. Посмотреть это свойство не программно - не удалось.
...
Рейтинг: 0 / 0
18.02.2019, 11:13
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775421
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Давно это было...

В общем, клиентов было много и программу у них периодически требовалось обновлять. Причем, зачастую оперативно - в рабочее время.

Решил тогда написанием простого загрузчика на VB6. Загрузчик считывал данные необходимых компонентов (Exe, Ocx, Ico и прочие) c INI-файла, хранящегося на сервере, если у клиента был файл более ранней версии, то файл его архива скачивался с сервера, распаковывался и при необходимости (в случае если это ActiveX Dll/OCX) регистрировался. Могли и необходимые записи в реестр вноситься, при необходимости. По окончании - запускался необходимый файл (exe или mdb).

Проблему решило на 100% - программа обновлялась у юзера при запуске (если была новая версия, конечно). Все компоненты тоже ставились автоматом. В общем, про потраченное на загрузчик время я не пожалел ни разу.
...
Рейтинг: 0 / 0
18.02.2019, 11:29
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775436
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
AndrF, - хорошее решение. Автоматизация полная.
Включил комп и оно само всё забабахало.
Может када нибудь и я к этому приду. Но пока останавливает наличие пропадания входа в сеть.
Если у кого-то сбой сети, то этот товарисч нафигачит всё в старой версии, а остальные в новой.
И при сливании данных в общий котёл... этот котёл полетит в маю башку.
Так?
...
Рейтинг: 0 / 0
18.02.2019, 11:45
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775437
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Пока получилась вот такая функция.
Подскажите что-то можно улучшить. или вообще не так нужно делать?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
Public Function FUN_CREATE_VERSIYA(PATCH_K_RMK As String, VERSIYA_VALUE As Date)
' создание свойства ВЕРСИЯ в файлах
    Dim prp As Variant
    Dim cnt As Container
    Dim wrk As Workspace
    Dim dbs As Database
    
    On Error GoTo FUN_VERSIYA_Error
    '-----------------------------------------------------------------------------
    Set wrk = DBEngine.Workspaces(0)
    Set dbs = wrk.OpenDatabase(PATCH_K_RMK)
    Set cnt = dbs.Containers!Databases

    On Error Resume Next
' создание и добавление свойства   "VERSII"
    Set prp = dbs.CreateProperty("VERSII", dbDate, VERSIYA_VALUE)
    dbs.Properties.Append prp
' если СВОЙСТВО УЖЕ ИМЕЕТСЯ
        If Err = 3367 Then
' присвоение значения свойству  "VERSII"
             Set prp = dbs.Properties("VERSII")
             prp.Value = Date
        End If

    Set cnt = Nothing
    Set prp = Nothing
    Set dbs = Nothing
    Set wrk = Nothing
    '-----------------------------------------------------------------------------
    On Error GoTo 0 'больше не хочу Resume Next
    Exit Function
FUN_VERSIYA_Error:

End Function
...
Рейтинг: 0 / 0
18.02.2019, 11:48
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775443
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58,

Начало процедуры мало вяжется с продолжением.

То что ты впихнул среди этих свойств это конечно хорошо(?), он это не пользовательские свойства. И просто так ты их не увидишь, это неудобно.
...
Рейтинг: 0 / 0
18.02.2019, 11:56
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775445
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58, а во второй половине всё же логичней было бы попытаться заполнить свойство, а уж если его нет, то создать
...
Рейтинг: 0 / 0
18.02.2019, 12:00
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775448
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панург, это почему же логичней сделать не так как я сделал?
:-))
------------------------------------------------------------------------
Всё равно, одинаково получается.
Сначала проверка попытки, а потом по результату проверки - действие.
Нет?
...
Рейтинг: 0 / 0
18.02.2019, 12:07
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775449
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
час58Может када нибудь и я к этому приду. Но пока останавливает наличие пропадания входа в сеть.
Если у кого-то сбой сети, то этот товарисч нафигачит всё в старой версии, а остальные в новой.
И при сливании данных в общий котёл... этот котёл полетит в маю башку.
Так?

Ну у меня все работали с SQL-сервером, так что сеть должна была быть по определению.

В течении дня разные пользователи одновременно могли работать с разными версиями программы (кто-то перезапускал программу, а кто-то нет), но, по крайней мере, за годы работы каких либо проблем из-за обновления не было вообще.
...
Рейтинг: 0 / 0
18.02.2019, 12:08
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775452
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58, при твоём варианте, первый раз нет ошибки потом всё время работа через ошибку - непорядочек.
...
Рейтинг: 0 / 0
18.02.2019, 12:09
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775453
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панургчас58,
Начало процедуры мало вяжется с продолжением.
Может начало ваще не нужно такое?
это не пользовательские свойства. И просто так ты их не увидишь, это неудобно.
да....
но выхода нету...
...
Рейтинг: 0 / 0
18.02.2019, 12:09
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775456
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
AndrF,
Понятно.

У меня все работают автономно. И только при наличии сети сливают всё в одну базу. Или передают данные на флэшке, если сеть не появилась пару дней.
...
Рейтинг: 0 / 0
18.02.2019, 12:11
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775459
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
час58,

У меня вот такая конструкция работает:
Код: vbnet
1.
2.
3.
4.
5.
    Set dbs = CurrentDb
    Set cnt = dbs.Containers("Databases")
    Set doc = cnt.Documents("UserDefined")
    Set prp = doc.CreateProperty("DB1", 10, "3.30.3")
    doc.Properties.Append prp


Вижу меняю визуально
Вижу меняю программно
...
Рейтинг: 0 / 0
18.02.2019, 12:12
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775461
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панург,
ага. ты прав.
блин....
мне ни када не быть программером....
:-(
...
Рейтинг: 0 / 0
18.02.2019, 12:14
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775464
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58, я тебе предлагал выход. Делать в новой версии вручную (дальше можешь уже и программно, документ пользовательских свойств добавлен), где версия отсутствует=устаревшая ->замена.

Опять же предлагался вариант с таблицей.
...
Рейтинг: 0 / 0
18.02.2019, 12:16
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775466
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
ROI,
у меня на этой сстроке
Код: vbnet
1.
Set doc = cnt.Documents("UserDefined")


вылетает с ошибкой
Элемент не обнаружен в данном семействе.
...
Рейтинг: 0 / 0
18.02.2019, 12:16
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775467
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панургчас58, я тебе предлагал выход. Делать в новой версии вручную (дальше можешь уже и программно, документ пользовательских свойств добавлен), где версия отсутствует=устаревшая ->замена.

Опять же предлагался вариант с таблицей.
Да. всё так и было.
вариант с таблицей - на запасном пути.
Вручную не хочется лазить по сети и к тому же не исключена ошибка (фактор человека!)
...
Рейтинг: 0 / 0
18.02.2019, 12:18
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775468
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
ROIУ меня вот такая конструкция работает:При определённых условиях (не разбирался при каких, не было нужды), по моему, документ с пользовательскими свойствами отсутствует. И добавить программно его нельзя.
...
Рейтинг: 0 / 0
18.02.2019, 12:19
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775472
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
час58Вручную не хочется лазить по сетиЗачем вручную по сети? Пришли с обновлением. В конце концов можно (если тебя так это припёрло) рассылать пустую БД с проставленной версией, быстренько копировать (а это быстро через DoCmd ) таблицы и связи в пустую БД. Далее программно обновлять версию. Всё.
Но проще в таком случае залудить таблицу для старых бд.
...
Рейтинг: 0 / 0
18.02.2019, 12:25
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775473
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Панург,

Создал новую базу вставил код:
Пользовательское свойство создалось.
...
Рейтинг: 0 / 0
18.02.2019, 12:27
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775481
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
Панург, функция - уже готова.
21812735
...
Рейтинг: 0 / 0
18.02.2019, 12:42
| Ответить | Цитировать | Написать  
Замена файла XXX.mdb на удалённых рабочих местах.
    #39775482
Фотография час58
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
час58
Участник
ROIСоздал новую базу вставил код:
Пользовательское свойство создалось.
21812789
...
Рейтинг: 0 / 0
18.02.2019, 12:43
| Ответить | Цитировать | Написать  
25 сообщений из 126, страница 4 из 6
  4  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Замена файла XXX.mdb на удалённых рабочих местах.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39775464&tid=1610832]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 14ms
total:  150ms
созд. / загр.: 150ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]