Вывод ответов радиобаттона в БД access

[RedSid]

Добрый день! У меня тест подключен к БД, вопросы и ответы из БД выводятся в радиобаттон, при нажатии на кнопку "следующий вопрос" выводится следующий вопрос)
Как сделать чтобы при нажатии на кнопку "следующий вопрос" выбранный мною ответ сохранялся в БД? В таблице, куда должны сохраняться ответы, для каждого ответа свое поле. Помогите пожалуйста, заранее спасибо))

[Dvoishnik]

Ты прикалываешься??
Не знаю это кроспос или нет но меня зацепило немногою

давай во фриланс там тебе хоть по 3 поля на ответ каждую запись сделают или по таблице на каждый вопрос как захочешь .

[RedSid]

Сообщение от Dvoishnik

Ты прикалываешься??
Не знаю это кроспос или нет но меня зацепило немногою

давай во фриланс там тебе хоть по 3 поля на ответ каждую запись сделают или по таблице на каждый вопрос как захочешь .

В том варианте, который вы скидывали, ответы сохраняются в одном поле, а мне нужно чтобы они записывались в строку, а не в одно поле))

[Dvoishnik]

Сообщение от RedSid

В том варианте, который вы скидывали, ответы сохраняются в одном поле, а мне нужно чтобы они записывались в строку, а не в одно поле))

вы понимаете что это не правильно??
ну я так понимаю вам плевать?
можете использовать такую структуру

ADOQuery1.FieldByName('Имя вашего поля').AsInteger:=RadioGroup1.ItemIndex;

[RedSid]

Сообщение от Dvoishnik

вы понимаете что это не правильно??
ну я так понимаю вам плевать?
можете использовать такую структуру

ADOQuery1.FieldByName('Имя вашего поля').AsInteger:=RadioGroup1.ItemIndex;

procedure TForm5.Button4Click(Sender: TObject);   //кнопка начать тест
begin
radiogroup1.Visible:=true;
button4.Visible:=false;
button1.Visible:=true;
with adotable1 do begin

 RadioGroup1.Caption:=fieldbyname('vopr').AsString;
 RadioGroup1.Items.Clear;
 RadioGroup1.Items.Add(ADOTable1otv1.Value);
 RadioGroup1.Items.Add(ADOTable1otv2.Value);
 RadioGroup1.Items.Add(ADOTable1otv3.Value);

   end;


end;


procedure TForm5.Button1Click(Sender: TObject); // кнопка "следующий вопрос"
begin
if RadioGroup1.ItemIndex > -1 then
Begin
if  not ADOTable1.Eof then
 begin

 ADOtable2.Last;
 ADOtable2.Insert;
 ADOTable2[i].Value:=ADOtable1id.Value;
 ADOtable2[i].Value:=RadioGroup1.ItemIndex;
 ADOtable2.post;
 ADOTable1.Next;
 RadioGroup1.Caption:=ADOTable1Vopr.Value;
 RadioGroup1.Items.Clear;
 RadioGroup1.Items.Add(ADOTable1otv1.Value);
 RadioGroup1.Items.Add(ADOTable1otv2.Value);
 RadioGroup1.Items.Add(ADOTable1otv3.Value);
 
ADOQuery1.FieldByName('Имя вашего поля').AsInteger:=RadioGroup1.ItemIndex; 
//получается это сюда написать? И что вместо "Имя вашего поля написать

 end
  else if MessageDlg('Тест окончен закрыть программу?',mtConfirmation, mbOKCancel, 0) =mrOK  then
     Form1.Close;
end
 else  ShowMessage ('Выберите ответ!')
end;

[Dvoishnik]

код нужно правильно оформлять [ code] между этими тегами[ \code]
в место этого пишете, как добавление в таблицу.

ADOtable2.Last;
ADOtable2.Insert;
ADOTable2[i].Value:=ADOtable1id.Value;
ADOtable2[i].Value:=RadioGroup1.ItemIndex;
ADOtable2.post;
ADOTable1.Next;

Я не понимаю через какую *Опу у вас происходит связь между таблицами. по этому код вам написать не смогу.

а вместо "имя вашего поля" нужно написать имя вашего поля в которое вы ходите добавить что вам нужно.
и не квери там должно быть а тейбл у вас разве есть квери??