ADOStoredProc 执行存储过程以后怎么样取得结果？

Question

ADOStoredProc.open();以后怎么样取得结果？
又怎样取得存储过程中的output值？

Answer 1

用DataSource+DBGrid 不就可以取得了!

Answer 2

赋完参数以后OPEN ADOStoredProc 
然后就可以提它的数据出来了呀，TABLE一样的，不过你一定要现在存储过程里先把你想提的数据SELECT出来

Answer 3

下面的搞定 output 参数：
function TMonitor.Login(UserName, Password: string): Boolean;
begin
  try
    ADOStoredProc := TADOStoredProc.Create(nil);
    ADOStoredProc.Connection := ADOConnection;    ADOStoredProc.ProcedureName := 'sp_Monitors_Login';
    ADOStoredProc.Parameters.CreateParameter('UserName', ftString, pdInput, 20, UserName);
    ADOStoredProc.Parameters.CreateParameter('Password', ftString, pdInput, 20, Password);
    ADOStoredProc.Parameters.CreateParameter('Result', ftBoolean, pdReturnValue, 1, 0);    ADOStoredProc.Prepared := True;
    ADOStoredProc.ExecProc;
    Result := ADOStoredProc.Parameters.ParamByName('Result').Value;
  finally
    ADOStoredProc.Free;
  end;
end;

Answer 4

下面的搞定 返回的记录集procedure TfrmMain.TwoDatasetReturn;
var
  i, j:            Integer;
  dsGroupTree: TADODataSet;
  dsAccountGroups: TADODataSet;
  Rows:  OLEVariant;begin
  //填充分组列表  
  ClearTreeView(tvGroups); dsAccountGroups := nil;
  dsGroupTree := nil;
  try
   dsGroupTree := TADODataSet.Create(nil);
    dsAccountGroups := TADODataSet.Create(nil);    dsGroupTree.Connection := ADOConn1;
    dsGroupTree.CommandText := 'sp_Groups_Tree';
    dsGroupTree.CommandType := cmdStoredProc;
    dsGroupTree.Open;
    //dsGroupTree.RecordCount;              //OK
    dsAccountGroups.Recordset := dsGroupTree.Recordset.NextRecordset(Rows);
    //dsAccountGroups.RecordCount;          //OK
    
      //TopGroup.GroupID := dsGroupTree.Recordset.Fields.Item['TopGroupID'].Value;
            
        finally
    dsAccountGroups.Recordset.Close;
    dsAccountGroups.Close;
    dsGroupTree.Close;
    dsGroupTree.Free;
  end;

Answer 5

ADOStoredProc  本身就是个Dataset 要这么烦的吗? 如是要取得返回值同意 Highhat(Highhat) .

Answer 6

多谢多谢，感激感激。
各位大哥辛苦了。主要是Highhat大哥让我明白了整个过程。
谢谢。