А если так попробовать?
Код:
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('SELECT * ');
DataModule2.ADOQuery1.SQL.Add('FROM [Книги на руках]');
DataModule2.ADOQuery1.SQL.Add('WHERE [Дата возврата]<:Date';
DataModule2.ADOQuery1.Parameters.ParamValue['Date'] := Now;
DataModule2.ADOQuery1.Active:=true; |