Поиск информации в DBGrid через DBLookupComboBox

@ul_mralex · Регистрация: 02.04.2013

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

Есть форма, на ней элементы
ADOQuery, ADOConnection, DataSource
Все они подключены и выводят всю информацию в таблицу DBGrid
Из существующей таблице есть sql запрос, информация такая:
Машина, Дата, км1, км2, км3, км4, км0, километраж_итог,
150 1.04.2013 20 0 0 0 0 20
150 2.04.2013 45 25 0 0 0 70
151 1.04.2013 20 0 0 0 0 20
151 2.04.2013 20 0 0 0 0 20

На форму поставил DBLookupComboBox Подключил к элементам ADOQuery, DataSource через ListSourse и Key
Field
Нужно что бы при выборе в элементе DBLookupComboBox допустим машина 150 в грид выводилась информация о ней по нажатию на кнопку.

В ADOQuery получается одинаковые запросы:
SELECT t_ps.number, t_ps.data, t_ps.p_km_1, t_ps.p_km_2, t_ps.p_km_3, t_ps.p_km_4, t_ps.p_km_0, t_ps.it_p_km
FROM t_ps;

Процедура по нажатию на кнопку такая:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm6.Button1Click(Sender: TObject);
begin
 try
          ADOQuery1.Active:=false;
          ADOQuery1.FieldByName('number').AsString:=DBLookUpComboBox1.Text;
          ADOQuery1.Active:=true;
     except
        on error: EDatabaseError do begin
           MessageDlg('месседж'+
           error.Message ,mtError,[mbOK],0);
        end;
     end;
end;

Подскажите, что нужно изменить, добавить, что бы ошибку исключить по нажатию на кнопку? ругается на строку без наименования ошибки

Delphi
1
ADOQuery1.FieldByName('number').AsString:=DBLookUpComboBox1.Text;

При изменении ADOQuery1 на 2 такая же ошибка. Не пойму никак.
ЗЫж Сильно не пинайте

@ILNAR_93 · 04.04.2013, 13:27

procedure TForm6.Button1Click(Sender: TObject);
begin
try
ADOQuery1.Active:=false;
ADOQuery1.FieldByName('number').AsString :=DBLookUpComboBox1.Text; // добавляешь
ADOQuery1.Active:=true;
except
on error: EDatabaseError do begin
MessageDlg('месседж'+
error.Message ,mtError,[mbOK],0);
end;
end;
end;

выделенные строки там 250% не нужны там.. и чего ты хочешь добится по нажатию этой кнопки ? поиска или добавления? - ты добавляешь !

Добавлено через 1 минуту
кури sql запрос лучше! в ADOQuery sql наверное лучше будет

@ul_mralex · 04.04.2013, 13:27 **[ТС]**

АА, а как сделать так что бы искал, подскажи пожалуйста...

@ILNAR_93 · 04.04.2013, 13:35

ну чтото типо этого можно попробывать:

Delphi
1
2
3
4
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('SELECT * FROM имятаблицы WHERE number = :FindValue');
ADOQuery1.Parameters.ParamByName('FindValue').Value:=DBLookUpComboBox1.Text;
ADOQuery1.Open;

@ul_mralex · 04.04.2013, 14:03 **[ТС]**

Да всё прекрасно получилось!
А для поиска необходимой даты как будет выглядеть процедура?

Delphi
1
2
3
4
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('Select * FROM t_ps WHERE data = FindValue');
ADOQuery1.Parameters.ParamByName('FindValue').Value:=DateTimePicker1.Date;
ADOQuery1.Open;

@ILNAR_93 · 04.04.2013, 14:05

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

Да всё прекрасно получилось!
А для поиска необходимой даты как будет выглядеть процедура?

Delphi
1
2
3
4
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('Select * FROM t_ps WHERE data = FindValue');
ADOQuery1.Parameters.ParamByName('FindValue').Value:=DateTimePicker1.Date;
ADOQuery1.Open;

В принципе должно быть так

попробуй

@ul_mralex · 04.04.2013, 14:29 **[ТС]**

Нет, не получается, выкидывает сразу с ошибкой: "несоответствие типов данных в выражении условия".
В базе на ячейке 'data' стоит тип дата/время, короткий формат времени.
Делаю естественно через компоненту DateTimePicker1.Date в свойствах DataFormat указано dfShort

@ILNAR_93 · 04.04.2013, 14:34

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

ADOQuery1.Parameters.ParamByName('FindVa lue').Value:=DateTimePicker1.Date;

сейчас не могу проверить код, попробуй вот так может и получится

)

Delphi
1
2
3
4
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('Select * FROM t_ps WHERE data = FindValue');
ADOQuery1.Parameters.ParamByName('FindValue').AsDateTime:=DateTimePicker1.Date;
ADOQuery1.Open;

Добавлено через 1 минуту
или так

Delphi
1
2
3
4
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('Select * FROM t_ps WHERE data = FindValue');
ADOQuery1.Parameters.ParamByName('FindValue').Value:=DateTimeToStr(DateTimePicker1.Date);
ADOQuery1.Open;

@ul_mralex · 04.04.2013, 16:59 **[ТС]**

Надо что то новое придумать

) Путая таблица после нажатие на кнопку.

Добавлено через 1 час 1 минуту
И еще, как сделать правильно процедуру и запрос.
Нужно вывести например информацию по машине 150 за период с 1.04.2013 по 2.04.2013.
Так будет выглядеть запрос если делать в access

SQL
1
2
3
SELECT t_ps.number, t_ps.data, t_ps.it_p_km 
FROM t_ps
WHERE (((t_ps.number)=[Введите машину]) AND ((t_ps.data) BETWEEN [Введите начальную дату] AND [Введите конечную дату]));

С 1м пунктом понятно:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm6.Button1Click(Sender: TObject);
begin
 try
            ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('SELECT * FROM t_ps WHERE number = :FindValue');
ADOQuery1.Parameters.ParamByName('FindValue').Value:=DBLookUpComboBox1.Text;
ADOQuery1.Open;
          except
        on error: EDatabaseError do begin
           MessageDlg('месседж:'+
           error.Message ,mtError,[mbOK],0);
        end;
     end;
       end;

Как это прописать все правильно, что бы задавать период дат через DateTimePicker1.Date

Добавлено через 48 минут
я что то недопонимаю...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm6.Button3Click(Sender: TObject);
begin
 try
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('SELECT * FROM t_ps WHERE data BETWEEN :first_date AND :last_date');
ADOQuery1.Parameters.ParamByName('first_date').Value:= DateTimePicker1.Date;
ADOQuery1.Parameters.ParamByName('last_date').Value:= DateTimePicker2.Date;
 
          except
        on error: EDatabaseError do begin
           MessageDlg('111'+
           error.Message ,mtError,[mbOK],0);
        end;
end;    end;

После нажатия на кнопку DBgrid очищается

@ILNAR_93 · 04.04.2013, 17:38

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

я что то недопонимаю... Код Delphi1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm6.Button3Click(Sender: TObject);
begin
*try
ADOQuery1.Sql.Clear;
ADOQuery1.Sql.Add('SELECT * FROM t_ps WHERE data BETWEEN :first_date AND :last_date');
ADOQuery1.Parameters.ParamByName('first_ date').Value:= DateTimePicker1.Date;
ADOQuery1.Parameters.ParamByName('last_d ate').Value:= DateTimePicker2.Date;
except
* * * * on error: EDatabaseError do begin
* * * * * *MessageDlg('111'+
* * * * * *error.Message ,mtError,[mbOK],0);
* * * * end;
end; * *end;После нажатия на кнопку DBgrid очищается

это потому что ты делаешь новый запрос к бд.

@ul_mralex · 04.04.2013, 18:08 **[ТС]**

А иначе?

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@ILNAR_93 Android 245 / 242 / 52 Регистрация: 19.01.2013 Сообщений: 1,896 Записей в блоге: 3
	04.04.2013, 13:27
	procedure TForm6.Button1Click(Sender: TObject); begin try ADOQuery1.Active:=false; ADOQuery1.FieldByName('number').AsString :=DBLookUpComboBox1.Text; // добавляешь ADOQuery1.Active:=true; except on error: EDatabaseError do begin MessageDlg('месседж'+ error.Message ,mtError,[mbOK],0); end; end; end; выделенные строки там 250% не нужны там.. и чего ты хочешь добится по нажатию этой кнопки ? поиска или добавления? - ты добавляешь ! Добавлено через 1 минуту кури sql запрос лучше! в ADOQuery sql наверное лучше будет 0

@ul_mralex 3 / 3 / 1 Регистрация: 02.04.2013 Сообщений: 115
	04.04.2013, 13:27 [ТС]
	АА, а как сделать так что бы искал, подскажи пожалуйста... 0

@ul_mralex 3 / 3 / 1 Регистрация: 02.04.2013 Сообщений: 115
	04.04.2013, 14:29 [ТС]
	Нет, не получается, выкидывает сразу с ошибкой: "несоответствие типов данных в выражении условия". В базе на ячейке 'data' стоит тип дата/время, короткий формат времени. Делаю естественно через компоненту DateTimePicker1.Date в свойствах DataFormat указано dfShort 0

@ul_mralex 3 / 3 / 1 Регистрация: 02.04.2013 Сообщений: 115
	04.04.2013, 18:08 [ТС]
	А иначе? 0