Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение к базе на сервере / 3 сообщений из 3, страница 1 из 1
03.04.2003, 07:48
    #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, 12:05
    #32132533
кузя
кузя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подключение к базе на сервере
перед тем как вызывать connection.Open установи
connection.Properties("Prompt") = adPromptNever
и во время открытия лови Error
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.04.2003, 14:01
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подключение к базе на сервере / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 412ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2171333]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 281ms
total:  412ms
x
x
Закрыть


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