Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

Вернуться   Форум программистов > 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,219
Репутация: 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:56.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


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