ADO 创建 ACCESS

    BOOL CreateAccess(LPCTSTR lpszFileName)
    {

       //#import   "msadox.dll" 拷贝 msadox.dll 到工程目录

       //#import   "C://Program Files//Common Files//System//ado//msadox.dll"   no_namespace

 

       try
        {
            CoInitialize(NULL);
           
            CString   m_strconn;       
            m_strconn.Format(_T("Provider=Microsoft.JET.OLEDB.4.0;Data source=%s"),lpszFileName);
            ADOX::_CatalogPtr pCatalog = NULL;
            HRESULT hr = pCatalog.CreateInstance(__uuidof (ADOX::Catalog));
           
            if(FAILED(hr))
            {
                _com_issue_error(hr);
            }
            else
            {
                pCatalog->Create(_bstr_t(m_strconn)); //Create mdb
            }
            CoUninitialize();
        }
        catch (_com_error & e)
        {
            MessageBox(e.Description());
            return FALSE;
        }
        return TRUE;

    }