ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение к базе на сервере
3 сообщений из 3, страница 1 из 1
Подключение к базе на сервере
    #32132308
sergsm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergsm
Гость
Подключаюсь к базе следующим образом:
"Provider=MSDASQL.1;Password='" + Trim(Text2.Text) + "';Persist Security Info=true;User ID=" + Trim(Text1.Text) + ";Extended Properties='DRIVER=SQL Server;SERVER=SAPRHP;UID=;PWD=;APP=Visual Basic;WSID=SERGE;DATABASE=basa;Network=DBMSSOCN';Initial Catalog=basa"

Если введены UserID и Password которых нет на сервере, то:
1) Выходит окно: Connection Failed:
SQL State '28000'
SQL Server Error: 18456
[Microsoft][ODBC SQL Server Error][SQL Server]
Login Failed for user 'rewfvcr'.
2) Нажимаю кнопку [OK] в окне
3) Выходит окно, в котором из выпадающего списка предлагается выбрать имя сервера, ввести имя и пароль пользователя, ввести дополнительные опции.

Вопрос: как сделать, чтобы при вводе имени и пароля пользователя, которого нет на сервере, вместо этих окон выходило сообщение типа "Вы ввели неправильный пароль"
...
Рейтинг: 0 / 0
03.04.2003, 07:48
| Ответить | Цитировать | Написать  
Подключение к базе на сервере
    #32132533
кузя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кузя
Участник
перед тем как вызывать connection.Open установи
connection.Properties("Prompt") = adPromptNever
и во время открытия лови Error
...
Рейтинг: 0 / 0
03.04.2003, 12:05
| Ответить | Цитировать | Написать  
Подключение к базе на сервере
    #32132728
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
Вот фрагмент работающего кода:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
ErrHandler:
    Dim eCode As Long, eMsg As String
    eCode = Err.Number
    eMsg = Err.Description
    Err.Clear
'-2147217843 (&H80040E4D) Недопустимые логин или пароль:
    If eCode = -2147217843 Then
        CountPass = CountPass + 1
        If CountPass < 5 Then
' вывод сообщения типа  "Внимание! Ошибка!"  прямо в поле Password
        Else
'Дествия в случае превышения попыток ввода пароля
        End If
        Exit Sub
    ElseIf eCode =-2147467259 Then
'- 2147467259  (&H80004005) Не найден сервер:
'вывод сообщения типа "Не удаётся подключиться к серверу" & vbCrLf & _
'                            "для проверки полномочий пользователя!"  & vbCrLf & _
'                            "Повторите попытку позже." 
    End If
DisplayError:
...
Рейтинг: 0 / 0
03.04.2003, 14:01
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение к базе на сервере
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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