SELECT * FROM TableName WHERE ColName >= #2001-01-01#

解决方案 »

  1.   

    //随便贴一段
    procedure TRPT_ClientForm.BtnFindClick(Sender: TObject);
    var
      Ssql: string;
    begin
      inherited;
      Ssql := 'Select * from Client where C_Code<>'+QuotedStr('0');
      if Trim(EdtCode.Text)<>'' then
        Ssql := Ssql+' and C_Code like'+QuotedStr('%'+Trim(EdtCode.Text));
      if Trim(EdtArea.Text)<>'' then
        Ssql := Ssql+GetQueryAreaString('C_AreaCode', Trim(EdtArea.Text));
      if Trim(CmbType.Text)<>'' then
        Ssql := Ssql+' and C_Type='+QuotedStr(Trim(CmbType.Text));
      Ssql := Ssql+' Order by C_Code';
      
      DataForm.DataSetClient.Close;
      DataForm.DataSetClient.CommandText := Ssql;
      DataForm.DataSetClient.Open;
      if DataForm.DataSetClient.IsEmpty then
      begin
        DataForm.DataSetClient.Close;
        MessageBox(Self.Handle, '没有满足条件的记录!','提示',MB_OK+MB_ICONINFORMATION);
      end;
    end;
      

  2.   

    不好意思,贴错了,呵呵
    procedure TRPT_NotepadForm.BtnFindClick(Sender: TObject);
    var SqlStr: string;
    begin
      inherited;
      SqlStr := 'Select * from Notepad where N_code<>'+QuotedStr('0');
      if Trim(FromDate.Text)<>'' then
        SqlStr := SqlStr+' and N_date>=#'+DateToStr(FromDate.Date)+'#';
      if Trim(ToDate.Text)<>'' then
        SqlStr := SqlStr+' and N_date<=#'+DateToStr(ToDate.Date)+'#';
      if Trim(CmbMan.Text)<>'' then
        SqlStr := SqlStr+' and N_man='+QuotedStr(CmbMan.Text);
      DataForm.DataSetNotepad.Close;
      DataForm.DataSetNotepad.CommandText := SqlStr;
      DataForm.DataSetNotepad.Open;
      if DataForm.DataSetNotepad.IsEmpty then
      begin
        DataForm.DataSetNotepad.Close;
        MessageBoxA(Self.Handle, '没有满足条件的提示信息!','确定',MB_ICONINFORMATION+MB_OK);
      end;
    end;
      

  3.   

    if Trim(FromDate.Text)<>'' then
        SqlStr := SqlStr+' and N_date>=#'+FormatDateTime('yyyy-MM-dd',FromDate.Date)+'#';
      if Trim(ToDate.Text)<>'' then
        SqlStr := SqlStr+' and N_date<=#'+FormatDateTime('yyyy-MM-dd',ToDate.Date)+'#';
      

  4.   

    W2000跟W98下用函数NOW所取的时间格式不一样.....一个有世纪值20一个没有.............试试吧...
      

  5.   

    你那个FromDate和ToDate是什么东东?
    先ShowMessage(sqlStr)看看,语句是否正确。
      

  6.   

    你试试,在查询日期型的变量时用这样的方法试一下:
    select * from client where date1:='''+strtodate(datetostr(datetimepicker1.date));
    好像日期型的这样相互转化两次就可以了。