Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.04.2017, 21:06
mirotwor42 mirotwor42 вне форума
Прохожий
 
Регистрация: 13.04.2017
Сообщения: 1
Версия Delphi: xe2
Репутация: 10
По умолчанию Запись Дату в таблицу

На форме:
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  
Старый 13.04.2017, 22:42
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

1. Date м.б. ключевым словом. Попробуй "Date" или [Date].
2. Так же переименуй параметр Date.
3. Тип параметра указал в настройках? В ADO с этим не работает автоопределение. Надо обязательно указать в Object Inspector.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:51.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter