ADO调用不返回结果的oracle存储过程，还是出错？？

Question

方法1 ：adodataset
 with  ADODataSet1 do
              begin
                  Connection:=ADOConnection1;
                  CommandType:=cmdText;
                  CommandText:='{call modi_process('+inttostr(processid)+',''0701'')}';
                  showmessage(CommandText);
                   Open;
            end;方法2：adostoredproc
 with ADOStoredProc1 do
      begin
        Connection := ADOConnection1;
        Parameters.Clear;
        ProcedureName:= 'modi_process';
        Parameters.CreateParameter('processid_in',ftinteger,pdInput,10,processid);
        Parameters.CreateParameter('node_code_in',ftstring,pdInput,5,'0701');
         Open;
      end;
  出错信息相同,当前提供程序不支持从单一执行返回多个记录集

Answer 1

存储过程肯定没有问题，在sqlplus中通过，程序也执行了，就是只运行一遍就出错！

Answer 2

ADOStoredProc应该用ExecProc执行吧，
Open;换成
ExecProc;