How to create mdb dynamic(vc6.0+ado)?_vc6.0 dll coinitialize ado-优快云博客

本文链接：https://blog.youkuaiyun.com/taianmonkey/article/details/660524

本文提供了一个使用VC6.0和ADO创建MDB格式数据库的示例代码。通过提供的步骤和代码片段，程序员可以了解如何从头开始创建一个Microsoft Access数据库。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

In csdn bbs, I found there was a lot of programmer to ask how to create mdb dynamic?

Now I give my resolvent!

here is the main code(vc6.0+ado):

#import "c:/Program Files/Common Files/system/ado/msadox.dll" rename_namespace("ADOX") 
#import "c:/Program Files/Common Files/System/ADO/msado15.dll" /
	 rename_namespace("ADO") rename("EOF", "EndOfFile")
#pragma warning (disable: 4146)
#include "icrsint.h"
#include "Shlwapi.h"
#pragma comment(lib,"Shlwapi.lib")

using namespace ADO;

CoInitialize(NULL);

using namespace ADOX;
_CatalogPtr m_pCatalog = NULL;
CString strConnection, strTable;
TCHAR chFilePath[MAX_PATH];

GetModuleFileName(NULL,chFilePath,MAX_PATH);
(_tcsrchr(chFilePath, '//'))[1] = 0;
lstrcat(chFilePath , _T("Test.mdb"));

strTable = chFilePath;

strConnection = _T("Provider=Microsoft.JET.OLEDB.4.0;Data source = ") + strTable + _T(";Jet OLEDB:Engine Type=5;");

if(!PathFileExists(chFilePath))
{
  try
  {
    m_pCatalog.CreateInstance(__uuidof(Catalog));
    m_pCatalog->Create(_bstr_t(strConnection ));	
  }
  catch(...)
  {
    m_pCatalog->Release();
    m_pCatalog = NULL;
    CoUninitialize();
  }
  m_pCatalog->Release();

  // m_pCatalog->Release();
  // m_pCatalog = NULL;
}
CoUninitialize();

if there is some errors,please email to me :  monkeycd@163.com  :)

operating system:winxp+vc6.0+vsp6.0+access2000