Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

OpenDatabase2

 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.40
Предыдущая тема :: Следующая тема  
Автор Сообщение
Вл-р
Гость





СообщениеДобавлено: Пн Фев 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 или другое решение?

Что значит "аналог" ? у них одинаковая ОМ, совместимая снизу вверх.
В чем конкретно "не работает" ?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
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, но это не принципиально.
Картинки не видно, можно словами написать, что за проблемы ?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Вл-р
Гость





СообщениеДобавлено: Пн Фев 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"

То есть, обычное сообщение об отсутствии класса объектов.

Это значит, что Акцент неправильно зарегистрирован в реестре. нужно переустановить и все будет нормально
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Виктор



Зарегистрирован: 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

:)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Вл-р
Гость





СообщениеДобавлено: Пн Фев 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 билд без этой буковки.

Всем спасибо!

так в реестре бы поискал
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.40 Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group