[TaraZZZ]

Даже так пробовал:

Код:

with ADOCommand do
begin
 CommandText := 'INSERT INTO days ([day],[misk],[silsk],[all]) VALUES (:day,:misk,:silsk,:all)';
 Parameters.ParamByName('day').Value.AsDate := date;
 Parameters.ParamByName('misk').Value.AsInteger := 0;
 Parameters.ParamByName('silsk').Value.AsInteger := 0;
 Parameters.ParamByName('all').Value.AsInteger := 0;
 try
   Execute;
 except on E: Exception do
   begin

   end;
 end;
end;