|
|
Регистрация | << Правила форума >> | 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, "Перевод")'); |
#2
|
|||
|
|||
1. Date м.б. ключевым словом. Попробуй "Date" или [Date].
2. Так же переименуй параметр Date. 3. Тип параметра указал в настройках? В ADO с этим не работает автоопределение. Надо обязательно указать в Object Inspector. |