急求帮助  DELPHI调试过程中出现的问题

                            
procedure   TForm6.Button1Click(Sender:   TObject);   
  begin  
    with   ADOStoredProc1   do  
  begin  
  close;  
  Parameters.ParamByName('@xh').Value:=edit1.text;  
  execproc;  
  edit1.Text:='';  
  edit1.SetFocus;  
  showmessage('删除记录成功')  
  end;  
   
  end;  
  end.  
   
  大家看一下这是我在前台的代码   
   
  存储过程如下:  
   
  CREATE   PROCEDURE   delete_xs  
  (@xh   char(6))  
      AS  
    if   @xh   is   not   null  
  begin  
  if   not   exists(   select   *from   xs   where   学号=@xh)  
  print('此记录不存在!!')  
  else  
  delete   from   xs   where   学号=@xh  
  end  
   
   
  GO  
   
  但是我连接后调试的过程中没有出现错误但是在我调试后执行输入'学号'点击删除的时候出现错误  
   
   
  提示如下:  
  ParamByName('@xh')not   found   进程中止   
   
 

查看回复