CQAPI做试验的时候想列出某个Group 所预定的所有数据库列表，可是总是取不到，不知道哪里写错了，请大大们帮忙看看啊


use CQPerlExt;

$currentSession = CQAdminSession::Build();
$currentSession->Logon("用户名","密码","DBSET");
$groupobj=$currentSession->GetGroup("GroupA");
$dbsobj=$groupobj->GetDatabases();
$num=$dbsobj->Count();
for (0..($num-1)){

$dbobj=$dbsobj->Item($_);
$dbname=$dbobj->GetName();
print "$dbname\n";

}

CQAdminSession::Unbuild($currentSession);


其中，$num 的值总是为0，没有取到～试来试去都一样啊～GroupA 已经预定了5个数据库的～

[ 本帖最后由 jiangmin 于 2007-12-25 09:48 编辑 ]

问题已经解决 [打开主题]

本主题的最佳答案为 [ 8 楼].

代码没看出啥错误，你调试一下看看嘛
检查是哪一步出了问题。

有。。。。

[ 本帖最后由 scmtata 于 2007-12-25 13:15 编辑 ]

当然有这个了，我看的是7.0的API，不知道早期API中有没有。

请教了下组里的老大～已经查到原因了。。。。。

在 User object的 SubscribedDatabases中有类似的说明：如果返回空数组的话，则说明用户预定了所有的数据库
晕啊～在Group object的 GetDatabases方法中确没有提到的～怪不得怎么调返回的都是空数组啊.....

顺便问一下啊～ 如果Group 预定了所有的数据库，用 GetDatabases方法返回的数组为空，那有什么方法可以列出所有的数据库列表啊？

for each dbobj in dbsobj
  msgbox dbobj.Name
Next

预定的所有的数据库，你就可以 通过进入模式数据库，把数据库下的所有用户数据库列出来了

use CQPerlExt;

#Start a Rational ClearQuest session

$sessionObj = CQSession::Build();

#Get a list of accessible databases
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", "");
$count = $databases->Count();

#Foreach accessible database, login as joe with password gh36ak3

for($x=0;$x<$count;$x++){

   $db = $databases->Item($x);
   $dbName = $db->GetDatabaseName();
。。。。
   }
CQSession::Unbuild($sessionObj);
列出的好像是所有数据库，包括模式数据库，
。。。
if (! $db->GetIsMaster() )

[ 本帖最后由 scmtata 于 2007-12-25 16:00 编辑 ]

最佳答案

该回答被楼主/管理员列为正解!

OK ~~~明白了  ：）