Поиск данных по таблице в базе данных

@Awesome96 · Регистрация: 02.12.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток уважаемые форумчане, нужна ваша помощь. Я взаимодействую с базой данных Access с помощью компонентов ADOQuery, ADOConnection и DataSource. В базе данных есть 2 таблицы: Таблица1 (состоит из 3-ех столбцов: в первом хранятся id, во втором логины, а в третьем пароли) и Таблица2. Есть 3 переменные Login, Pass и ID. Нужно чтобы при нажатии на кнопку программа проверила столбцы с логинами и паролями Таблицы1 из базы данных на равенство значениям переменных Login и Pass и если в бд найдется строка со значением логина и пароля равным значениям переменным Login и Pass, то его ID (первый столбец) занесся в переменную id.

WoodHead · 03.12.2012, 06:30

составьте SQL запрос такого вида

SQL
1
2
3
4
UPDATE table1,table2 
SET table1.id=table2.id
WHERE table1.login=table2.login
AND table1.pass=table2.pass

@Awesome96 · 03.12.2012, 08:01 **[ТС]**

WoodHead, спасибо за ответ, но вы меня немного не допоняли. Все нужные данные бд находятся в 1 таблице. Если я пишу такой код:

Delphi
1
2
3
4
5
6
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE table1');
ADOQuery1.SQL.Add('SET ID=table1.код');
ADOQuery1.SQL.Add('WHERE Login=table1.Поле1');
ADOQuery1.SQL.Add('AND Pass=table1.Поле2');
ADOQuery1.Active:=True;

то после его выполнения в DBGrid исчезают все данные, даже если есть совпадение данных бд с переменными.

WoodHead · 03.12.2012, 08:20

Сообщение от Awesome96

WoodHead, спасибо за ответ, но вы меня немного не допоняли. Все нужные данные бд находятся в 1 таблице.

Как вы задали вопрос, так я на него и ответил. Сами сравните:

...Таблица1 (состоит из 3-ех столбцов: в первом хранятся id, во втором логины, а в третьем пароли) и Таблица2. Есть 3 переменные Login, Pass и ID. ... и если в бд найдется строка со значением логина и пароля равным значениям переменным Login и Pass, то его ID (первый столбец) занесся в переменную id.

Единственно, данные заносятся не в переменную, а в поле id.
В DBGrid, разумеется, исчезнут все данные, т.к. там содержатся данные текущего запроса SELECT. Выполните необходимый запрос, и данные в DBGrid опять появятся.

Добавлено через 8 минут
И, кстати, в конце не

Delphi
1
ADOQuery1.Active:=True;

, а

Delphi
1
ADOQuery1.ExecSQL;

Скандербег · 03.12.2012, 09:36

Что это вы, уважаемые, удумали модифицировать данные в таблице вместо того чтобы просто проверить есть ли в таблице БД нужная пара логин-пароль.

Delphi
1
2
3
4
5
6
7
ADOQuery2.SQL.Text := 
        'select id from table1 where (Login = "'+Login+'") and (Pass = "'+Pass+'")';
ADOQuery.Open;
if not ADOQuery2.Eof then begin
  //указанная пара найдена
end;
ADOQuery2.Close;

WoodHead · 03.12.2012, 11:29

Сообщение от Скандербег

Что это вы, уважаемые, удумали модифицировать данные в таблице вместо того чтобы просто проверить есть ли в таблице БД нужная пара логин-пароль.

Потому что ТС это не нужно.

Скандербег · 03.12.2012, 11:56

Это как же "не нужно"? Вот что ТС пишет:

Нужно чтобы при нажатии на кнопку программа проверила столбцы с логинами и паролями Таблицы1 из базы данных на равенство значениям переменных Login и Pass

WoodHead · 03.12.2012, 12:00

Сообщение от Скандербег

Это как же "не нужно"? Вот что ТС пишет:

Так в SQL запросе не зря же введена секция WHERE. Или вам нужно проверку сделать ради самой проверки? Одним запрос проверяем, вторым запросом обновляем? Не кажется ли вам, что лишний раз дергать БД незачем?

Скандербег · 03.12.2012, 12:24

В нашем споре ТС самоустранился, но я понял его вопрос не как обновление данных в базе, а проверка существования пары логин-пароль и при наличии таковой, присвоить переменной id значение из найденной строки, а не записывать значение id в другую таблицу базы.
Собственно, в этом наши отличия в понимании вопроса автора: не записывать найденное значение, а присвоить это значение переменной. И, если так, то ни о каком модифицирующем запросе речи не идет.

Delphi
1
2
3
4
5
6
7
ADOQuery2.SQL.Text := 
        'select id from table1 where (Login = "'+Login+'") and (Pass = "'+Pass+'")';
ADOQuery.Open;
if not ADOQuery2.Eof then begin
  ID := ADOQuery2['ID'] //указанная пара найдена
end;
ADOQuery2.Close;

Если же не так, то правда ваша. Но только ТС может разрешить это недоразумение.

WoodHead · 03.12.2012, 12:47

Сообщение от Скандербег

...но я понял его вопрос не как обновление данных в базе, а проверка существования пары логин-пароль и при наличии таковой, присвоить переменной id значение из найденной строки, а не записывать значение id в другую таблицу базы...

Я почему-то подумал, что ТС описАлся, когда написал, что значение надо присвоить переменной, а не полю. Если он все-таки прав, ну, тогда не прав я, признаю.

@Awesome96 · 03.12.2012, 19:14 **[ТС]**

WoodHead, прав товарищ Скандербег
2Скандербег, пишет: Несоответствие типов данных в выражении условия отбора

Скандербег · 03.12.2012, 19:21

Видимо, поле таблицы БД не текстовое, или переменные не string.
Но это гадание на кофейной гуще - надо видеть где и как объявлены переменные и поля в таблице.

@Awesome96 · 03.12.2012, 19:37 **[ТС]**

Проблема решена. Спасибо товарищу Скандербег за помощь. Решение оказалось следующим:

Delphi
1
2
3
4
5
ADOQuery1.SQL.Text:='select id from Таблица1 where (Login = :Login) and (Pass = :Pass)';
ADOQuery1.Parameters.ParamByName('Login').Value:=Login;
ADOQuery1.Parameters.ParamByName('Pass').Value:=Pass;
ADOQuery1.Open;
if ADOQuery1.RecordCount = 1 then ID:=ADOQuery1.FieldByName('id').AsInteger

Новые блоги и статьи Все статьи Все блоги /
Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .

@Awesome96 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 11

	Поиск данных по таблице в базе данных 02.12.2012, 22:25. Показов 1830. Ответов 12 Метки нет (Все метки) Доброго времени суток уважаемые форумчане, нужна ваша помощь. Я взаимодействую с базой данных Access с помощью компонентов ADOQuery, ADOConnection и DataSource. В базе данных есть 2 таблицы: Таблица1 (состоит из 3-ех столбцов: в первом хранятся id, во втором логины, а в третьем пароли) и Таблица2. Есть 3 переменные Login, Pass и ID. Нужно чтобы при нажатии на кнопку программа проверила столбцы с логинами и паролями Таблицы1 из базы данных на равенство значениям переменных Login и Pass и если в бд найдется строка со значением логина и пароля равным значениям переменным Login и Pass, то его ID (первый столбец) занесся в переменную id. 0

@Awesome96 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 11
	03.12.2012, 19:14 [ТС]
	WoodHead, прав товарищ Скандербег 2Скандербег, пишет: Несоответствие типов данных в выражении условия отбора 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	03.12.2012, 19:21
	Видимо, поле таблицы БД не текстовое, или переменные не string. Но это гадание на кофейной гуще - надо видеть где и как объявлены переменные и поля в таблице. 1