（转载）ADOQuery参数传递

ADOQuery参数传递

dbgrid1.DataSource := datasource1;
datasource1.DataSet := adoquery1;
Value := 1221;
SQL := 'SELECT * FROM customer WHERE CustNo>:Number';
adoquery1.SQL.Clear;
adoquery1.Parameters.Clear;
adoquery1.sql.Add(SQL);
// adoquery1.ParamCheck := true;
adoquery1.Parameters.ParamByName('Number').Value := strtointdef(edit1.Text, 1);

adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from new where 1=1');
adoquery1.SQL.Add('and 购货单位=:company');
adoquery1.SQL.Add('and 品名=:name');
adoquery1.Parameters[0].Value:=edit1.Text;
adoquery1.Parameters[1].value:=edit2.Text;
adoquery1.Open;
应该成

adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from new where 1=1');
adoquery1.SQL.Add('and 购货单位=:company');
adoquery1.SQL.Add('and 品名=:name');
adoquery1.Parameters.ParamValues['company']:=edit1.Text;
adoquery1.Parameters.ParamValues['name']:=edit2.Text;
adoquery1.Open;

或
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from new where 1=1');
adoquery1.SQL.Add('and 购货单位=:company');
adoquery1.SQL.Add('and 品名=:name');
adoquery1.Parameters.ParamByName(''company').value:=edit1.text;
adoquery1.Parameters.ParamByName('name').value:=edit2.text;
adoquery1.Open;

http://www.delphibbs.com/keylife/iblog_show.asp?xid=22167