Загрузить из БД в ComboBox

[artemavd]

Мне надо загрузить содержимое колонки в ComboBox. У него есть свойства Items и Strings. Пробовал делать так:

var
 nomer_predm:integer;
begin
 Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT Predmet FROM table_predmety');
 Query_zapros.Active:=True;
 Form1.ComboBox3.Items.Strings:=Form3.Query_add_predm.Text;
 Form1.Label12.Caption:='Номер предмета = '+IntToStr(nomer_predm); 
end;

но выдается ошибка: "List index out of bounds (0)". Как правильно сделать? Также надо, чтобы IDишник выбранного предмета выводился в Label.

[artemavd]

Вспомнил про компонент DBComboBox . Настроил его. Только есть одна проблемка. Он показывает только последний добавленный предмет в БД. А как сделать, чтобы он показывал все, что есть в этой БД?

[SERG1980]

Пройдитесь в цикле for по всем записям Query_add_predm и добавляйте их в бокс

[Stilet]

А как сделать, чтобы он показывал все, что есть в этой БД?

Помоему лучше использовать обычный Комбик, просто в цикле его набить данными из БД.

[фЁдОр]

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

Он показывает только последний добавленный предмет в БД

не должно такого быть. как вы так настроили его? он показывает все содержимое поля в таблице, а не бд.

А как сделать, чтобы он показывал все, что есть в этой БД?

никак! еще раз повторюсь, он может показать вам все содержимое поля, а не бд.
зы: artemavd, вы разницу ощущаете между бд и таблицами? если да, то выражайтесь правильно, что бы не вводить в заблуждение окружающих...

[artemavd]

Вот, пробовал такой цикл сделать, но не работает:

procedure TForm1.SpeedButton44Click(Sender: TObject);
var
 nomer_predm,i,j:integer;
begin
 i:=Form3.Table_add_predm.RecordCount;
 for j:=0 to i - 1 do
 begin
 Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT Predmet FROM table_predmety');
 Query_zapros.Active:=True;
 Form1.ComboBox3.Items.Strings[j]:=Form3.Table_add_predm.FieldByName('Predmet').AsString;
 end;
end;

В чем ошибка?

[Stilet]

Form3.Table_add_predm.First;

if not Form3.Table_add_predm.eof then
  Form1.ComboBox3.Items.Add(Form3.Table_add_predm.FieldByName('Predmet').AsString);

while Form3.Table_add_predm.FindNext do begin
 Form1.ComboBox3.Items.Add(Form3.Table_add_predm.FieldByName('Predmet').AsString);
end;

Если такой код вызывается в Form3 то Form3. писать не надо

[SERG1980]

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

Вот, пробовал такой цикл сделать, но не работает:

procedure TForm1.SpeedButton44Click(Sender: TObject);
var
 nomer_predm,i,j:integer;
begin
 i:=Form3.Table_add_predm.RecordCount;
 for j:=0 to i - 1 do
 begin
 Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT Predmet FROM table_predmety');
 Query_zapros.Active:=True;
 Form1.ComboBox3.Items.Strings[j]:=Form3.Table_add_predm.FieldByName('Predmet').AsString;
 end;
end;

В чем ошибка?

Запрос в цикле выполнять не надо

procedure TForm1.SpeedButton44Click(Sender: TObject);
var
 nomer_predm,i,j:integer;
begin
 Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT Predmet FROM table_predmety');
 Query_zapros.Active:=True;
 Query_zapros.First;
 while not Query_zapros.Eof do
  begin
   ComboBox1.Items.Add(Query_zapros.FieldByName('Predmet').AsString);
   TaxiDataModule.WokerTable.Next;
  end;
end;

[artemavd]

Stilet, я попробовал сначала Ваш код. Вроде все получилось. Список предметов заносится. Но мне надо, чтобы при выборе какого-то предмета из списка его IDишник выводился в Label. Вот код, который раньше это делал:

procedure TForm1.ComboBox3Select(Sender: TObject);
var
 nomer_predm:integer;
begin
 Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT ID_Predmet FROM table_predmety');
 Query_zapros.Active:=True;
 nomer_predm:=Query_zapros.FieldByName('ID_Predmet').AsInteger;
 Form1.Label12.Caption:='Номер предмета = '+IntToStr(nomer_predm); 
end;

Этот код помог мне сделать Уважаемый S@fer . Этот код работал, когда у меня было поле ID_Predmet с типом Number. А сейчас я его сделал автоинкриментным. Что надо подправить в коде, чтобы ID для соответствующего предмета выводился в Label сначала?)

[Gorychev]

В дополнение к посту номер 8, я бы добавил в запрос GROUP BY Predmet

 Query_zapros.SQL.Add('SELECT Predmet FROM table_predmety GROUP BY Predmet');

Обычно повторяющееся значения с Комбобксе только мешают, по этому лучше их убрать (если они конечно есть, но хуже не будет).