Выполнить запрос к БД при нажатии на элемент в ListView и заполнить данными другой ListView

@sg-ua · Регистрация: 17.09.2012

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

Подскажите пожалуйста как сделать в RadStudio, что бы при нажатии на одну строку выполнялся запрос в БД, и результат записывался в чистый ListView?

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TTabbedwithNavigationForm::OnItemClick(TObject *Sender)
{
    char a = 'Пицца';
    while(!ADOQuery1->Eof){
    ADOQuery1->Active= false;
    ADOQuery1->SQL->Text="select name_dish from блюдо where a = :a";
    ADOQuery1->Active = true;
    ListView1->Items->BeginUpdate();
    ListView1->Items->Add()->Text=ADOQuery1->FieldByName("name_dish")->AsString;
    ListView1->Items->EndUpdate();
    }
}

@Sasha · 09.05.2015, 14:56

Сообщение от sg-ua

при нажатии на одну строку

На какую именно строку?

@sg-ua · 09.05.2015, 15:12 **[ТС]**

Подправил код, при нажатии список очищается , но потом выбивает ошибку

неправильно определен объект Parameter. Предоставлено не совместимы или неполные сведения

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TTabbedwithNavigationForm::ListView1Change(TObject *Sender)
{
    char a = 'Пицца';
    ListView1->ClearItems();
    ADOQuery1->Active= false;
    ADOQuery1->SQL->Text="select name_dish from блюдо where a = :a";
    ADOQuery1->Active = true;
    while(!ADOQuery1->Eof){
 
    ListView1->Items->Add()->Text=ADOQuery1->FieldByName("name_dish")->AsString;
    ADOQuery1->Next();
    }
 
    }

на любую строчку

@volvo · 09.05.2015, 15:18

C++
1
2
3
4
ADOQuery1->SQL->Text="select name_dish from блюдо where a = :a";
ADOQuery1->Parameters->ParamByName("a")->Value="Пицца";
ADOQuery1->Active = true;
// ...

@sg-ua · 09.05.2015, 15:31 **[ТС]**

Вот такая ошибка! и еще хотел параллельно спросить, у меня значения "Пицца" будет изменяться, то есть у каждой строчки будет свое значение, которое приписано :

C++
1
ListView1->Items->Text

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

@volvo · 09.05.2015, 15:47

sg-ua, ну так подставь в запрос после WHERE название поля, которое должно сравниваться с твоей "пиццей", откуда я знаю, как у тебя в базе поля называются?

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

Сообщение от sg-ua

что бы, нажимаешь на строчку и оно брало свое значения

На строчку ГДЕ? В каком компоненте?

@sg-ua · 09.05.2015, 19:49 **[ТС]**

Компонент TListView...там я чуть-чуть не верно объяснил, у меня есть две таблицы в БД: ТИП БЛЮДА(ID_ТИП,NAME) и БЛЮДО(ID,NAME, ID_ТИП). Пользователь в программе нажимает кнопку, создается список TListView с таб. ТИП БЛЮДА поле NAME. Пользователь может нажать на любою строчку(Пицца, Десерт), программа должна взять соответствующие значение с поле ID_ТИП, и сделать запрос по "WHERE соответствующие значение с поле ID_ТИП" с таблицы БЛЮДО и занести в список TListView

C++
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
    void __fastcall TTabbedwithNavigationForm::Button1Click(TObject *Sender)
{
    ADOQuery1->Active= false;
    ADOQuery1->SQL->Text="select * from type ";
    ADOQuery1->Active = true;
  while(!ADOQuery1->Eof){
    ListView1->Items->Add()->Text=ADOQuery1->FieldByName("name_type")->AsString;
    ADOQuery1->Next();
    }
    
}
//---------------------------------------------------------------------------
 
 
void __fastcall TTabbedwithNavigationForm::ListView1OnClick(TObject *Sender)
{
 
    ListView1->ClearItems();
    ADOQuery1->Active= false;
    ADOQuery1->SQL->Text="select name_dish from Блюдо where type = :a";
    ADOQuery1->Parameters->ParamByName("a")->Value="1";
    ADOQuery1->Active = true;
    while(!ADOQuery1->Eof){
 
    ListView1->Items->Add()->Text=ADOQuery1->FieldByName("name_dish")->AsString;
    ADOQuery1->Next();
    }
 
    }

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

@volvo · 09.05.2015, 19:58

Для этого достаточно обработать событие OnClick твоего ListView (и посмотреть ListView1->Selected->Caption), у OnChange совсем другой обработчик, там должно быть 3 параметра, а не один...

@sg-ua · 09.05.2015, 20:20 **[ТС]**

Вот эту часть я что-то не понял

там должно быть 3 параметра

Сделал так(как Caption, нет такого параметра)

C++
1
    ShowMessage(ListView1->Selected->Text);

Программа запускается только вылетает такая ошибка?

@volvo · 09.05.2015, 20:22

Сообщение от sg-ua

как Caption, нет такого параметра

Что значит "нет"? Приложение у тебя какое? VCL? Должен быть Caption у TListItem...

@sg-ua · 09.05.2015, 21:03 **[ТС]**

У меня Multi-Device

Добавлено через 6 минут
Ошибка была в тому что я чистил список перед этим..volvo спасибо тебе. но еще попрошу тебя сказать что ты имел ввиду

там должно быть 3 параметра

Добавлено через 29 минут
извините, но можете еще подсказать как заполнить одновременно два поля?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TTabbedwithNavigationForm::ListView1OnClick(TObject *Sender)
{
    ADOQuery1->Active= false;
    ADOQuery1->SQL->Text="select name_dish, structure from Страви, type where type.id_type=Страви.type and type.name_type= :dish";
    ADOQuery1->Parameters->ParamByName("dish")->Value=ListView1->Selected->Text;
    ListView1->ClearItems();
    ADOQuery1->Active = true;
    
while(!ADOQuery1->Eof){
    ListView1->Items->Add()->Text=ADOQuery1->FieldByName("name_dish")->AsString; //?????
    ListView1->Items->Add()->Detail=ADOQuery1->FieldByName("structure")->AsString; //?????
    ADOQuery1->Next();
    }
 
    }
//-----

Проблема в тому что выводит каждый раз пустую строку

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@volvo Супер-модератор 33414 / 21523 / 8237 Регистрация: 22.10.2011 Сообщений: 36,923 Записей в блоге: 12
	09.05.2015, 19:58
	Для этого достаточно обработать событие OnClick твоего ListView (и посмотреть ListView1->Selected->Caption), у OnChange совсем другой обработчик, там должно быть 3 параметра, а не один... 0