Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вывести диалог ввода пароля? / 5 сообщений из 5, страница 1 из 1
11.07.2006, 09:36
    #33843998
Stok
Stok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вывести диалог ввода пароля?
Нужно на лист Excel скачать данные с MS SQL самым разным пользователям.

Код: plaintext
1.
2.
3.
Dim cnnSRV As New ADODB.Connection
cnnSRV.Provider = "MSDASQL"
cnnSRV.ConnectionString = "DSN=" & Range("F1").Value ' Здесь сидит системный DSN, который вводит сам юзер
cnnSRV.Open

Для пользователей с Windows-идентификацией - все ОК. А для пользователей с идентификацией через SQL вылетает ошибка
Login failed for user '(null)'.
Как в этом случае вывести стандартное окно ввода пароля (это, делает, например, Access при линковке таблиц). Разумеется, для пользователей с Windows-идентификацией такого не надо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2006, 10:13
    #33844069
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вывести диалог ввода пароля?
Выводи нестандартное. И подставляй логин/пароль.
Код: plaintext
cnnSRV.Open , login, pass
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2006, 10:50
    #33844221
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вывести диалог ввода пароля?
Dim cnnSRV As New ADODB.Connection
Dim Pass As String
Dim logIn As String
On Error GoTo er

cnnSRV.Provider = "MSDASQL"
cnnSRV.ConnectionString = "Driver={SQL Server};Server=(local);Database=pubs;" '
logIn = InputBox("Enter login")
Pass = InputBox("Enter passw...")
cnnSRV.Open , logIn, Pass

Exit Sub
er:
MsgBox Err.Description
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2006, 12:36
    #33844646
_bob
_bob
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вывести диалог ввода пароля?
есть API-функция, которая выводит стандартный диалог выбора принтера, или шрифта и ещё целую кучу разных стандартных диалогов, смотря какой параметр ей задашь, в MSDN поищи по dialog boxes, у меня старого MSDN под рукой нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2006, 19:02
    #33846144
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вывести диалог ввода пароля?
_bobесть API-функция, которая выводит стандартный диалог выбора принтера, или шрифта и ещё целую кучу разных стандартных диалогов, смотря какой параметр ей задашь, в MSDN поищи по dialog boxes, у меня старого MSDN под рукой нет
Функция, которая выводит стандартный диалог выбора принтера, или шрифта и ещё целую кучу разных стандартных диалогов - это не та функция! .
Ввода пароля там нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как вывести диалог ввода пароля? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 503ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2165594]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 238ms
total:  503ms
x
x
Закрыть


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