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

[koma_grusha]

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

[koma_grusha]

Как сказать... DB компоненты не самый лучший вариант в принципе

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

[maladoy]

ко всему вышесказанному: используйте не for а

While not Query_zapros.Eof do
        begin
          ComboBox.Items.Add(Query_zapros.FieldByName('predmet').AsString);
          Query_zapros.Next;
        end;

из-за 20 строк кода 25 сообщений!!!!!

[artemavd]

Всем спасибо! . Эта проблема решена с помощью DBLookupComboBoxю. Преклоняюсь перед всеми вами за помощь.
P.S. Stilet, почему я не могу Вам отзыв добавить? Решите эту проблему!

[Stilet]

по крайней мере многих ошибок и лишних проверок можно избежать

Не буду спорить, но... Лишние проверки никогда не помешают, а насчет избежания ошибок, то это не всегда...
Я скорее на трудности натыкался работая с этими компонентами чем на пользу.

Решите эту проблему!

Спасибни, и в расчете.

[Gorychev]

Кажись понял, в кавычки нужно взять ComboBox3.Text. Проверте.

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

[maladoy]

s := QuotedStr(ComboBox3.Text);

а это зачем????

[Stilet]

а это зачем????

Чтоб явно показать что парамет это строка.
Эта функа ковычки добавляет в концы строки.

[Gorychev]

s := QuotedStr(ComboBox3.Text);

строка запроса должна иметь примерно такой вид:
'SELECT ID_Predmet FROM table_predmety WHERE Predmet = 'Биология''

[maladoy]

а

s: string;

и

s :=ComboBox3.Text;

уже не хватает?