Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 18.06.2017
Сообщений: 9

Поиск по разным таблицам

18.06.2017, 21:02. Показов 2554. Ответов 37

Студворк — интернет-сервис помощи студентам
Здравствуйте! Написал программу для работы с БД, но нужно сделать так чтобы поиск осуществлялся не по одной таблице, а по нескольким. Выбрать таблицу в моей программе можно с помощью ComboBox1
Сейчас в моей программе есть такой код для поиска, но как я и говорил только по одной таблице
Delphi
1
2
3
4
5
6
7
procedure TForm2.Edit1Change(Sender: TObject);
begin
ADOTable1.Filtered:=false;
ADOTable1.Filter:='Блюда LIKE '+#39+Edit1.Text+'%'+#39;
if length(edit1.text)>0 then ADOTable1.Filtered:=true;
if Form2.ADOTable1.RecordCount <>0 then Form2.StatusBar1.SimpleText :='Записей: '+IntToStr(Form2.ADOTable1.RecordCount) else Form2.StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
end;
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.06.2017, 21:02
Ответы с готовыми решениями:

Запрос для подсчета суммы по разным таблицам IBQuery
Нужна помощь с sql запросом. У меня есть 4 таблицы: Медикаменты (medications), Привоз(coming), Продажа(outgo) и Списание(write_off) и мне...

Поиск по таблицам
Итак Задание 2 таблицы, в 1 ФИО студента, во 2 его предметы и оценки. нужно осуществить поиск по таблице, переход к студенту по...

Поиск по нескольким таблицам
Здравствуйте. Нужно на SQL сделать следующее: Таблица x: Ключевое поле Код| Имя, Фамилия, Отчество, Телефон, E-Mail, и так далее... ...

37
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,657
Записей в блоге: 21
18.06.2017, 21:05
для выбора данных из БД существуют запросы SQL
воспользуйтесь ими
0
0 / 0 / 0
Регистрация: 18.06.2017
Сообщений: 9
18.06.2017, 21:05  [ТС]
Пытался сделать так, но не выходит
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm2.Edit1Change(Sender: TObject);
begin
if (ComboBox1.Text='Меню')
then
ADOTable1.Filtered:=false;
ADOTable1.Filter:='Блюда LIKE '+#39+Edit1.Text+'%'+#39;
if length(edit1.text)>0 then ADOTable1.Filtered:=true;
if Form2.ADOTable1.RecordCount <>0 then Form2.StatusBar1.SimpleText :='Записей: '+IntToStr(Form2.ADOTable1.RecordCount) else Form2.StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
if (ComboBox1.Text='Блюда')
then
ADOTable1.Filtered:=false;
ADOTable1.Filter:='Наименование LIKE '+#39+Edit1.Text+'%'+#39;
if length(edit1.text)>0 then ADOTable1.Filtered:=true;
if Form2.ADOTable1.RecordCount <>0 then Form2.StatusBar1.SimpleText :='Записей: '+IntToStr(Form2.ADOTable1.RecordCount) else Form2.StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
end;
0
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,657
Записей в блоге: 21
18.06.2017, 21:14
и где тут SQL ?
http://devdelphi.ru/?p=16
0
0 / 0 / 0
Регистрация: 18.06.2017
Сообщений: 9
19.06.2017, 18:35  [ТС]
Спасибо за ссылку, но почему нельзя с помощью условия реализовать поиск через ADOTable? Просто я со SQL не очень дружу и прошу простить если вопросы глупые т.к. я новичок и только практикуюсь в этом)
0
5961 / 4537 / 1094
Регистрация: 29.08.2013
Сообщений: 28,145
Записей в блоге: 3
19.06.2017, 19:35
запросами быстрее - они тянут из базы только то что ты выбрал в условии, а Table отображает всю таблицу

например у тебя в таблице 100000 строк.
пользователю столько не надо - он не просмотрит это никогда
тянуть все это в память - долго
обрабатывать - долго

а SQL запрос позволяет нам сразу выдать только то что нужно

Цитата Сообщение от Smeshochek Посмотреть сообщение
Просто я со SQL не очень дружу
всего 4 инструкции - SELECT - выбрать, INSERT - вставить, UPDATE - обновить, DELETE - удалить
0
Айлурофил
 Аватар для Massaraksh7
511 / 445 / 111
Регистрация: 27.05.2017
Сообщений: 2,667
Записей в блоге: 5
19.06.2017, 19:51
Цитата Сообщение от qwertehok Посмотреть сообщение
а Table отображает всю таблицу
Не совсем так. Table читает из БД только те записи, которые ему нужны для отображения.
0
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,657
Записей в блоге: 21
19.06.2017, 20:35
и как это TAble делает интересно?
0
Айлурофил
 Аватар для Massaraksh7
511 / 445 / 111
Регистрация: 27.05.2017
Сообщений: 2,667
Записей в блоге: 5
19.06.2017, 20:46
Через операцию fetch, или другой аналог, в каждой БД по-своему. Иными словами, через курсоры.
0
5961 / 4537 / 1094
Регистрация: 29.08.2013
Сообщений: 28,145
Записей в блоге: 3
19.06.2017, 21:34
Цитата Сообщение от Massaraksh7 Посмотреть сообщение
Table читает из БД только те записи, которые ему нужны для отображения.
если есть D7 - посмотри чему равно это значение

Цитата Сообщение от Massaraksh7 Посмотреть сообщение
Иными словами, через курсоры.
какие курсоры?
0
Айлурофил
 Аватар для Massaraksh7
511 / 445 / 111
Регистрация: 27.05.2017
Сообщений: 2,667
Записей в блоге: 5
19.06.2017, 21:40
https://ru.wikipedia.org/wiki/... 1%8B%D1%85)
...
Какое значение?
0
5961 / 4537 / 1094
Регистрация: 29.08.2013
Сообщений: 28,145
Записей в блоге: 3
19.06.2017, 22:08
я знаю что такое курсор, но как же Paradox и аксесс?

Цитата Сообщение от Massaraksh7 Посмотреть сообщение
Какое значение?
Fetch
0
Айлурофил
 Аватар для Massaraksh7
511 / 445 / 111
Регистрация: 27.05.2017
Сообщений: 2,667
Записей в блоге: 5
19.06.2017, 22:23
Цитата Сообщение от qwertehok Посмотреть сообщение
я знаю что такое курсор, но как же Paradox и аксесс?
Я с ними не работал, не знаю. Но в Interbase, MsSql, Oracle, MySql таблицы работают через курсоры.
Цитата Сообщение от qwertehok Посмотреть сообщение
Fetch
А как я посмотрю fetch? Если имеете в виду recordcount, то это значение не говорит о том, сколько считано записей из БД.

Добавлено через 8 минут
По быстрому глянул в интернете - по крайней мере, в Paradoxе курсоры есть.
0
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,657
Записей в блоге: 21
20.06.2017, 06:40
recordCount как раз и есть количество сфетченных записей
скажу больше. других способов общаться с SQL-сервером, кроме как передавать ему SQL-звпросы, нет
так что Table тоже формирует запрос. Только пользователь к нему никакого отношения не имеет
Фильтр накладывается на записи, уже затянутые на клиента. Уже 100500 раз говорилось что Table это очень нишевый продукт для маааленьких однопользовательских баз. Как только у вас больше одного подключения, это верный путь в ад.
0
Айлурофил
 Аватар для Massaraksh7
511 / 445 / 111
Регистрация: 27.05.2017
Сообщений: 2,667
Записей в блоге: 5
20.06.2017, 07:35
Я не люблю спорить, и больше не буду, хотя с базами работаю больше 20 лет. Просто предложу поставить эксперимент:
Создать таблицу на 1000000 (10000000, 100000000) записей, подключить к ней TTable, Tdatasource и TDBGrid. Затем открыть и засечь время. А далее переместить указатель в конец и снова засечь время. А потом поудивляться.
0
5961 / 4537 / 1094
Регистрация: 29.08.2013
Сообщений: 28,145
Записей в блоге: 3
20.06.2017, 10:01
Цитата Сообщение от Massaraksh7 Посмотреть сообщение
хотя с базами работаю больше 20 лет
авторитетно, да

Цитата Сообщение от Massaraksh7 Посмотреть сообщение
Создать таблицу на
зачем?
0
Айлурофил
 Аватар для Massaraksh7
511 / 445 / 111
Регистрация: 27.05.2017
Сообщений: 2,667
Записей в блоге: 5
20.06.2017, 10:29
Цитата Сообщение от qwertehok Посмотреть сообщение
зачем?
Надо разжевать? Хорошо.
Если Table грузит сразу всю таблицу в память, первый временной интервал получится большим, а второй маленьким. На деле же всё ровно наоборот. Впрочем, если кто-то хочет жить по принципу "тем хуже для фактов", ни в коей мере не собираюсь переубеждать.
0
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,657
Записей в блоге: 21
20.06.2017, 10:33
никто не уверяет что table фетчит разом все записи
речь о том, что table выбирает из таблицы все записи
0
Айлурофил
 Аватар для Massaraksh7
511 / 445 / 111
Регистрация: 27.05.2017
Сообщений: 2,667
Записей в блоге: 5
20.06.2017, 10:44
В чем разница между "выбирает" и "фетчит" ?
0
 Аватар для krapotkin
6847 / 4674 / 1463
Регистрация: 14.04.2014
Сообщений: 20,657
Записей в блоге: 21
20.06.2017, 10:58
SQL
1
SELECT * FROM MillionRecords
SQL
1
SELECT * FROM MillionRecords WHERE id=5
первый запрос выбирает все записи
но клиент забирает (fetch) столько, сколько там в буфере указано забрать. вроде 1000 или 10000. не помню. могу наврать.
если листать вниз, то будет еще добирать порциями.

второй запрос выбрал одну и сфетчит тоже одну

Соответственно RecordCount по документации отображает количество уже переданных на клиента записей
а не
SQL
1
SELECT COUNT(*)  FROM TABLE WHERE ...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.06.2017, 10:58
Помогаю со студенческими работами здесь

Поиск по нескольким таблицам в БД
Добрый день! В базе данных присутствуют 7 таблиц. Организованно внесение данных, редактирование, поиск, и т.п. Работает это через...

Поиск по разным полям.
Приветствую. Подскажите такой вопрос. Есть база. В таблице 8 полей. По нажатию на кнопку открывается новая форма с 8-ю edit'ами. В них...

Поиск по двум таблицам с одинаковыми полями через ADOQuery
На данный момент есть база данных Access, в ней - две таблицы (Table1, Table2), в каждой из них есть одинаковые поля - &quot;IMEI&quot; и...

Суммирование по разным таблицам
У меня в базе данных на Access существует несколько таблиц. Нужно подсчитать суммы значений определенного столбца в каждой таблице, а также...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru