[TaraZZZ]

Сообщение от 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;

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