在线等待，谢谢！很简单的问题

Question

if MessageDlg('确定要注销用户吗？',mtConfirmation,[mbYes,mbNo],0)= mrYes then
   begin
   adoquery3.Close;
   adoquery3.SQL.Clear;
   adoquery3.SQL.Add('delete from cardtable where card_id={select card_id from usertable where user_id=:a1}');
   adoquery3.Parameters.ParamByName('a1').Value:=edit1.Text;
提示我说parameter 'a1'is not found
请教应该如何更正

Answer 1

在你的adoquery3.SQL.Clear;之后加个参数声明
============================
ADOQuery1.Parameters.Clear;
ADOQuery1.Parameters.CreateParameter('al',ftstring,pdInput,10,0);

Answer 2

adoquery3.Parameters.ParamByName('a1').Value:=edit1.Text; 
改成：
adoquery3.Parameters[0].Value := edit1.Text;

Answer 3

你的adoquery里的parameters属性没设置。加上就可以了