程序没有错误 但显示不出结果!

Question

procedure TForm1.Button1Click(Sender: TObject);
var
str,linban:string;
begin
      linban:='001';
      adoqs.Close ;
      ADOQS.SQL.Clear ;
      ADOQS.SQL.Add('execute mytfdarea_XiaobanSelect '''+LinBan+'''');
      showmessage(adoqs.SQL.Text );
      try
      ADOQS.Prepared ;
      adoqs.ExecSQL ;
      while not ADOQS.Eof
      do
      begin
         str:=trim(adoqs.Fields.fieldbyname('dl').AsString);
         showmessage(str);
         adoqs.Next ;
      end;
      except
        showmessage('错误！');
      end;
end;存储过程在查询分析器里试过了 没问题 只显示了showmessage(adoqs.sql.text) 然后就开始没反应了 也没显示出错信息！！
帮帮忙了

Answer 1

ADOQS.Prepared ;
      adoqs.ExecSQL ;
      while not ADOQS.Eof
问一下，你的存储过程返回数据集吗？

Answer 2

adoqs.ExecSQL ;
改成
adoqs.open;

Answer 3

什么叫存储过程控件调用呀
加个存储过程控件调用显示好点吧,又何必在程序中执行?
 
还有不是adoqs.execsql是有返回值的吗？怎么要改为adoqs.open

Answer 4

execsql有返回值,但不是结果集