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

WorkArea.OpenDatabase2 не запрашивает логин-пароль (Win7)

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





СообщениеДобавлено: Чт Ноя 29, 2012 4:15 pm    Заголовок сообщения: WorkArea.OpenDatabase2 не запрашивает логин-пароль (Win7) Ответить с цитатой

Код:

Option Explicit

Dim path, wa
path = "\\Computer\Accent\Data\Accent.udl"
Set wa = CreateObject("Accent7s.Workarea")
If (wa.OpenDatabase2(path) = True) Then
   MsgBox "Ok!"
End If



Под XP логин-пароль запрашивается, под 7 запроса нет.
Что я делаю не так?
Вернуться к началу
Юров Ю.С.



Зарегистрирован: 11.03.2005
Сообщения: 383
Откуда: Павлоград

СообщениеДобавлено: Чт Ноя 29, 2012 5:34 pm    Заголовок сообщения: Ответить с цитатой

"Вы хотите в щеках похудеть или в стебле поправиться" - старый советский мульт "Почему у одуванчика такие большие щёки".

А по существу, насчёт WIN-7 не знаю, DAO версия под XP не запрашивает пароль.
Cвязка XP-SQL имеет решение, загляните в отладчике в свойства соединения. Когда-то делал переключатель баз данных, который не спрашивал при переходе из одной базы в другую пароль, если он одинаков.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
nikman



Зарегистрирован: 10.03.2005
Сообщения: 786
Откуда: Украина, Донецк

СообщениеДобавлено: Чт Ноя 29, 2012 7:18 pm    Заголовок сообщения: Ответить с цитатой

Попробуйте запустить Акцент от имени администратора.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail AIM Address MSN Messenger
Oleksandr
Гость





СообщениеДобавлено: Чт Ноя 29, 2012 8:36 pm    Заголовок сообщения: Ответить с цитатой

Пробовал и так и сяк...
Кстати, а у вас работает такой код под Windows 7?:

Код:
Dim path, wa
path = "D:\Accent.udl"
Set wa = CreateObject("Accent74s.Workarea")
MsgBox "Акцент открыт"
If (wa.OpenDatabase2(path,"uid="+InputBox("Введите логин")+";pwd="+InputBox("Введите пароль") ,1) = True) Then
   MsgBox "Ok!"
End If
wa.Application.Quit


У меня не работает. Процесс акцента появляется, но на этом все.



Мессадж "Акцент открыт" Не появляется. Далее предлагает переключиться куда-то либо попробовать еще раз. Нажатия на кнопки (хоть "Переключиться", хоть "Попробовать еще раз") ни к чему не приводят. В общем закрывать всю эту кашу приходится уже в диспетчере задач.

Если открывать 7 Акцент, то все нормально работает (за исключением того, что пароль не спрашивает):
CreateObject("Accent7s.Workarea")

Под XP оба Акцента вызываются нормально и пароль спрашивается.


Последний раз редактировалось: Oleksandr (Чт Ноя 29, 2012 11:03 pm), всего редактировалось 5 раз(а)
Вернуться к началу
Oleksandr
Гость





СообщениеДобавлено: Чт Ноя 29, 2012 8:53 pm    Заголовок сообщения: Ответить с цитатой

Юров Ю.С. писал(а):
Вы хотите в щеках похудеть или в стебле поправиться" - старый советский мульт "Почему у одуванчика такие большие щёки".

Хочу чтоб работало так как в XP Smile Спрашивало логин-пароль если они не отправлены в параметре

Юров Ю.С. писал(а):

Когда-то делал переключатель баз данных, который не спрашивал при переходе из одной базы в другую пароль, если он одинаков.

Пока что нужен ввод логина-пароля


Последний раз редактировалось: Oleksandr (Чт Ноя 29, 2012 10:10 pm), всего редактировалось 1 раз
Вернуться к началу
nikman



Зарегистрирован: 10.03.2005
Сообщения: 786
Откуда: Украина, Донецк

СообщениеДобавлено: Пт Ноя 30, 2012 3:41 am    Заголовок сообщения: Re: WorkArea.OpenDatabase2 не запрашивает логин-пароль (Win7 Ответить с цитатой

Oleksandr писал(а):
Код:
Option Explicit
Dim path, wa
path = "\\Computer\Accent\Data\Accent.udl"
Set wa = CreateObject("Accent7s.Workarea")
If (wa.OpenDatabase2(path) = True) Then
   MsgBox "Ok!"
End If
Под XP логин-пароль запрашивается, под 7 запроса нет.
Что я делаю не так?

Вот так попробуйте:
Код:
...
If (wa.OpenDatabase2(path,,1) = True) Then
...


Oleksandr писал(а):
Кстати, а у вас работает такой код под Windows 7?:
Код:
Dim path, wa
path = "D:\Accent.udl"
Set wa = CreateObject("Accent74s.Workarea")
MsgBox "Акцент открыт"
If (wa.OpenDatabase2(path,"uid="+InputBox("Введите логин")+";pwd="+InputBox("Введите пароль") ,1) = True) Then
   MsgBox "Ok!"
End If
wa.Application.Quit
Да, работает.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail AIM Address MSN Messenger
Юров Ю.С.



Зарегистрирован: 11.03.2005
Сообщения: 383
Откуда: Павлоград

СообщениеДобавлено: Пт Ноя 30, 2012 7:31 am    Заголовок сообщения: Ответить с цитатой

Oleksandr писал(а):
Хочу чтоб работало так как в XP Smile Спрашивало логин-пароль если они не отправлены в параметре

Когда поставили Акцент на эту WIN-7, он сразу запустился
или что-то делали с ярлыком, типа там "запуск в совместимом режиме", "запуск от имени администратора"?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Oleksandr
Гость





СообщениеДобавлено: Пт Ноя 30, 2012 11:00 am    Заголовок сообщения: Re: WorkArea.OpenDatabase2 не запрашивает логин-пароль (Win7 Ответить с цитатой

nikman писал(а):

Вот так попробуйте:
Код:
...
If (wa.OpenDatabase2(path,,1) = True) Then
...


да, так работает, хотя окно Акцента всплывает под другими окнами, потом еще на него переключаться нужно. И еще Акцент нужно невидимым делать после ввода пароля.
В общем для Win 7 лучший вариант будет:
Код:
If wa.OpenDatabase2(path,"uid="+InputBox("Введите логин")+";pwd="+InputBox("Введите пароль"), 0) Then

Smile
Спасибо всем ответившим
Вернуться к началу
Юров Ю.С.



Зарегистрирован: 11.03.2005
Сообщения: 383
Откуда: Павлоград

СообщениеДобавлено: Пн Дек 03, 2012 12:16 pm    Заголовок сообщения: Re: WorkArea.OpenDatabase2 не запрашивает логин-пароль (Win7 Ответить с цитатой

Oleksandr писал(а):
В общем для Win 7 лучший вариант будет:
Код:
If wa.OpenDatabase2(path,"uid="+InputBox("Введите логин")+";pwd="+InputBox("Введите пароль"), 0) Then

Smile
Спасибо всем ответившим

И вам спасибо за интересный вопрос.
Сегодня сам столкнулся. Под win-7 (SQLEXPRESS-2012) редактор UDL-файлов как-то странно работает, норовит поставить птичку "пустой пароль" итд. Акцент запустился, токлько когда убрал Notepad-ом из строки соединения в udl всё лишнее кроме "Provider=SQLNCLI10.1;Initial Catalog=NPP;Data Source=192.168.0.163"
Ну и конечно же да, от "the other program is busy" не забывать app.Quit, если по OpenDataBase2 Акцент в фоновом режиме загрузил модуль рабочей области.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Oleksandr
Гость





СообщениеДобавлено: Пн Дек 03, 2012 2:33 pm    Заголовок сообщения: Re: WorkArea.OpenDatabase2 не запрашивает логин-пароль (Win7 Ответить с цитатой

Юров Ю.С. писал(а):

Сегодня сам столкнулся. Под win-7 (SQLEXPRESS-2012) редактор UDL-файлов как-то странно работает, норовит поставить птичку "пустой пароль" итд. Акцент запустился, токлько когда убрал Notepad-ом из строки соединения в udl всё лишнее кроме "Provider=SQLNCLI10.1;Initial Catalog=NPP;Data Source=192.168.0.163"

У меня тоже помню были проблемы с SQL SERVER NATIVE CLIENT 10. То процедура в 10 раз дольше выполняется то еще что-то. Я решил, что в UDL лучше указывать OLE DB Provider и не получать никаких сюрпризов.
Вернуться к началу
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Пн Дек 03, 2012 3:09 pm    Заголовок сообщения: Re: WorkArea.OpenDatabase2 не запрашивает логин-пароль (Win7 Ответить с цитатой

Юров Ю.С. писал(а):

Сегодня сам столкнулся. Под win-7 (SQLEXPRESS-2012) редактор UDL-файлов как-то странно работает, норовит поставить птичку "пустой пароль" итд. Акцент запустился, токлько когда убрал Notepad-ом из строки соединения в udl всё лишнее кроме "Provider=SQLNCLI10.1;Initial Catalog=NPP;Data Source=192.168.0.163"

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

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


Powered by phpBB © 2001, 2005 phpBB Group