1 (edited by karim 2018-09-15 06:55:25)

Topic: Insert into

Всем привет. Есть скрипт которая работает частично. Т.е. Base.Edit1.Text сохраняется в базу данных а Base.DateTimePicker1.DateTime не сохраняется.
procedure Base_Ok_OnClick (Sender: TObject; var Cancel: boolean);
var
sDate: string;
begin
      if Base.Edit1.Text <> '' then
         begin
               sDate:= FormatDateTime('dd-mm-yyyy', Base.DateTimePicker1.DateTime);
               SQLExecute('Insert into students (name, date) Values ("'+Base.Edit1.Text+'", '+sDate+')');
         end else
         begin
               ShowMessage('Введите имя студента');
         end;
end;
Помогите со скриптом.

Re: Insert into

karim wrote:

Помогите со скриптом.

Используйте свойства sqlValue и sqlDate:

procedure Base_Ok_OnClick (Sender: TObject; var Cancel: boolean);
begin
      if Base.Edit1.Text <> '' then
         begin
               SQLExecute('Insert into students (name, date) Values ('+Base.Edit1.sqlValue+', '+Base.DateTimePicker1.sqlDate+')');
         end else
         begin
               ShowMessage('Введите имя студента');
         end;
end;
Визуальное программирование: блог и телеграм-канал.