Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Вл-р Гость
|
Добавлено: Пн Фев 13, 2012 9:37 am Заголовок сообщения: OpenDatabase2 |
|
|
Имеем Акцент 7.4(SQL). Необходимо ежедневно после 23:00 с правами "почти admin'а" создавать и заполнять некий документ и еще несколько тысяч документов, что сейчас и делается лично мною с удаленного рабочего стола нажатием нескольких кнопок на форме. Работники, находящиеся в это время (после 23:00) на рабочих местах, не могут делать эту работу (недостаточно прав). Нужно автоматическое выполнение. Форма уже достаточно отлажена и отрабатывает с минимальным вмешательством пользователя. Можно ее вообще переделать на модуль. Но под управлением Акцент 7.0 эта форма не работает.
Возможен запуск сервера OLE-Automation, но только для версии 7.0.
Есть ли аналог OpenDatabase2 для 7.4 или другое решение? |
|
Вернуться к началу |
|
|
kris
Зарегистрирован: 12.01.2006 Сообщения: 371
|
Добавлено: Пн Фев 13, 2012 10:03 am Заголовок сообщения: |
|
|
Можно на сервере по расписанию запускать Акцент с модифицированным Workarea.OnQueryUI, в который писать запуск соответствующей процедуры. |
|
Вернуться к началу |
|
|
kris
Зарегистрирован: 12.01.2006 Сообщения: 371
|
Добавлено: Пн Фев 13, 2012 10:06 am Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): | Но под управлением Акцент 7.0 эта форма не работает. |
А почему не работает? Фич 7.4 не так много и я "перекидывал" формы и шиты с 7.4 на 7.0 простым копированием контролов и кода - работает при условии что в коде нет именно фич 7.4. Имею ввиду метод Ctrl+a, Ctrl+c, Ctr+v. Если страниц на форме много, то придется копировать, конечно, каждую. |
|
Вернуться к началу |
|
|
AllexL
Зарегистрирован: 10.03.2005 Сообщения: 434 Откуда: Donetsk
|
Добавлено: Пн Фев 13, 2012 10:12 am Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): | Имеем Акцент 7.4(SQL). |
Я бы смотрел в сторону JOB on T-SQL. Да, хлопотно. Да, писать много. Но, имхо, если нужен надежный вариант - то T-SQL самое оно |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Пн Фев 13, 2012 10:17 am Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): | Имеем Акцент 7.4(SQL).
...Но под управлением Акцент 7.0 эта форма не работает.
Есть ли аналог OpenDatabase2 для 7.4 или другое решение? |
Что значит "аналог" ? у них одинаковая ОМ, совместимая снизу вверх.
В чем конкретно "не работает" ? |
|
Вернуться к началу |
|
|
treasurer
Зарегистрирован: 10.03.2005 Сообщения: 553
|
Добавлено: Пн Фев 13, 2012 10:51 am Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): | ,Есть ли аналог OpenDatabase2 для 7.4 или другое решение? |
Если у вас не работает OpenDatabase2, то нужно обновить билд 7.4. |
|
Вернуться к началу |
|
|
Вл-р Гость
|
Добавлено: Пн Фев 13, 2012 11:59 am Заголовок сообщения: Re: OpenDatabase2 |
|
|
treasurer писал(а): | Вл-р писал(а): | ,Есть ли аналог OpenDatabase2 для 7.4 или другое решение? |
Если у вас не работает OpenDatabase2, то нужно обновить билд 7.4. |
У меня был билд 446 для 7.0(поэтому форма не работала) и 518 для 7.4. Сначала обновил 7.0 до 495 - моя форма заработала в 7.0, но перестал работать .vbs , сделанный по примеру из хелпа. Обновление 7.4 до 531 не помогло.
[img]https://dl-web.dropbox.com/get/Public/OpenDB2.JPG?w=b6b9baf5[/img]
Не разобрался, как вставить картинку в сообщение, поэтому дублирую текст из картинки:
"Ошибка: Невозможно создание объекта контейнером ActiveX: 'Accent7.Workarea'
Код: 800A01AD"
Последний раз редактировалось: Вл-р (Пн Фев 13, 2012 12:04 pm), всего редактировалось 1 раз |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Пн Фев 13, 2012 12:03 pm Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): | treasurer писал(а): | Вл-р писал(а): | ,Есть ли аналог OpenDatabase2 для 7.4 или другое решение? |
Если у вас не работает OpenDatabase2, то нужно обновить билд 7.4. |
У меня был билд 446 для 7.0(поэтому форма не работала) и 518 для 7.4. Сначала обновил 7.0 до 495 - моя форма заработала в 7.0, но перестал работать .vbs , сделанный по примеру из хелпа. Обновление 7.4 до 531 не помогло.
[img]https://dl-web.dropbox.com/get/Public/OpenDB2.JPG?w=b6b9baf5[/img] |
Акцент последний 534, но это не принципиально.
Картинки не видно, можно словами написать, что за проблемы ? |
|
Вернуться к началу |
|
|
Вл-р Гость
|
Добавлено: Пн Фев 13, 2012 12:07 pm Заголовок сообщения: Re: OpenDatabase2 |
|
|
olimp писал(а): |
Картинки не видно, можно словами написать, что за проблемы ? |
Не разобрался, как вставить картинку в сообщение, поэтому дублирую текст из картинки:
"Ошибка: Невозможно создание объекта контейнером ActiveX: 'Accent7.Workarea'
Код: 800A01AD"
То есть, обычное сообщение об отсутствии класса объектов. |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Пн Фев 13, 2012 12:10 pm Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): | olimp писал(а): |
Картинки не видно, можно словами написать, что за проблемы ? |
Не разобрался, как вставить картинку в сообщение, поэтому дублирую текст из картинки:
"Ошибка: Невозможно создание объекта контейнером ActiveX: 'Accent7.Workarea'
Код: 800A01AD"
То есть, обычное сообщение об отсутствии класса объектов. |
Это значит, что Акцент неправильно зарегистрирован в реестре. нужно переустановить и все будет нормально |
|
Вернуться к началу |
|
|
Виктор
Зарегистрирован: 10.03.2005 Сообщения: 210 Откуда: Горловка (Щирий кум)
|
Добавлено: Пн Фев 13, 2012 12:44 pm Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): |
"Ошибка: Невозможно создание объекта контейнером ActiveX: 'Accent7.Workarea'
Код: 800A01AD" |
Так Вам надо создавать Accent7s.Workarea
типа так
Set WA = CreateObject("Accent7s.Workarea")
Set FD = CreateLibObject("FileDialog")
FD.Caption = "Выберите БД для импорта"
FD.Filter = "Файлы подключения к БД (*.udl)|*.udl|"
FD.FileMustExists = True
If FD.ShowOpen <> vbOK Then Exit Sub
Uid = InputBox("Введите имя")
If Uid = "" Then Exit Sub
If Not WA.OpenDatabase2(FD.PathName, "uid=" & Uid & ";pwd=" & InputBox("Введите пароль")) Then MsgBox "Подключение не выполнено" : Exit Sub
Set DB1 = WA.AdoConnection
Set DB = CreateObject("ADODB.Connection")
DB.Provider = "sqloledb"
DB.Properties("Data Source").Value = DB1.Properties("Data Source").Value
DB.Properties("Initial Catalog").Value = DB1.Properties("Initial Catalog").Value
DB.Properties("User ID").Value = DB1.Properties("User ID").Value
DB.Properties("Password").Value = DB1.Properties("Password").Value
DB.Open
....
и т.д. |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Пн Фев 13, 2012 1:01 pm Заголовок сообщения: Re: OpenDatabase2 |
|
|
Виктор писал(а): | Вл-р писал(а): |
"Ошибка: Невозможно создание объекта контейнером ActiveX: 'Accent7.Workarea'
Код: 800A01AD" |
Так Вам надо создавать Accent7s.Workarea
типа так
Set WA = CreateObject("Accent7s.Workarea")
Set FD = CreateLibObject("FileDialog")
FD.Caption = "Выберите БД для импорта"
FD.Filter = "Файлы подключения к БД (*.udl)|*.udl|"
FD.FileMustExists = True
If FD.ShowOpen <> vbOK Then Exit Sub
Uid = InputBox("Введите имя")
If Uid = "" Then Exit Sub
If Not WA.OpenDatabase2(FD.PathName, "uid=" & Uid & ";pwd=" & InputBox("Введите пароль")) Then MsgBox "Подключение не выполнено" : Exit Sub
Set DB1 = WA.AdoConnection
Set DB = CreateObject("ADODB.Connection")
DB.Provider = "sqloledb"
DB.Properties("Data Source").Value = DB1.Properties("Data Source").Value
DB.Properties("Initial Catalog").Value = DB1.Properties("Initial Catalog").Value
DB.Properties("User ID").Value = DB1.Properties("User ID").Value
DB.Properties("Password").Value = DB1.Properties("Password").Value
DB.Open
....
и т.д. |
Ну, тогда уже
Accent74.Workarea - для Акцент 7.4 DAO
Accent74s.Workarea - для Акцент 7.4 MSDE/SQL
Accent7.Workarea - для Акцент 7.0 DAO
Accent7s.Workarea - для Акцент 7.0 MSDE/SQL
:) |
|
Вернуться к началу |
|
|
Вл-р Гость
|
Добавлено: Пн Фев 13, 2012 2:05 pm Заголовок сообщения: Re: OpenDatabase2 |
|
|
olimp писал(а): | ...
Accent74.Workarea - для Акцент 7.4 DAO
Accent74s.Workarea - для Акцент 7.4 MSDE/SQL
Accent7.Workarea - для Акцент 7.0 DAO
Accent7s.Workarea - для Акцент 7.0 MSDE/SQL
:) |
Да, про буковку s я не подумал :)
Перепробовал Accent74, Accent740, на Accent7 работало, потому что 446 билд без этой буковки.
Всем спасибо! |
|
Вернуться к началу |
|
|
olimp Site Admin
Зарегистрирован: 10.03.2005 Сообщения: 2661
|
Добавлено: Пн Фев 13, 2012 3:05 pm Заголовок сообщения: Re: OpenDatabase2 |
|
|
Вл-р писал(а): | olimp писал(а): | ...
Accent74.Workarea - для Акцент 7.4 DAO
Accent74s.Workarea - для Акцент 7.4 MSDE/SQL
Accent7.Workarea - для Акцент 7.0 DAO
Accent7s.Workarea - для Акцент 7.0 MSDE/SQL
:) |
Да, про буковку s я не подумал :)
Перепробовал Accent74, Accent740, на Accent7 работало, потому что 446 билд без этой буковки.
Всем спасибо! |
так в реестре бы поискал |
|
Вернуться к началу |
|
|
|