![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Привет всем.
Подскажите кто знает как реализовать это: Есть форма авторизации написанная на Delphi7. У меня тот же вопрос как сделать проверку подключения к MS SQL серверу 2000, т.е. правильно ли ввели логин и пароль, если не правильно должно выходить сообщение об ошибке «неверный пароль» или «неверный логин» (подключаться к SQL Server с помощью идентификатора SQL Server) |
#2
|
|||
|
|||
![]() Все разобрался....
( оказалось все намного проще чем думал ) Вот решение моё... Код:
if ComboBox1.ItemIndex=0 then advstr:='User ID=User1;Password=' + pass; if ComboBox1.ItemIndex=1 then advstr:='User ID=User2;Password=' + pass; AdoConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;'+advstr+';Initial Catalog='имя вашей базы';Data Source='имя сервера';Use Procedure for Prepare=1;'; try ADOConnection1.Connected:=true; FormSecurity.Close; except ADOConnection1.Connected:=false; ShowMessage('Пароль введён не верно!'); pass:=''; Edit1.Text:=''; |