Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.04.2012, 18:01
{ден} {ден} вне форума
Прохожий
 
Регистрация: 01.04.2012
Сообщения: 2
Репутация: 10
По умолчанию Аутентификация SQL Server 2000

Привет всем.
Подскажите кто знает как реализовать это:
Есть форма авторизации написанная на Delphi7.
У меня тот же вопрос как сделать проверку подключения к MS SQL серверу 2000, т.е. правильно ли ввели логин и пароль, если не правильно должно выходить сообщение об ошибке «неверный пароль» или «неверный логин» (подключаться к SQL Server с помощью идентификатора SQL Server)
Ответить с цитированием
  #2  
Старый 03.04.2012, 20:22
{ден} {ден} вне форума
Прохожий
 
Регистрация: 01.04.2012
Сообщения: 2
Репутация: 10
По умолчанию

Все разобрался....
( оказалось все намного проще чем думал )
Вот решение моё...
Код:
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:='';
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:24.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter