BDE的Tquery动态Sql问题

Question

我在Delphi7 下用BDE的Tqurey控件连接的Oracle数据库，想动态修改Tqurey的Sql属性来改变查询的数据，为什么运行的时候总是错误：Project Project1.exe raised exception class EDBEngineError with message’Operation not applicable.’.Process stopped,Use step or Run to continue.我的原代码如下：procedure TForm3.FormCreate(Sender: TObject);
begin
  Query1.Open;
end;procedure TForm3.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mybase where yflb=:yflb');
query1.Prepare;
query1.ParamByName('yflb').AsString:=edit1.Text;
query1.Open ;
end;end.请高手指点指点，我真的不知道是哪里的问题,自已调了很久都找不到问题所在,5555555????

Answer 1

procedure TForm3.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mybase where yflb=:yflb');
//query1.Prepare;
query1.params.ParamByName('yflb').value:=edit1.Text;
query1.Open ;
end;

Answer 2

procedure TForm3.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from mybase where yflb=:yflb');
//query1.Prepare;
query1.params.ParamByName('yflb').datatype:=ftstring;
query1.params.ParamByName('yflb').value:=edit1.Text;
query1.Open ;
end;