Несоответствие типов данных в выражении условия отбора

[hauk70]

Сабж, что не соответствует я так и не понял, дебагер мне все показал отлично.MSAccess + ado
Таблица Книга учета:
ID записи - счетчик
ID посетителя - числовой
Дата оплаты - дата/время
Уплачено - денежный
Оформляющий - числовой

Код:

procedure TMain_Form.AddToBook(ID:integer;cost:real;name:integer);
begin
try
with Unit1.DataModule1.FlowOfFounds_Query do
    begin
    Close;
    sql.Clear;
    SQL.Add('INSERT INTO [Книга учета] ([ID посетителя], [Дата оплаты], Уплачено, Оформляющий) VALUES (:i, :d, :c, :n)');
    Parameters.ParamByName('i').Value:=id;
    Parameters.ParamByName('d').Value:=now;
    Parameters.ParamByName('c').Value:=cost;
    Parameters.ParamByName('n').Value:=name;
    ExecSQL;
    end;
except
  on e:Exception do  Application.ShowException(E);
end;
end;

[Yurk@]

какой тип у переменной cost?.
возможно попробовать

Parameters.ParamByName('d').Value:=DateToStr(now);

[hauk70]

внес правка и выделил жирным, но все равно не работает
DateToStr(now) не помог, да и тип данных у меня дата/время же

[Аватар]

var d: TDateTime;

d:=Trunc(now);
Parameters.ParamByName('d').Value:=d;

или

Parameters.ParamByName('d').Value:=Date;

[hauk70]

Сообщение от Аватар

var d: TDateTime;

d:=Trunc(now);
Parameters.ParamByName('d').Value:=d;

или

Parameters.ParamByName('d').Value:=Date;

ошибка на месте

[Serge_Bliznykov]

чудес не бывает.
Значит, либо поле имеет другой тип, либо Вы что-то делаете не так!

выложите скриншот структуры или (лучше) выложите архив с вашей БД.

[hauk70]

я понял и в тоже время ни черта не понял о_о ругается на переменную name(integer=1) при дебаге я отчетливо вижу там единицу(!!!), но он на нее ругается, а вот если тупо вписать 1 то все работает... кто подскажет что за ересь?

ЗЫ Serge_Bliznykov, вы же программист, вы должны в них верить

[Serge_Bliznykov]

чудес не бывают. А вот глюки - бывают!! )

ладно. давайте попробуем разобраться дальше...

1)

Несоответствие типов данных в выражении условия отбора

почему отбора? Вы же, вроде бы, вставку делаете?!

2)

но он на нее ругается, а вот если тупо вписать 1 то все работает

покажите код, которые работает с "вписанной единицей".


3)

о_о ругается на переменную name

Давайте скриншот ошибки, как именно ругается...


если долго мучится, то что-нибудь получится.

[Sciv]

А чего не все поля в квадратных скобках?

[Stilet]

А чего не все поля в квадратных скобках?

Они не нужны если имя не содержит некошерные (типа пробела) симолы.

procedure TMain_Form.AddToBook(ID:integer;cost:real;name:integer);
begin
try
with Unit1.DataModule1.FlowOfFounds_Query do
    begin
    Close;
    SQL.Text:=('INSERT INTO [Книга учета] ([ID посетителя], [Дата оплаты], Уплачено, Оформляющий) VALUES ('
+IntToStr(id)+', Date(), '+IntToStr(cost)+', '+IntToStr(name)+')');
    ExecSQL;
    end;
except
  on e:Exception do  Application.ShowException(E);
end;
end;

Что выдает?