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

@Smeshochek · Регистрация: 18.06.2017

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

Здравствуйте! Написал программу для работы с БД, но нужно сделать так чтобы поиск осуществлялся не по одной таблице, а по нескольким. Выбрать таблицу в моей программе можно с помощью 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;

@Massaraksh7 · 20.06.2017, 11:25

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

SQL
1
SELECT * FROM MillionRecords

Соответственно RecordCount по документации отображает количество уже переданных на клиента записей
а не

SQL
1
SELECT COUNT(*)  FROM TABLE WHERE ...

А Вы проверьте не по документации, а по факту. Я вот только что проверил.

@qwertehok · 20.06.2017, 11:29

значит у вас стоит FetchAll
не все пользователи знают об этом и их цикл по RecordCount будет неправильный

Добавлено через 30 секунд

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

А Вы проверьте не по документации, а по факту

очень смешно

@Massaraksh7 · 20.06.2017, 11:35

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

значит у вас стоит FetchAll

Миллион записей за 100мс? FetchAll? Вот это действительно смешно.

@qwertehok · 20.06.2017, 11:45

а как вы время засекаете?

@krapotkin · 20.06.2017, 11:47

просто никто не должен использовать Table если несколько пользователей. вот и все
поэтому никто и не смотрел что там в кишках
вы там над ADOTable эксперименты ставили?
у меня нет сейчас возможности проверить.

@Massaraksh7 · 20.06.2017, 12:03

а как вы время засекаете?

Обычно.

Delphi
1
2
3
t=Now;
...
t=Now-t;

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

просто никто не должен использовать Table если несколько пользователей. вот и все
поэтому никто и не смотрел что там в кишках

Так с Query то же самое.

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

вы там над ADOTable эксперименты ставили?

TSQLTable, но это неважно

@Smeshochek · 20.06.2017, 19:46 **[ТС]**

Всем привет и большое спасибо за ответы и как я понял мне просто надо ADOTable1 поменять на ADOQuery1 и поиск заработает через условия? Я вообще не могу понять почему даже использовав ADOTable1 не работает поиск по разным таблицам? Может я условия не так конструирую?

@krapotkin · 20.06.2017, 20:08

условия являются составной частью запроса SQL
поэтому если пользоваться Query то вы просто будете строить запрос с заданными условиями и сортировкой
http://www.sql.ru/docs/sql/u_sql/

@Smeshochek · 21.06.2017, 00:01 **[ТС]**

А почему из всех условий выполняется только одно?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm2.Button1Click(Sender: TObject);
begin
if (ComboBox1.Text='№заказа№блюда') then
Adoquery1.Active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('select * from №заказа№блюда');
adoquery1.Active:=True;
if (ComboBox1.Text='Блюда') then
Adoquery1.Active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('select * from Блюда');
adoquery1.Active:=True;
if (ComboBox1.Text='Заказы') then
Adoquery1.Active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('select * from Заказы');
adoquery1.Active:=True;
if (ComboBox1.Text='Меню') then
Adoquery1.Active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('select * from Меню');
adoquery1.Active:=True;
if (ComboBox1.Text='Продукты') then
Adoquery1.Active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('select * from Продукты');
adoquery1.Active:=True;
if (ComboBox1.Text='Служащие') then
Adoquery1.Active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('select * from Служащие');
adoquery1.Active:=True;
if (ComboBox1.Text='Столики') then
Adoquery1.Active:=False;
adoquery1.sql.clear;
adoquery1.sql.add('select * from Столики');
adoquery1.Active:=True;
end;

@Massaraksh7 · 21.06.2017, 00:16

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

А почему из всех условий выполняется только одно?

Потому что query достаточно одного, но ему нужно указывать полноценный sql-запрос. Напишите конкретнее, ЧТО вы хотите получить на выходе и вам помогут составить этот запрос.

Добавлено через 6 минут
UPD: Понял, что вы хотите. begin ... end проставьте внутри условий.

@Smeshochek · 21.06.2017, 00:59 **[ТС]**

Спасибо вам большое за помощь =)

Добавлено через 33 минуты
И ещё один вопрос, а почему если я ввожу в edit1 число, то мне выдаётся сообщение "Не удаётся включить фильтр" - ? Если что, то это таблица "№заказа№блюда"
А вот в таблице "Блюда" всё прекрасно ищется

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm2.Edit1Change(Sender: TObject);
begin
if (ComboBox1.Text='№заказа№блюда')
then
begin
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='№заказа LIKE '+#39+Edit1.Text+'%'+#39;
if length(edit1.text)>0 then ADOQuery1.Filtered:=true;
if Form2.ADOQuery1.RecordCount <>0 then Form2.StatusBar1.SimpleText :='Записей: '+IntToStr(Form2.ADOQuery1.RecordCount) else Form2.StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
end;
 
if (ComboBox1.Text='Блюда')
then
begin
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='Наименование LIKE '+#39+Edit1.Text+'%'+#39;
if length(edit1.text)>0 then ADOQuery1.Filtered:=true;
if Form2.ADOQuery1.RecordCount <>0 then Form2.StatusBar1.SimpleText :='Записей: '+IntToStr(Form2.ADOQuery1.RecordCount) else Form2.StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
end;
end;

@Massaraksh7 · 21.06.2017, 01:16

С ходу не скажу. Вроде бы, никаких проколов нет. Единственно, знак № допустим ли в наименования поля?

@Smeshochek · 21.06.2017, 01:35 **[ТС]**

Убрал этот знак и всё равно ошибка

@Smeshochek · 21.06.2017, 02:13 **[ТС]**

Решил проблему, но теперь при удалении данных из edit1 не показываются все записи в таблице

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm2.Edit1Change(Sender: TObject);
begin
if (ComboBox1.Text='№заказа№блюда')
then
begin
if Length(Edit1.Text) <> 0 then
    begin
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM №заказа№блюда WHERE [№заказа] LIKE' + QuotedStr(Edit1.Text + '%'));
      ADOQuery1.Active := True;
if Form2.ADOQuery1.RecordCount <>0 then Form2.StatusBar1.SimpleText :='Записей: '+IntToStr(Form2.ADOQuery1.RecordCount) else Form2.StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
end;
 
if (ComboBox1.Text='Блюда')
then
begin
ADOQuery1.Filtered:=false;
ADOQuery1.Filter:='Наименование LIKE '+#39+Edit1.Text+'%'+#39;
if length(edit1.text)>0 then ADOQuery1.Filtered:=true;
if Form2.ADOQuery1.RecordCount <>0 then Form2.StatusBar1.SimpleText :='Записей: '+IntToStr(Form2.ADOQuery1.RecordCount) else Form2.StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
end;
end;
end;

@krapotkin · 21.06.2017, 07:00

зачем мешать в кучу Filter и условия в запросе
Where всяко лучше

если вы хотите видеть все записи, то не включайте where в запрос совсем

Delphi
1
2
3
4
5
s:='select field1, field2, field3 from table';
if ( not IWannaSeeAll ) then
  s:=s+' where field5 like '''+edit1.text+'''';
query.sql.text := s;
query.open;

@ZfoxAK · 21.06.2017, 08:34

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

if (ComboBox1.Text='№заказа№блюда')

Этот код лучше заменить на этот

Delphi
1
If ComboBox1.Items[ComboBox1.ItemIndex] = '№заказа№блюда'

Так как не всегда отображаемое в ComboBox1 содержится в свойстве Text. Ранее на этом форуме я выкладывал код и условия при которых это происходит. Так что код

Delphi
1
ComboBox1.Items[ComboBox1.ItemIndex]

выдаст тот элемент, что был выбран.

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

нужно сделать так чтобы поиск осуществлялся не по одной таблице, а по нескольким. Выбрать таблицу в моей программе можно с помощью ComboBox1

ComboBox1 служит для выбора одного значения из многих. Для выполнения поиска в нескольких таблицах нужно использовать компонент в котором предусмотрен выбор нескольких вариантов. В вашем случае может подойти TCheckListBox. Вот здесь пример 19.rar

@ZfoxAK · 21.06.2017, 09:12

Если все нужно осуществлять поиск по одной из выбранной таблице то :

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var s: string;
begin
 s:= 'select * from ' + ComboBox1.Items[ComboBox1.ItemIndex];
 if Length(Edit1.Text)<> 0 then
 case ComboBox1.ItemIndex of
  //№заказа№блюда
  0 : s:= s + ' where №заказа LIKE '+#39+Edit1.Text+'%'+#39;
  //Блюда
  1 : s:= s + ' where Наименование LIKE '+#39+Edit1.Text+'%'+#39;
  //Заказы
 // 2 :  и так далие
  //Меню
 // 3 : далие
  //Продукты
 // 4 : далие
  //Служащие
 // 5 :далие
  //Столики
 // 6 : и тому подобное
 end;
 
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:=S;
 ADOQuery1.Open;
if Form2.ADOQuery1.RecordCount <>0
 then StatusBar1.SimpleText :='Записей: '+IntToStr(ADOQuery1.RecordCount)
 else StatusBar1.SimpleText :='Нет записей удовлетворяющих поиску';
end;

Добавлено через 3 минуты

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

Form2.ADOQuery1.RecordCount

Если компонента находится на активной форме, то в коде указывать не нужно.

Delphi
1
ADOQuery1.RecordCount

@Smeshochek · 21.06.2017, 17:37 **[ТС]**

Спасибо большое за помощь) Действительно так намного удобнее)

Новые блоги и статьи Все статьи Все блоги /
[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;	FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .

@qwertehok 5996 / 4571 / 1096 Регистрация: 29.08.2013 Сообщений: 28,232 Записей в блоге: 3
	20.06.2017, 11:45
	а как вы время засекаете? 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	20.06.2017, 11:47
	просто никто не должен использовать Table если несколько пользователей. вот и все поэтому никто и не смотрел что там в кишках вы там над ADOTable эксперименты ставили? у меня нет сейчас возможности проверить. 0

@Smeshochek 0 / 0 / 0 Регистрация: 18.06.2017 Сообщений: 9
	20.06.2017, 19:46 [ТС]
	Всем привет и большое спасибо за ответы и как я понял мне просто надо ADOTable1 поменять на ADOQuery1 и поиск заработает через условия? Я вообще не могу понять почему даже использовав ADOTable1 не работает поиск по разным таблицам? Может я условия не так конструирую? 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,675 Записей в блоге: 21
	20.06.2017, 20:08
	условия являются составной частью запроса SQL поэтому если пользоваться Query то вы просто будете строить запрос с заданными условиями и сортировкой http://www.sql.ru/docs/sql/u_sql/ 1

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,741 Записей в блоге: 5
	21.06.2017, 01:16
	С ходу не скажу. Вроде бы, никаких проколов нет. Единственно, знак № допустим ли в наименования поля? 0

@Smeshochek 0 / 0 / 0 Регистрация: 18.06.2017 Сообщений: 9
	21.06.2017, 01:35 [ТС]
	Убрал этот знак и всё равно ошибка Миниатюры 0

@Smeshochek 0 / 0 / 0 Регистрация: 18.06.2017 Сообщений: 9
	21.06.2017, 17:37 [ТС]
	Спасибо большое за помощь) Действительно так намного удобнее) 0