Выполнить запрос к БД при нажатии на элемент в 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();
    }
 
    }
//-----

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

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений 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 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

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