Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
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 имеет решение, загляните в отладчике в свойства соединения. Когда-то делал переключатель баз данных, который не спрашивал при переходе из одной базы в другую пароль, если он одинаков. |
|
Вернуться к началу |
|
|
nikman
Зарегистрирован: 10.03.2005 Сообщения: 786 Откуда: Украина, Донецк
|
Добавлено: Чт Ноя 29, 2012 7:18 pm Заголовок сообщения: |
|
|
Попробуйте запустить Акцент от имени администратора. |
|
Вернуться к началу |
|
|
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 Спрашивало логин-пароль если они не отправлены в параметре
Юров Ю.С. писал(а): |
Когда-то делал переключатель баз данных, который не спрашивал при переходе из одной базы в другую пароль, если он одинаков. |
Пока что нужен ввод логина-пароля
Последний раз редактировалось: 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 |
| Да, работает. |
|
Вернуться к началу |
|
|
Юров Ю.С.
Зарегистрирован: 11.03.2005 Сообщения: 383 Откуда: Павлоград
|
Добавлено: Пт Ноя 30, 2012 7:31 am Заголовок сообщения: |
|
|
Oleksandr писал(а): | Хочу чтоб работало так как в XP Спрашивало логин-пароль если они не отправлены в параметре |
Когда поставили Акцент на эту WIN-7, он сразу запустился
или что-то делали с ярлыком, типа там "запуск в совместимом режиме", "запуск от имени администратора"? |
|
Вернуться к началу |
|
|
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 |
Спасибо всем ответившим |
|
Вернуться к началу |
|
|
Юров Ю.С.
Зарегистрирован: 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 |
Спасибо всем ответившим |
И вам спасибо за интересный вопрос.
Сегодня сам столкнулся. Под 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 Акцент в фоновом режиме загрузил модуль рабочей области. |
|
Вернуться к началу |
|
|
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" |
Да, редактор сбоит |
|
Вернуться к началу |
|
|
|