sql 中like怎么用呀？！大虾近来看看！

Question

procedure TForm2.Button1Click(Sender: TObject);
begin
       ADODataSet1.Close; 
       ADODataSet1.CommandText:='select * from delphi_users where username like "%=:a%"';
       ADODataSet1.Parameters.ParamByName('a').Value:= Trim(Edit1.Text);
       ADODataSet1.Open;
end;参数那里怎么写呀？！多谢！

Answer 1

ADODataSet1.CommandText:='select * from delphi_users where username like :a';
ADODataSet1.Parameters.ParamByName('a').Value:= '%'+Trim(Edit1.Text)+'%';

Answer 2

ADODataSet1.CommandText:='select * from delphi_users where username like ''%'+Trim(Edit1.Text)+'%''';