|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Запись Дату в таблицу
На форме:
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, "Перевод")'); |