procedure TForm2.BitBtn6Click(Sender: TObject);
var
sqll:string;
begin
sqll:='select * from logistics where 日期>=strtodate(datetimepicker2.date)and 日期<=strtodate(datetimepicker3.date)';
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(sqll);
  adoquery1.Open;
end;

解决方案 »

  1.   

    如果是access,日期要用'#'加起来
      

  2.   

    而且你那‘and’前也该有空格呀,strtodate是delphi的函数,你现在都引号到sql中了,不错才怪
      

  3.   

    delphi7+sql2000 表logistics中列是日期格式,and 前面有空格的,那如何修改呢
      

  4.   


    sqll := 'select * from logistics where 日期 >= '+ 
             QuotedStr(DateTimeToStr(datetimepicker2.date)) +
            ' and 日期 <= ' + QuotedStr(DateTimeToStr(datetimepicker3.date));