15,978
社区成员
发帖
与我相关
我的任务
分享
LPWABOPEN lpfnWABOpen = NULL; // Defined in Wabapi.h.
HINSTANCE hinstWAB = NULL;
// Initialize <tla rid="tla:wab" /> and get an instance
// of IWABObject.
HRESULT InitWAB (LPWABOBJECT *lppWABObject, LPADRBOOK
*lppAdrBook)
{
HRESULT hr = E_FAIL;
hinstWAB = LoadLibrary_WABDll();
{
if (hinstWAB)
{
lpfnWABOpen = (LPWABOPEN) GetProcAddress
(hinstWAB, "WABOpen");
if (lpfnWABOpen)
hr = lpfnWABOpen (lppAdrBook, lppWABObject,
NULL, 0);
}
}
return hr;
}
#import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL" no_namespace
try
{
IJetEnginePtr jet(__uuidof(JetEngine));
jet->CompactDatabase(
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb",
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc.mdb;" \
"Jet OLEDB:Engine Type=4");
}catch(_com_error &e){
::MessageBox(NULL,(LPCTSTR)e.Description(),"",MB_OK) ;
}