[mirotwor42]

На форме:
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, "Перевод")');

Проблема таже