关于查询

Question

每次运行就会出现错误这是原代码请帮看看错在哪里。
procedure TForm_cxmessage.srchaxunClick(Sender: TObject);
begin
  ADOQsr.ConnectionString:= 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=message;Data Source=.';
  DataSource1.DataSet:= ADOQsr;
  DBGrid1.DataSource := DataSource1;
  with ADOQsr do
  begin
    ADOQsr.Close;
    ADOQsr.SQL.Clear;
    ADOQsr.SQL.text:='select * from srmessage where srname=:srname';
    ADOQSr.FieldByName('srname').Asstring := edit1.Text;
    ADOQsr.ExecSQL;
  end;
end;
错误代码提示为：
'ADOQsr:Field'srname'not found'

Answer 1

你的这个语句有问题，你是不是要做一个更新？
那你用update不就行了
    ADOQsr.Close;
    ADOQsr.SQL.Clear;
    ADOQsr.SQL.text:='update srmessage set srname = ''' + edit1.Text + ''' where srname=:srname';
    ADOQsr.ExecSQL;

Answer 2

ADOQSr.FieldByName('srname').Asstring := edit1.Text;为 ADOQSr.ParamBynsme('srname').Asstring := edit1.Text;

Answer 3

ADOQuery1.Parameters.ParamByName().Value := 刚才错了