На форме:
ADOConnection1,DataSource1,ADOTable1,ADOQuery1,DBG rid1,DBMemo1
На компьютере:
MsSQL
Нажимаю на кнопку, и у меня в: "неправильный синтаксисinsert into"
В чем проблема, как исправить?
Код:
procedure TForm1.BitBtn1Click(Sender: TObject); //Кнопка ЗАПОЛНИТЬ ДАТУ
var
FirstDay, LastDay : TDate;
begin
FirstDay:= EncodeDate(YearOf(Now),MonthOf(Now),DayOf(Now));
LastDay:= EncodeDate(YearOf(Now),12,31);
//DBMemo1.Lines.Add('Текущая дата = '+DateToStr(Date));
DBMemo1.Lines.Add('Текущая дата = '+DateToStr(FirstDay));
DBMemo1.Lines.Add('Последнее число года = '+ DateToStr(LastDay));
while FirstDay < LastDay do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
(*С этого места ругается на ошибку*)
ADOQuery1.SQL.Add('INSERT INTO Jornal (Date,Name) VALUES (:Date, :Name);');
ADOQuery1.Parameters.ParamByName('Date').Value := FirstDay;
ADOQuery1.Parameters.ParamByName('Name').Value := 'Перевод';
ADOQuery1.ExecSQL;
FirstDay := IncDay((FirstDay), 1);
DBMemo1.Lines.Add('Date = '+ DateToStr(FirstDay)); //Добавляет дату в поле мемо
end;
end;
Пробывал поменять на:
Код:
ADOQuery1.SQL.Add('INSERT INTO Jornal (Date,Name) VALUES (FirstDay, "Перевод")');
Проблема таже