引言: 如果想在edit1打入搜尋的資料按下button1可以秀出來要怎樣做(用query1)? ,謝謝

引言: 二個方法：

• 使用Locate的方式：Query1.Locate('FieldName',Edit1.Text,[]);
• 直接下SQL語法：

  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From TableName Where FieldName = :aValue');
    ParamByName('aValue').AsString := Edit1.Text 
    Open;
  end;
  

  ~小弟淺見，參考看看~

SQLQuery1: Parameter 'aaa' not found.

Exception EOleException in module Projict1.exe at 000BAF4B
No value for parameter 'aaa'.

procedure TForm1.Button1Click(Sender: TObject);
begin
    with SQLQuery1 do
    begin
      Close;
      SQL.Clear;
      ParamByName('aaa').AsString := Edit1.Text;
      SQL.Add('Select * From admin Where user = :aaa');
      Open;
    end;
end;

引言:

引言: 二個方法：

• 使用Locate的方式：Query1.Locate('FieldName',Edit1.Text,[]);
• 直接下SQL語法：

  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From TableName Where FieldName = :aValue');
    ParamByName('aValue').AsString := Edit1.Text 
    Open;
  end;
  

  ~小弟淺見，參考看看~

大家好，唔好意思，小弟是新手，有問題想問問: 我用了上面的SQL， 但當Click 那行這段CODE 的button時，就出了這句:

SQLQuery1: Parameter 'aaa' not found.

試過在SQLQuery1的Params 加一個名為aaa 的parameter， 但情況更壞，一RUN個prog 就出

Exception EOleException in module Projict1.exe at 000BAF4B
No value for parameter 'aaa'.

請問是什麼問題? (附CODE:)

procedure TForm1.Button1Click(Sender: TObject);
begin
    with SQLQuery1 do
    begin
      Close;
      SQL.Clear;
      ParamByName('aaa').AsString := Edit1.Text;
      SQL.Add('Select * From admin Where user = :aaa');
      Open;
    end;
end;

謝謝!