明日交东西.急死我了.帮我呀.

Question

procedure TForm1.Button2Click(Sender: TObject);
var
ff:string;
begin
ff:=ADODataSet1.Fields[0].FieldName;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from kh where'+'['+ff+']'+'=:sm');
ADOQuery1.Parameters.ParamByName('sm').Value:=Edit2.Text;
ADOQuery1.Open;
end;这段代码为何在查询时无法实现.

Answer 1

procedure TForm1.Button2Click(Sender: TObject);var
ff:string;
begin
ff:=ADODataSet1.Fields[0].FieldName;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from kh where '+ff+'=:sm');
ADOQuery1.Parameters.ParamByName('sm').Value:=Edit2.Text;
ADOQuery1.Open;
end;
试试