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

[artemavd]

Gorychev, это не работает . Ошибка. Мне надо чтобы был запрос к БД, которой бы показывал в Label ID выбранного предмета. Понятнее? )

[Stilet]

artemavd

Ну не буду спорить с Сайфером, но всетки покажу по своему:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 Table_add_predm.First;
if 
 Table_add_predm.Locate('ID',StrToInt(ComboBox.Items[ComboBox.ItemIndex]),[])
then Label1.Caption:=Table_add_predm.FieldByName('ID_Predmet').AsString;
end;

[Gorychev]

попробуй так:

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

У тебя выбирались все записи поля ID_Predmet, не было условия на выборку.

А предыдущий мой пост был коментарием к посту №8

[artemavd]

Stilet, попробовал Ваш вариант, но результата нету. Сделал так:

 Form1.Table1.First;
 if Form1.Table1.Locate('ID_Predmet',StrToInt(Form1.ComboBox3.Items[ComboBox3.ItemIndex]),[])
    then
     Form1.Label12.Caption:=Form1.Table1.FieldByName('ID_Predmet').AsString;

И ошибки нету, и в Label не выводится ID.
Gorychev, также попробовал Ваш вариант, но выдается ошибка. Программа ругается на скобку. Делал так:

Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT ID_Predmet FROM table_predmety WHERE Predmet = ');
 s:=ComboBox3.Text;
 Query_zapros.SQL.Add(s + ')');
 Query_zapros.Active:=True;
 nomer_predm:=Query_zapros.FieldByName('ID_Predmet').AsInteger;
 Form1.Label12.Caption:='Номер предмета = '+IntToStr(nomer_predm);

[Gorychev]

Уберите скобку

 ...Query_zapros.SQL.Add(s);...

точно, она лишняя

[artemavd]

Исправил. Но теперь появляется ошибка, типа: "Invalid field name Биология". Какой бы предмет я не выбрал из комбика (его свойство Style я установил в DropDownList), мне выдается ошибка, которую я привел в начале поста, но только вместо Биологии стоит тот предмет, который я выбираю. Код:

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

А кстати, Горячев, может быть в этой строке:

 Query_zapros.SQL.Add('SELECT ID_Predmet FROM table_predmety WHERE Predmet = ');

После "=" надо было поставить s? То есть WHERE Predmet = s.

[koma_grusha]

легче поставить LookupComboBox, указать ему поля из основного запроса и не париться с дополнительными, да и код ему такой громоздкий не нужен, да и в возврат можно задать ID записи, и не бегать по итемам

ну например, запрос такой:

Query.Close;
Query.SQL.Text := Format('SELECT ID_Predmet, Predmet FROM table_predmety WHERE Predmet = ''%s'' ', [ComboBox3.Text]);
Query.Open;

после, для LookupComboBox указывает ListSource - твой DataSource, для отображения поле Predmet в свойство ListField, а для возврата поле ID_Predmet в свойство KeyField.

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

var ID: Integer;
ID := LookupComboBox.KeyValue;
Form1.Label12.Caption := IntToStr(ID);

или

Form1.Label12.Caption := LookupComboBox.Text;

[Gorychev]

Выложите проект на форум.

А кстати, Горячев, может быть в этой строке:

запрос должен быть строкой, можно так:

 s:=ComboBox3.Text;
 Query_zapros.SQL.Add('SELECT ID_Predmet FROM table_predmety WHERE Predmet = ' + s);

Но сути это не меняет.

[artemavd]

koma_grusha, а можете пример кода скинуть как работать с ним? А то я с ним не работал.

[Stilet]

koma_grusha

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

artemavd

Можеш сюда прикрепить свой проект с БДшкой?
Меня такая концепция разработкт еще не подводила.