Спасибо Дмитрий - работает.

Возник похожий вопрос. Как в select прикрутить календарь (дата > чем значение на DateTimePicker4)

Простой пример:

select *
from main
where otvet  = (1)
and data >  ('+FrmOth.DateTimePicker4.sqlValue+'???)

Здравтвуйте.
Подскажите, как в столбец "otvet" снять значение CheckBox1 (галка ДА/НЕТ или 1/2)
Скрипт запускается при нажатии  CheckBox1

SQLExecute('INSERT INTO main (id_login, id_vopr, data, otvet) VALUES (''' +IntToStr(iduser)+''', ''1'',  now(), ''CheckBox1 ??????'')');

Разобрался
SQLExecute ('UPDATE main SET data = date now() WHERE id = 1');

Опять ошибка...
"You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'SQLExecute UPDATE main SET data = date(''NOW'') WHERE  id = 1' at line 1 SQL.sql 1"

DriveSoft wrote:

Ошибся

QLExecute('UPDATE main SET data = date(''now'') WHERE id = 1');

Здравствуйте.
Ошибка "Unknown column 'now' in 'field list'

http://screenshot.ru/upload/image/S1yF

DriveSoft wrote:

запись текущей даты

SQLExecute('UPDATE main SET data = now WHERE id = 1');

Базу из примеров простых скриптов для новичков. Самое главное в данной базе - комментарии.

Пытаюсь сделать "опросник". На форме календаря нет и не будет. При переходе на другой вопрос (нажатие кнопки) в табличку для ответов необходимо записать ответ и дату ответа. Может быть нужно использовать оператор DateToStr(Now), хз...

Высылаю попытку проекта - опросник.

Здравствуйте.
Нужно нажатием кнопки "сохранить запись" сохранить текущую дату в таблицу.
Пожалуйста подскажите что делаю не так?...
Если есть рабочий скрипт  - буду очень благодарен.


procedure Frm_Date_OnShow (Sender: string; Action: string);
     var
      getTime: string;
      mon, day, year: word;
      begin
      DecodeDate (Date, year, mon, day);
getTime:= IntToStr(day)+'.'+IntToStr(mon)+'.'+IntToStr(year);
     SQLExecute('update main set data = (getTime) WHERE id = (1)');
  end;

Здравствуйте.
Заранее извиняюсь за возможно глупый вопрос, только недавно приобрел вашу ЧУДО-прогу.

Подскажите пожалуйста возможно ли создать в форме динамические TextBox-ы?
Есть табличка 'vopros' с двумя столбцами 1)'id_Vopr' и 2)'Vopr' (Текстовое поле).
Есть форма 'FrmVopr' в которую надо вывести все вопросы (построчно) из столбца 'Vopr' для последующего ответа ДА/НЕТ и сохранения в другую таблицу 'otv_Vopr'.

Ума хватило только на это (статика)... Это явно не правильно...

        procedure FrmVopr_OnClick (Sender: string; Action: string); \\выполнение по кнопке переход к форме
    FrmVopr.vopr.Text := SQLExecute ('SELECT vopros FROM vopr where (id = 1)');
end;

     procedure FrmVopr1_OnShow (Sender: string; Action: string);   \\выполнение по кнопке переход к след. вопросу
  FrmVopr.vopr1.Text := SQLExecute ('SELECT vopros FROM vopr where (id = 2)');
      end;