大大们好啊，我问题多多，又来了： 我想利用ADOQuery从Access中检索出符合条件的时间,但是问题多多，难煞我也！我查阅了站内的文章，还是不解.请您指点我: < class="code"> procedure TForm1.FormCreate(Sender: TObject); var CurrentDate: TDateTime; begin CurrentDate := Trunc(Now()); ADOQuery1.Active := False; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('select * from Tab1 where [TestDate] = [CurrentDate]'); ADOQuery1.Active := True; ...................... end; 我是想得到当前的日期，然后从Access数据库里面的Tab1中找出和当前时间一致的数据(数据库里的TestDate形为:2004-3-31 下午 4:17:22)，但是一编译就出现错误: 又得麻烦您指点一下我，谢谢 < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？

bigdogchina 你好    

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentDate:          TDateTime;
begin
   TimeAMString := '上午' ;
   TimePMString := '下午' ;
   CurrentDate := Trunc(Now());
   ADOQuery1.Active := False;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from Tab1 where [TestDate] = :CurrentDate');
   ADOQuery1.Parameters.ParamByName('CurrentDate').AsString := FormatDateTime('yyyy-m-d ampm h:m:s',[Now]);
   ADOQuery1.Active := True;
   ......................
end;

引言: bigdogchina 你好

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentDate:          TDateTime;
begin
   TimeAMString := '上午' ;
   TimePMString := '下午' ;
   CurrentDate := Trunc(Now());
   ADOQuery1.Active := False;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from Tab1 where [TestDate] = :CurrentDate');
   ADOQuery1.Parameters.ParamByName('CurrentDate').AsString := FormatDateTime('yyyy-m-d ampm h:m:s',[Now]);
   ADOQuery1.Active := True;
   ......................
end;

实在是不好意思，我很笨，没有悟透。我照上面的去执行，出现: <> [> 大大们能否再指点一下我？谢谢 < class="code"> =============== 人生在勤,不索何获? ===============

不好意思,請改用 ADOQuery1.Parameters.ParamByName('CurrentDate').Value := FormatDateTime('yyyy-m-d ampm h:m:s',[Now]); 發表人 - chance36 於 2004/03/31 20:49:11

Chance36大大，真的很谢谢您！一切OK啦 < class="code"> =============== 人生在勤,不索何获? ===============

------
人生在勤，不索何获？