begin
  // ...
  Query1.SQL.Text := 'select * from smp10100 where plandate < '   sdate;
  // ..
end;

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From smp10100 Where ');
  ADOQuery1.SQL.Add('plandate < :Sdate');
  ADOQuery1.ParamByName('Sdate').Value := StrToDate(Sdate);
  ADOQuery1.Open;
end;

引言: 您好﹗ 也可使用Param來做﹐如下﹕

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From smp10100 Where ');
  ADOQuery1.SQL.Add('plandate < :Sdate');
  ADOQuery1.ParamByName('Sdate').Value := StrToDate(Sdate);
  ADOQuery1.Open;
end;

參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

引言: 你好像最後面漏了一個引號喔! 應該要這樣: select * from smp10100 where plandate<''' sdate '''' 試試看... < face="Verdana, Arial, Helvetica"> 這整個語句是當作一個字符串使用的，後面再加半個引號有什麼意義？我不明白。我這個程序是預警系統的一部分，可以自動設定sql語句，然後按照預先設定的排程執行。 互相幫助,共同進步

引言: 這整個語句是當作一個字符串使用的，後面再加半個引號有什麼意義？我不明白。我這個程序是預警系統的一部分，可以自動設定sql語句，然後按照預先設定的排程執行。 互相幫助,共同進步

begin
  sql:='select * from smp10100 where plandate<''' ＋ sdate ＋ ''''
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add()
    Open;
  end;
end;