Ошибка с INSERT INTO

TaraZZZ · #7 10.11.2011, 13:59

Цитата:

Сообщение от Ildar-tsr

Date ведь стринговая переменная? И какое значение она принимает в момент выполнения запроса?

Код:

var qry: TADOQuery;
...
qry:= TADOQuery.Create(nil);
with qry do
  begin
    Connection:= ADOConnection1;
    SQL.Text:= 'insert into days(day, misk, silsk, all) values('+QuotedStr(date)+',0,0,0)';
    ExecSQL;
    Free;
  end;

Если именно с параметрами надо для дальнейшего использования данного кверика, то:

Код:

var qry: TADOQuery;
...
qry:= TADOQuery.Create(nil);
with qry do
  begin
    Connection:= ADOConnection1;
    SQL.Text:= 'insert into days(day, misk, silsk, all) values(:day,:misk,:silsk,:all)';
 
    Parameters.ParamByName('day').DataType:= ftDateTime;
    Parameters.ParamByName('misk').DataType:= ftInteger;
    Parameters.ParamByName('silsk').DataType:= ftInteger;
    Parameters.ParamByName('all').DataType:= ftInteger;    
 
    Parameters.ParamByName('day').Value:= date;
    Parameters.ParamByName('misk').Value:= 0;
    Parameters.ParamByName('silsk').Value:= 0;
    Parameters.ParamByName('all').Value:= 0;    
    ExecSQL;
  end;

Спасибо, помогло!

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты