Hi Edward Chen,    1.請參考 http://delphi.ktop.com.tw/topic.php?topic_id=46198 http://delphi.ktop.com.tw/topic.php?topic_id=41823 試著將程式碼改成這樣試試：

procedure TForm1.Button1Click(Sender: TObject);
var
  p_condition : String;
begin
  p_condition := '1 = 1';
  ADOQuery1.Close;
  ADOQuery1.Parameters.Clear;
  ADOQuery1.SQL.Clear;      some process for p_condition ....      ADOQuery1.SQL.Add('select * from table where '   p_condition);
  ADOQuery1.Open;
end;

2.:Condition的地方被換成了? --> 正常的 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

您指教的是 ADO的部份我沒有遇到問題，都是正常的，怎麼用都不會出錯。 但是當使用BDE的Query時，不管是Select、Insert、Update或Delete時 會遇到ParamByName的參數傳不進去，但是Compile沒錯誤， SQL(Oracle 9i Oracle Client7.3)執行的結果就會沒成功 不知道是不是有環境上的問題。 另外使用Parameters時是不是一定要做.Clear來表示init呢? 感謝這個網站

------
Signed by Edward Chen

Hi Edward Chen,    Select 應該是 Open  Insrte 與 Update 用 ExecSQL    若是 BDE 的話，在不設定 Parameter 的狀態下，可以試試以下方法

procedure TForm1.Button2Click(Sender: TObject);
begin
  Query1.Close;
  Query1.Params.Clear;
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from hr_emp_base where id like :p_id || '   Quotedstr('%')   ' or name like :p_name || '   Quotedstr('%'));
  Query1.Params[0].AsString := Edit1.Text;
  Query1.Params[1].AsString := Edit1.Text;
  Query1.Open;
end;

若還是不行，請 Post 上你的 Error Message 以方便判斷 (我猜測應該是 Query1:Parameter 'xx' not found.) ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman