• From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Topic: Нужна помощь.

Здравствуйте.
Подскажите почему не работает???
Как правильно написать запрос???
var
       pOtv: integer;
       pOtv1: integer;
      begin
      pOtv := SQLExecute ('SELECT otvet FROM main WHERE (id_vopr = 1)');
      pOtv1 := SQLExecute ('SELECT otvet1 FROM main WHERE (id_vopr = 1)');

if (IntToStr(pOtv) = '1') and (IntToStr(pOtv1) = '1') then ShowMessage('Добавлено записи(ей)');?????????

или

SQLExecute ('if (IntToStr(pOtv) = ''1'') and (IntToStr(pOtv1) = ''1'')') then ShowMessage('Добавлено записи(ей)');??????

или

SQLExecute ('if ('''+IntToStr(pOtv)+''' = ''1'') and ('''+IntToStr(pOtv1)+''' = ''1'') then ShowMessage('Добавлено записи(ей)');?????

  • From: Волгоград
  • Registered: 2017-10-04
  • Posts: 166

Re: Нужна помощь.

Реализовал совсем по другому:
if (FrmMain.CheckBox1.sqlValue = '1') and (FrmMain.CheckBox11.sqlValue = '1') then showMessage('Добавлено записи(ей)');

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

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Нужна помощь.

просто посмотрите что возвращает запрос в переменную и возвращает ли что-либо.

ShowMessage(pOtv);
Dmitry.