ADO中OpenSchema的用法,各位高手帮帮忙啊!!

[happy_luo]

代码如下:
CString strUserID="sa";
CString strPassword="";
CString strConn="Provider=OraOLEDB.Oracle;Persist Security Info=False;Data
Source=insces";
try
{
pConnection.CreateInstance(__uuidof(Connection));
pConnection->Open(_bstr_t(strConn), _bstr_t(trUserID),
_bstr_t (strPassword),adConnectUnspecified);
catch (_com_error e)
{
AfxMessageBox("数据库连接有错误");
return FALSE;
}
//得到表的主键相关信息
SAFEARRAY FAR* psa = NULL;
SAFEARRAYBOUND rgsabound;
_variant_t var;
_variant_t Array;
rgsabound.lLbound = 0;
rgsabound.cElements = 3;
psa = SafeArrayCreate(VT_VARIANT, 1, &rgsabound);
long ix;
//PK_TABLE_CATALOG
ix = 0;
var.vt = VT_EMPTY;
SafeArrayPutElement(psa, &ix, &var);
//PK_TABLE_SCHEMA
ix=1;
var.vt = VT_EMPTY;
SafeArrayPutElement(psa, &ix, &var);
//PK_TABLE_NAME
CString m_strTableName="blockstatename";
ix=2;
var.vt=VT_BSTR;
var.bstrVal=_bstr_t(m_strTableName);//表名
SafeArrayPutElement(psa, &ix, &var);

Array.vt = VT_ARRAY|VT_VARIANT;
Array.parray = psa;
try
{
pRstSchema = pConnection->OpenSchema(adSchemaPrimaryKeys,&Array);
}
catch (_com_error e)
{
AfxMessageBox("记录集打开有错误");
return FALSE;
}
int number=pRstSchema->GetRecordCount();
pRstSchema->MoveFirst();
while(!(pRstSchema->EndOfFile))
{
_bstr_t column_name=pRstSchema->GetFields()->GetItem("COLUMN_NAME")->Value;
_bstr_t primarykey_name=pRstSchema->GetFields()->GetItem("PK_NAME")->Value;
}
以上是我写的程序,数据库连接是正确的,blockstatename这张表有两个主键,但是调试到
int number=pRstSchema->GetRecordCount();这句时
number为-1,下面的语句也不能运行了,我找了半天原因也没找到,求求各位高手帮帮忙,看看问题出在哪里,我先谢谢了!!

[内存泄漏]

pRstSchema->MoveFirst();
把这条语句写在int number=pRstSchema->GetRecordCount();前面试试看。。

[happy_luo]

如果number为-1，证明记录集里没有任何数据，在往下运行pRstSchema->MoveFirst();肯定会出错，我就是不知道记录集里的数据为什么会为空，也就是OpenSchema(adSchemaPrimaryKeys,&Array);的参数是不是用错了

[Kudeet]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthopenschemaxvc.asp

遍历得到