Вывод столбца БД в ListBox

@POVT · Регистрация: 10.07.2014

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

Очень нуждаюсь в помощи. Не могу разобраться с проблемой уже часов 15( Вчера пытались разобраться Сохранение данных в таблицу, но дело так ничем и не закончилось( решили создать отдельную тему, может найдутся люди, которые помогут решить проблему)
Вообщем проблема такая: у меня есть таблица Resalt, комбобокс(КБ) 1 и 2. КБ1 и 2 заполняется значениями из таблицы Grumma.name gruppa. С КБ все вопрядке, заполняются нормально. Теперь, когда я выбрала в КБ каку-нибудь группу и нажала на кнопку, в ListBox должны попасть значения из таблицы Resalt столбец Obshie. Значения в ListBox попадают, но криво. Например у меня в КБ : Асу, Повт, ИСТб.... Я выбираю Асу. ТОгда в ListBox ничегго не попадает. Если выберу Повт, то попадают значения списка АСУ. А если ИСТб, то значения списка Повт

вот код заполнения КБ

Delphi

procedure TForm7.FormShow(Sender: TObject);
begin
DataModule3.ADOQuery5.SQL.Clear;
DataModule3.ADOQuery5.SQL.Text:='Se lect Gruppa.Name_gruppa, Gruppa.Id_gruppa from Gruppa';
DataModule3.ADOQuery5.open;
ComboBox2.Items.Clear;
DataModule3.ADOQuery5.First;
while (not DataModule3.ADOQuery5.Eof) do
begin
ComboBox1.Items.Add( DataModule3.ADOQuery5.Fields[0].AsString);
ComboBox2.Items.Add( DataModule3.ADOQuery5.Fields[0].AsString);
DataModule3.ADOQuery5.Next;
end;
end;

а это код вывода в лист грид

Delphi

if (Combobox1.Text <> '') and (Combobox2.Text <> '')then
begin
ListBox1.Clear;
ListBox2.Clear;
 
DataModule3.ADOQuery4.SQL.Clear ;
DataModule3.ADOQuery4.SQL.Text:='Se lect Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox1.ItemI ndex));
DataModule3.ADOQuery4.open;
DataModule3.ADOQuery4.First;
while (not DataModule3.ADOQuery4.Eof) do
begin
ListBox1.Items.Add(DataModule3.ADOQ uery4.Fields[0].AsString);
DataModule3.ADOQuery4.Next;
end;
 
DataModule3.ADOQuery11.SQL.Clear ;
DataModule3.ADOQuery11.SQL.Text:='S elect Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox2.ItemI ndex));
DataModule3.ADOQuery11.open;
while ( not DataModule3.ADOQuery11.Eof) do
begin
ListBox2.Items.Add(DataModule3.ADOQ uery11.Fields[0].AsString);
DataModule3.ADOQuery11.Next;
end;

@andrey_k3 · 17.10.2014, 09:04

Во-первых, раньше Ваш комбобокс содержал (условно) ТРИ величины - индекс итема, сам итем (текст) и объект (числовой код группы). После того, как Вы изменили процедуру заполнения списка комбобокса, а именно

Delphi

1	ComboBox1.Items.Add(DataModule3.ADOQuery5.Fields[0].AsString);

в КБ содержится ДВЕ величины - индекс итема и сам итем (текст). Индексы итема, по счастливой случайности (в предыдущих темах, если не ошибаюсь, упоминались такие коды групп как 3 и 4), совпадают с некоторыми кодами групп (Id_gruppa) - попробуйте заменить коды групп на трехзначные, думаю вообще ни разу не выполнится

Если выберу Повт, то попадают значения списка АСУ. А если ИСТб, то значения списка Повт

вот здесь

Delphi

1	DataModule3.ADOQuery4.SQL.Text:='Select Result.Obshie from Result where Result.Id_gruppa ='+IntToStr(Integer(Combobox1.ItemIndex));

Вы пытаетесь ид группы сравнить с индексом итема, которые начинаются с 0 (сомневаюсь, что код группы АСУ = 0), а нужно сравнивать с кодом группы. Необходимо либо вернуться к старому коду наполнения списка КБ (и осмысленно подойти к обработке содержащихся в нем значений), либо воспользоваться DBLookupCombobox'ом (без привязки к полю, заполнить только ключевое поле (ид группы) и отображаемое поле (наименование группы))

@sairex · 17.10.2014, 11:07

неуспел

@Доцент · 17.10.2014, 13:01

Основная проблема в том что вы не понимаете как всё это работает...

Не нужно делать отдельную кнопку можно сделат ьзаполнение ваших листбоксов при onChange комбобоксов, заполняется они будут по запросу который выберает данные по ади группы, прежде нужно найти это ади, да по счастливой случайности приведёный вами код (причём далеко не луший) както решал вашу задачу, но вы тогда как и сейчас не поинмаете как это происходило

У вас сейчас есть несколько вариантов либо кидать на форму датасет и дб компоненты что топо DBLookupCombobox, как вам посоветовали выше и брат ьиз него ади и подставлять в запрос.

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

Добавлено через 9 минут
' Select Result.Obshie from (Result LEFT JOIN Result.Id_gruppa = Gruppa.Id_gruppa) where Gruppa.NameGruppa like '+Quotedstr(Combobox1.text);

както так

@sairex 18 / 18 / 4 Регистрация: 10.03.2014 Сообщений: 91
	17.10.2014, 11:07	3
	неуспел 0

@Доцент 2 / 2 / 1 Регистрация: 23.04.2012 Сообщений: 115
	17.10.2014, 13:01	4
	Основная проблема в том что вы не понимаете как всё это работает... Не нужно делать отдельную кнопку можно сделат ьзаполнение ваших листбоксов при onChange комбобоксов, заполняется они будут по запросу который выберает данные по ади группы, прежде нужно найти это ади, да по счастливой случайности приведёный вами код (причём далеко не луший) както решал вашу задачу, но вы тогда как и сейчас не поинмаете как это происходило У вас сейчас есть несколько вариантов либо кидать на форму датасет и дб компоненты что топо DBLookupCombobox, как вам посоветовали выше и брат ьиз него ади и подставлять в запрос. Либо делать отдельный запрос в базу и находить по называнию выбраной группы и результат подставлять в запрос на основную выборку либо собрать один запрос, но т.к. вы используете Акцес а он имеет специфичный синтаксис для джойнов, который я ксожалению не могу вспомнить на ходу и не могу вам подсказать как нужно сделать одним запросом.... Добавлено через 9 минут ' Select Result.Obshie from (Result LEFT JOIN Result.Id_gruppa = Gruppa.Id_gruppa) where Gruppa.NameGruppa like '+Quotedstr(Combobox1.text); както так 0