计算机上不装ACCESS数据库,如何创建ACCESS数据库.代码如下:
ADOX::_CatalogPtr pCatalog(__uuidof(ADOX::Catalog));
_bstr_t str="Provider=Microsoft.Jet.OLEDB.4.0;data source=C:\\123.mdb";
try
{
pCatalog->Create(str); //创建数据库
}
catch(_com_error &e)
{
::MessageBox(NULL,_T("数据库创建失败。"), _T("提示"),MB_OK | MB_ICONINFORMATION);
}
CoUninitialize();
ADOX::_CatalogPtr pCatalog(__uuidof(ADOX::Catalog));
_bstr_t str="Provider=Microsoft.Jet.OLEDB.4.0;data source=C:\\123.mdb";
try
{
pCatalog->Create(str); //创建数据库
}
catch(_com_error &e)
{
::MessageBox(NULL,_T("数据库创建失败。"), _T("提示"),MB_OK | MB_ICONINFORMATION);
}
CoUninitialize();
::CoInitialize (NULL); // 由于ado是com组件,
// 因此使用ado之前还要初始化com环境
ADOX::_CatalogPtr m_pCatalog(__uuidof(ADOX::Catalog));
CString strFilePath;
strFilePath.Format("Provider=Microsoft.JET.OLEDB.4.0; Data source = %s",
mFilePathName); // 格式化文件路径try
{
hr = m_pCatalog.CreateInstance (__uuidof (ADOX::Catalog));if(FAILED(hr))
_com_issue_error (hr);
else
{
m_pCatalog->Create(_bstr_t(strFilePath)); // 创建MDB
}
m_bCreateAccess = TRUE;
m_bCreateExcel = FALSE;
}
catch(_com_error e)
{
m_bCreateAccess = FALSE; // 将创建数据库文件成功标志位置为FALSE
AfxMessageBox("创建数据库失败!!!");
}
否则,巧妇难为无米之炊~