Sql.Add('Where regtime>'''+DateToStr(FromDate)+'''');
 Sql.Add('And regtime<'''+DateToStr(ToDate)+'''');

解决方案 »

  1.   

    sorry,在之前我已经这样作过了,提示了错误信息:"...数据类型不匹配...",我都怀疑是Access的数据库引擎有问题,因为在Access中使用查询,也有同样的问题.
      再次请大家看看!!!!!!!!!!!!!!!!!!!!
      

  2.   

    也可以改成sql.add('where regtime>=:formdate')
    如果你的regtime字段是日期类型的话!
      

  3.   

    在Accsess中好像这样写:
     Sql.Add('Where regtime>#'+DateToStr(FromDate)+'#');
     Sql.Add('And regtime<#'+DateToStr(ToDate)+'#'); 
      

  4.   

    Sql.Add('Where regtime>'''+DateToStr(FromDate)+'''');
     Sql.Add('And regtime<'''+DateToStr(ToDate)+'''');
      

  5.   

    非常感谢,尤其是:StarRains(星雨)
      

  6.   

    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
      FromDate,ToDate: TDate;
    begin
      FromDate := DateTimePicker1.DateTime;
      ToDate  := DateTimePicker2.DateTime;
      with query1 do
      begin
        close;
        Sql.clear;
        Sql.add('Select * from product');
        Sql.Add('Where regtime>:regtime1);
        Sql.Add('And regtime<:regtime2);
        Parameters.ParamValues['regtime1']:=FromDate ;
        Parameters.ParamValues['regtime2']:=ToDate ;
        Open;
      end;
    end;