没分了（关于ADO）我实在没有办法了

[gaoxiaofei]

前面都对 运行到Cmd1->Execute( NULL, NULL, adCmdStoredProc);
的时候 就出错

再不帮出人命了 ：）

::CoInitialize(NULL);
::AfxOleInit();

_ConnectionPtr Conn1;
_CommandPtr Cmd1;
_RecordsetPtr Rs1;

CString szError;
CString strTmp = _T("ADSDSOObject");

_bstr_t bstrEmpty(L"");
_bstr_t bstrSQLServerConnect;
bstrSQLServerConnect = (LPCTSTR) strTmp;

Conn1.CreateInstance( __uuidof( Connection ) );
hr = Conn1->Open("Provider=ADsDSOObject;", "administrator", "1", adConnectUnspecified);
Cmd1.CreateInstance( __uuidof( Command ) );
Cmd1->ActiveConnection = Conn1;

Cmd1->CommandType = adCmdStoredProc;

_ParameterPtr pReturn;
COleVariant varRet;

Cmd1->CommandText = "SELECT AdsPath FROM 'LDAP://mse-rootd.dlmse.local/dc=mse-rootd,dc=dlmse,dc=local'";
try
{
Cmd1->Execute( NULL, NULL, adCmdStoredProc);

COleVariant varResult;
varResult = pReturn->GetValue();
int nret = varResult.iVal;
TRACE( "%d\n", nret);

pReturn.Release();
Cmd1.Release();
Conn1->Close();
Conn1.Release();
}
catch( _com_error &e)
{
TRACE( "ErrNo = 0x%x\n", (long)e.Error());
TRACE( "ErrMsg = %s\n", e.ErrorMessage());

Cmd1.Release();
Conn1->Close();
Conn1.Release();
::CoUninitialize();
return;
}