Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.08.2010, 22:59   #1
Sunlit
 
Регистрация: 16.08.2010
Сообщений: 3
Вопрос Вопрос про Аксес

Облазил страниц 15-20 по гуглу так и не нашел ответа (((
Есть БД Access (ADOQuery) в нет таблица:

Имя Пароль

В ComboBox выводится Имя из БД
В MaskEdit пользователь вводит пароль

Как его сверить с паролем в базе?
Sunlit вне форума Ответить с цитированием
Старый 28.08.2010, 23:03   #2
DIgorevich
Погулять вышел
Участник клуба
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Сообщений: 1,573
По умолчанию

Если используешь ADO:
Код:
try
Form1.ADOConnection1.Connected:=false;
form1.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="MaskEdit.text"; User ID=Admin;Data Source=ИМЯ БАЗЫ; Mode=Share Deny None; Extended Properties=""; Persist Security Info=True;';
Form1.ADOConnection1.Connected:=true;
except
Showmessage('Неверный пароль');
end;
Никогда не знаешь, где тебе повезет... (Фрай)
DIgorevich вне форума Ответить с цитированием
Старый 29.08.2010, 09:37   #3
Sunlit
 
Регистрация: 16.08.2010
Сообщений: 3
По умолчанию

Извините, немного перефразирую вопрос

Есть БД Access (ADOQuery) в ней таблица (base.mdb):
Id Имя Пароль
________________
1 Иванов 123
2 Петров 234
3 Сидоров 456

В форме:
В ComboBox выводится Имя из поля "Имя" в таблице
В MaskEdit пользователь вводит пароль

Как пароль сверить с паролем в таблице? Т.е я делаю примерно следующий запрос:

qry1.SQL.Clear;
qry1.SQL.Add('SELECT Пароль FROM Люди');
qry1.SQL.Add('WHERE Имя like ''%'+MaskEdit.Text+'%''');
qry1.Open;

А дальше как мне скажем присвоить переменной S: String, значение этого поля "Пароль"
Т.е. чтобы потом сделать
If s=MaskEdit.text then...

Последний раз редактировалось Sunlit; 29.08.2010 в 09:42.
Sunlit вне форума Ответить с цитированием
Старый 29.08.2010, 10:33   #4
Cannibal
Форумчанин
 
Регистрация: 17.02.2008
Сообщений: 191
По умолчанию

Код:
qry1.SQL.Clear;
qry1.SQL.Add('SELECT Пароль FROM Люди');
qry1.SQL.Add('WHERE Имя like ''%'+MaskEdit.Text+'%''');
qry1.Open;
s:=qry1.FieldByName('Пароль').AsString;
if ...
Mathematicians often mix up Christmas and Halloween, because Dec.25=Oct.31.
Cannibal вне форума Ответить с цитированием
Старый 29.08.2010, 14:13   #5
Sunlit
 
Регистрация: 16.08.2010
Сообщений: 3
По умолчанию

Спасибо! Но вопросов будет ещё миллион...Так что не "гоните меня в шею"
Sunlit вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопрос про Свойство Visible и про иконки в imagelist Kappi4 Компоненты Delphi 2 21.05.2010 13:10
Запись в БД Аксес Demien БД в Delphi 3 02.11.2009 12:30
ДЕЛФИ+АКСЕС doni БД в Delphi 2 24.03.2009 14:04
Вопрос наверное про функции, а так точно даже не знаю про что. (Вопрос начинющего #6) Albert2008 Общие вопросы Delphi 4 21.08.2008 15:33
У меня вопрос про базы данных,а точнее про таблицы!!! Alexij Общие вопросы Delphi 1 13.04.2008 23:24