The following code demonstrates how to create a new foreign key. It assumes two tables (Customers and Orders) exist.
#import "c:\Program Files\Common Files\system\ado\msadox.dll" \
no_namespace
#import "c:\Program Files\Common Files\system\ado\msado15.dll"
#include "iostream.h"
#include "stdio.h"
#include "conio.h"
//Function declarations
inline void TESTHR(HRESULT x) {if FAILED(x) _com_issue_error(x);};
void CreateKeyX(void);
//////////////////////////////////////////////////////////
// //
// Main Function //
// //
//////////////////////////////////////////////////////////
void main()
{
if(FAILED(::CoInitialize(NULL)))
return;
CreateKeyX();
::CoUninitialize();
}
//////////////////////////////////////////////////////////
// //
// CreateKeyX Function //
// //
//////////////////////////////////////////////////////////
void CreateKeyX(void)
{
HRESULT hr = S_OK;
// Define ADOX object pointers.
// Initialize pointers on define.
// These are in the ADOX:: namespace.
_KeyPtr m_pKeyForeign = NULL;
_CatalogPtr m_pCatalog = NULL;
//Define other variables
_bstr_t strcnn("Provider=Microsoft.JET.OLEDB.4.0;"
"Data source = c:\\Program Files\\Microsoft Office\\"
"Office\\Samples\\Northwind.mdb;");
try
{
TESTHR(hr = m_pKeyForeign.CreateInstance(__uuidof(Key)));
TESTHR(hr = m_pCatalog.CreateInstance(__uuidof (Catalog)));
m_pCatalog->PutActiveConnection(strcnn);
// Define the foreign key.
m_pKeyForeign->Name = "CustOrder";
m_pKeyForeign->Type = adKeyForeign;
m_pKeyForeign->RelatedTable = "Customers";
m_pKeyForeign->Columns->Append("CustomerId",adVarWChar,0);
m_pKeyForeign->Columns->GetItem("CustomerId")->RelatedColumn =
"CustomerId";
m_pKeyForeign->UpdateRule = adRICascade;
// To pass as column parameter to Key's Apppend method
_variant_t vOptional;
vOptional.vt = VT_ERROR;
vOptional.scode = DISP_E_PARAMNOTFOUND;
// Append the foreign key.
m_pCatalog->Tables->GetItem("Orders")->Keys->
Append(_variant_t((IDispatch *)m_pKeyForeign),
adKeyPrimary,vOptional,L"",L"");
// Delete the key as this is a demonstration.
m_pCatalog->Tables->GetItem("Orders")->Keys->
Delete(m_pKeyForeign->Name);
}
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 occured in include files...."<< endl;
}
}