Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Присылайте нам Донат :), напишите за что прислали )


Ответ
 
Опции темы
Старый 02.12.2012, 22:18   #1
Awesome96
Пользователь
 
Регистрация: 31.05.2012
Сообщений: 10
Репутация: 7
По умолчанию Поиск данных по таблице в базе данных

Доброго времени суток уважаемые форумчане, нужна ваша помощь. Я взаимодействую с базой данных Access с помощью компонентов ADOQuery, ADOConnection и DataSource. В базе данных есть 2 таблицы: Таблица1 (состоит из 3-ех столбцов: в первом хранятся id, во втором логины, а в третьем пароли) и Таблица2. Есть 3 переменные Login, Pass и ID. Нужно чтобы при нажатии на кнопку программа проверила столбцы с логинами и паролями Таблицы1 из базы данных на равенство значениям переменных Login и Pass и если в бд найдется строка со значением логина и пароля равным значениям переменным Login и Pass, то его ID (первый столбец) занесся в переменную id.
Awesome96 вне форума   Ответить с цитированием
Старый 03.12.2012, 09:53   #2
Sciv
Профессионал
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Адрес: Курган
Сообщений: 3,210
Репутация: 1231
По умолчанию

SQL-запрос (ADOQuery1):

Код:

SELECT ID FROM [Таблица1] WHERE LOGIN=:l AND PASS=:p

и далее:

Код:

id:=ADOQuery1.FieldByName('ID').Value;


Или так:

Код:

Table1.First;
While not table1.eof do begin
  if (Table1.FieldByName('LOGIN').AsString=...) and (Table1.FieldByName('PASS').AsString=...) then begin
    id:=Table1.FieldByName('ID').Value;
    break;
  end;
  Table1.Next;
end;

Или через функцию locate
__________________
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск по базе данных royun БД в Delphi 10 21.12.2011 12:35
Поиск в базе данных Egik_net БД в Delphi 3 17.02.2010 22:47
Поиск в базе данных St-Dyx Microsoft Office Excel 8 19.10.2008 12:13
Поиск по базе данных ERASERROR БД в Delphi 4 14.03.2008 17:34


01:12.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru