|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.02.2018, 18:20 | #1 |
Новичок
Джуниор
Регистрация: 09.02.2018
Сообщений: 1
|
Загрузка ответов из БД в RadioGroup
Помогите пожалуйста! Не загружаются ответы в RadioGroup! Не появляется при запуске в панели RadioGroup вообще ничего!
Вот код: //вопросы form8.ADOQuery1.SQL.Clear; form8.ADOQuery1.SQL.Add('Select TOP 30 vopros as vopros, id_vopros from Vopros where id_predm=2 order by NEWID()'); form8.ADOQuery1.ExecSQL; form8.ADOTable1.Active:=False; form8.ADOTable1.Active:=True; form8.ADOQuery1.Open; with form8.ADOQuery1 do begin form8.Memo1.Lines.Clear; form8.Memo1.Lines.Add(form8.ADOQuer y1.FieldByName('vopros').AsString); end; id:=form8.ADOQuery1.FieldByName('id _vopros').AsInteger; //ответы form8.ADOQuery2.SQL.Clear; form8.ADOQuery2.SQL.Add('Select * from PravOtv where id_vopros=:id'); form8.ADOQuery2.ExecSQL; form8.ADOTable2.Active:=False; form8.ADOTable2.Active:=True; form8.ADOQuery2.Open; with form8.ADOQuery2 do begin while not Eof do begin form8.RadioGroup1.Items.Add(form8.A DOQuery2.FieldByName('otvet').AsStr ing); Next; end; end; end; |
09.02.2018, 20:28 | #2 |
Программист
Участник клуба
Регистрация: 23.06.2009
Сообщений: 1,772
|
Так параметр в запросе автоматически не свяжется с переменной, его нужно заполнить
Код:
|
09.02.2018, 20:35 | #3 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
и ExecSQL для выборки не нужен
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Оптимизация скорости ответов БД | OmegaBerkut | SQL, базы данных | 0 | 08.08.2017 11:45 |
подсчет ответов в тесте | ArinaP | HTML и CSS | 2 | 25.05.2015 20:05 |
icq отсутствие ответов | divwond | Работа с сетью в Delphi | 1 | 15.02.2011 20:11 |
Проверка ответов на тест | prosto_i | Microsoft Office Excel | 8 | 30.09.2010 13:00 |
Бланк ответов | V@mpir | Помощь студентам | 9 | 30.10.2009 17:45 |