Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.07.2019, 12:02   #1
Alex711
Пользователь
 
Регистрация: 21.09.2018
Сообщений: 99
По умолчанию ADOQuery Delphi7

Здравствуйте, получаю данные из ячейки так:
Код:
ADOQuery2.SQL.Text :='SELECT SNM FROM Table1 WHERE c='+QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex]);
  ADOQuery2.Open;
  FInfo.LblUser.Caption := ADOQuery2.Fields[0].AsString;  
  ADOQuery2.Close;
Выбор полученных данных зависит от выбранного item ComboBox
Код:
QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex])
Как сделать чтобы место QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex])
сделать например c1 (с1 это значение в колонке mdb)
Таблица выглядит так:
c SNM
c1 fffff
c2 gggg
c3 hhhh
Alex711 вне форума Ответить с цитированием
Старый 25.07.2019, 12:52   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,526
По умолчанию

Цитата:
сделать например c1 (с1 это значение в колонке mdb)
а КАК ты узнаешь какую ИЗ ... ('c1', 'c2', ... ) тебе НАДО использовать ?
она как-то связана с тем самым comboBox ?

а так можно просто указать то самое 'c1'
Код:
ADOQuery2.SQL.Text :='SELECT SNM FROM Table1 WHERE c='+QuotedStr(ComboBox1.Items[ComboBox1.ItemIndex]); //
ADOQuery2.SQL.Text :='SELECT SNM FROM Table1 WHERE c=:vc ';
// и выбирай на вкус
ADOQuery2.Params.ParamByname('vc').value:=ComboBox1.Items[ComboBox1.ItemIndex]; // узнать(задать) из combobox
ADOQuery2.Params.ParamByname('vc').value:='c1'; // задать "напрямую"
ADOQuery2.Params.ParamByname('vc').value:= ??? // и все другое что угодно
и комментарии к коду https://www.programmersforum.ru/show...17&postcount=5
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 25.07.2019 в 12:59.
evg_m вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ADOQuery и sql shatohingv БД в Delphi 5 14.10.2011 11:52
ADOQuery Alessiy БД в Delphi 4 26.04.2011 23:55
unable to rename 'C:\ProgramFiles\Borland\Delphi7\Bi n\Delphi32.$$$' to 'C:\Program Files\Borland\Delphi7\ KazBoy Помощь студентам 1 12.04.2011 18:07
AdoQuery Stanislav БД в Delphi 34 26.06.2009 22:09