query1.close;
   query1.sql.clear;
   Query1.SQL.Add('Select * from mail Where Muser="'+curuser+'"  and  ExDate='+DateToStr(now));
   if (Not Query1.Prepared) then Query1.Prepare;
   query1.Open;///ExDate是Date类型
报错说mismatch

解决方案 »

  1.   

    Query1.SQL.Add('Select * from mail Where Muser="'+curuser+'"  and  ExDate='+quotedstr(DateToStr(now)));
    就是
    Query1.SQL.Add('Select * from mail Where Muser="'+curuser+'"  and  ExDate='''+DateToStr(now)+'''');
      

  2.   

    Query1.SQL.Add('Select * from mail Where Muser='''+curuser+'''  and  ExDate='''+DateToStr(now)+'''');
      

  3.   

    Query1.SQL.Add('Select * from mail Where Muser="'+curuser+'"  and  ExDate='''+DateToStr(now)+'''');
      

  4.   

    改为这样吧
      query1.close;
       query1.sql.clear;
       Query1.SQL.Add('Select * from mail Where Muser='''+curuser+'''  and  ExDate=:dd');
       Query1.ParamByName('dd').AsDate := now;
       if (Not Query1.Prepared) then Query1.Prepare;
       query1.Open;
      

  5.   

    Query1.SQL.Add('Select * from mail Where Muser='+QUOTEDSTR(curuser)+'  and  ExDate='+QUOTEDSTR(DateToStr(now)));