Несоответствие типов данных (Delphi+Access через ADO)

[helpkz]

Добрый вечер!
Выходит ошибка:

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

procedure TForm4.BitBtn1Click(Sender: TObject);
var count1,count2,won,draw,lose:integer;
team1,team2:string;
d:TDate;
begin

if (Edit1.Text='') or (Edit2.Text='') then begin ShowMessage('Ââåäèòå çíà÷åíèÿ!') end else

begin
team1:=DBComboBox1.Text;
team2:=ComboBox1.Text;
count1:=StrToInt(Edit1.Text);
count2:=StrToInt(Edit2.Text);
won:=0;
draw:=0;
lose:=0;
d:=MonthCalendar1.Date;
if count1>count2 then begin won:=1; end;
if count1<count2 then begin draw:=1; end;
if count1=count2 then begin lose:=1; end;
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('INSERT INTO matches (team1,won,draw,lose,team2,date1) VALUES (:tm1,:wn,:dr,:lo,:tm2,:dt)');
Form1.ADOQuery1.Parameters.ParamByName('tm1').Value:=team1;
Form1.ADOQuery1.Parameters.ParamByName('wn').Value:=won;
Form1.ADOQuery1.Parameters.ParamByName('dr').Value:=draw;
Form1.ADOQuery1.Parameters.ParamByName('lo').Value:=lose;
Form1.ADOQuery1.Parameters.ParamByName('tm2').Value:=team2;
Form1.ADOQuery1.Parameters.ParamByName('dt').Value:=d;
Form1.ADOQuery1.ExecSQL;
Form4.Close;

В Access стоит тип Дата


Почему ругается?

[Sciv]

А Вы самим параметрам типы не зафиксировали случайно? А то может у Вас в свойствах запроса dr, например, объявлен как integer, а поле в таблице - текстовое.

Хотя возможно, что из-за чисто программного объявления draw: integer такая ситуация. Вопрос: почему Вы уверены, что дело именно в дате?

Ставьте точку останова на строчке формирования запроса и смотрите, что там получается в тексте после передачи параметров.

[helpkz]

Сообщение от Sciv

почему Вы уверены, что дело именно в дате?

Без даты все работает. Попробовал поставить Showmessage на переменную "d", там формат: dd.mm.yy, и в Access тот же.

[Аватар]

d: TDateTime;

d:=Trunc(MonthCalendar1.Date);

[helpkz]

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

d: TDateTime;

d:=Trunc(MonthCalendar1.Date);

Работает! Спасибо большое!