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;
Помогите со скриптом.