Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
The following code demonstrates how to use the Command property with the Command object to retrieve parameter information for the procedure.
// BeginProcedureParametersCpp.cpp
// compile with: /EHsc
#import "msado15.dll" rename("EOF", "EndOfFile")
#import "msadox.dll" no_namespace
#include "iostream"
using namespace std;
// Function declarations
inline void TESTHR(HRESULT x) {if FAILED(x) _com_issue_error(x);};
void ProcedureParametersX(void);
int main() {
if ( FAILED(::CoInitialize(NULL)) )
return -1;
ProcedureParametersX();
::CoUninitialize();
}
void ProcedureParametersX() {
HRESULT hr = S_OK;
// Define and initialize ADOX object pointers. These are in ADODB namespace.
_CatalogPtr m_pCatalog = NULL;
//Define ADODB object pointers.
ADODB::_ConnectionPtr m_pCnn = NULL;
ADODB::_CommandPtr m_pCommand = NULL;
ADODB::_ParameterPtr m_pParameter = NULL;
try {
TESTHR(hr = m_pCnn.CreateInstance(__uuidof(ADODB::Connection)));
// Open the Connection
m_pCnn->Open("Provider='Microsoft.JET.OLEDB.4.0';Data Source='c:\\Northwind.mdb';", "", "", NULL);
TESTHR(hr = m_pCatalog.CreateInstance(__uuidof(Catalog)));
// Open the catalog
m_pCatalog->PutActiveConnection(_variant_t((IDispatch *)m_pCnn));
// Get the command object
m_pCommand = m_pCatalog->Procedures->GetItem("CustomerById")->GetCommand();
_variant_t vIndex;
// Retrieve Parameter information
m_pCommand->Parameters->Refresh();
for ( long lIndex = 0 ; lIndex < m_pCommand->Parameters->Count ; lIndex ++ ) {
vIndex = lIndex;
m_pParameter = m_pCommand->Parameters->GetItem(vIndex);
cout << m_pParameter->Name << ":" << m_pParameter->Type << "\n" << endl;
}
}
catch(_com_error &e) {
// Notify the user of errors if any.
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
printf("\n\tSource : %s \n\tdescription : %s \n ", (LPCSTR)bstrSource, (LPCSTR)bstrDescription);
}
catch(...) {
cout << "Error occurred in ProcedureParametersX...." << endl;
}
}