Показать сообщение отдельно
  #1  
Старый 04.06.2019, 19:52
Comediant Comediant вне форума
Прохожий
 
Регистрация: 04.06.2019
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
Сообщение Из combobox в edit'ы

Всем привет. Нужна помощь.
Суть вопроса такова: имеется DBLookupComboBox (Delphi 7) соединенный с базой в sql server 2008, необходимо при процедуре DBLookupComboBox1Click занести данные в несколько edit'ов и выбрать соответствующие поле ещё в одном DBLookupComboBox тоже соединенным с базой.( Данные из другой таблицы, но в таблице соединенной с 1 ComboBox имеется внешний ключ на эту таблицу.)
Попробовал через параметры в select'e, но не могу понять как мне заполнить параметр, чтобы затем занести в параметр соответствующее значение из таблицы.
Собственно говоря код:
Код:
Form8.ADOQuery8.Active:=False;
   Form8.ADOQuery8.SQL.Clear;
   Form8.ADOQuery8.SQL.Add('select id_list from list where id_list=:idl1;');
     Form8.ADOQuery8.Parameters.ParamByName('idl1').Value:= Form8.DBLookupComboBox1.KeyValue;
   Edit12.Text:=Form8.ADOQuery8.Parameters.ParamByName('idl1').Value;//edit костыль)
   Form8.ADOQuery8.SQL.Clear;
    Form8.ADOQuery8.SQL.Add('select data_list from list where id_list=:idl2 and data_list=:dat;');
    Form8.ADOQuery8.Parameters.ParamByName('idl2').Value:=Edit12.Text;
    Form8.ADOQuery8.Parameters.ParamByName('dat').Value:=?;// не могу подобрать что-то, чтобы занести значение data_list соответствующее значению id_list(id уникальный),
//хотя скорее всего менять нужно select
Прикрепил скрин таблицы для более лучшего понимания
Изображения
Тип файла: jpg ккк.jpg (19.8 Кбайт, 0 просмотров)
Ответить с цитированием