VC6下ADO数据库编程（1）--动态创建数据库文件

        使用ADO前必须在工程的stdafx.h文件最后用直接引入符号＃import引入ADO库文件，以使编译器能正确编译。代码如下：
#import "c:\program files\common files\system\ado\msadox.dll" rename("EOF","adoxEOF")
#import "C:\Program Files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
        ADO类的定义是作为一种资源存储在ADO DLL(msado15.dll）中，在其内部称为类型库。类型库描述了自治接口，以及C＋＋使用的COM vtable接口。当使用＃import指令时，在运行时Visual C＋＋需要从ADO DLL中读取这个类型库，并以此创建一组C＋＋头文件。这些头文件具有.tli 和.tlh扩展名，读者可以在项目的目录下找到这两个文件。在C＋＋程序代码中调用的ADO类要在这些文件中定义。 
        程序的第三列指示ADO对象不使用名称空间。在有些应用程序中，由于应用程序中的对象与ADO中的对象之间可能会出现命名冲突，所以有必要使用名称空间。如果要使用名称空间，则可把第三行程序修改为： rename_namespace("AdoNS")。第四行代码将ADO中的EOF(文件结束)更名为adoEOF，以避免与定义了自己的EOF的其他库冲突。

msadox.dll创建数据库
msado15.dll操作数据库
msjro.dll压缩修复数据库

动态创建数据库示例代码：

/**
 * 动态创建数据库文件
 * 示例(创建access2000数据库文件):
 * const LPCWSTR DATABASE_SOURCE = L"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\\myDatabase.mdb";
 * const LPCWSTR SQL_CREATE_TABLE= L"create table TimeRecording(RecordingDate Date,Duration Long,Comments Text)";
 * CreateMDB(DATABASE_SOURCE, SQL_CREATE_TABLE);
 * 
 * @param databaseSource 数据源
 * @param sqlCreateTable 创建数据表的语句
 * @return 创建成功返回true,否则false
 */
BOOL CAccessDatabaseDlg::CreateMDB(LPCWSTR databaseSource, LPCWSTR sqlCreateTable)
{
	::CoInitialize(NULL);
	HRESULT hr = S_OK;

	_ConnectionPtr pConnection;
 
	try 
	{
		ADOX::_CatalogPtr pCatalog = NULL;
		hr = pCatalog.CreateInstance(__uuidof (ADOX::Catalog));
  
		if(FAILED(hr))
		{
			_com_issue_error(hr);
		}
		else
		{
			pCatalog->Create(_bstr_t(databaseSource)); //Create mdb
		}

		//Create table
		pConnection.CreateInstance(__uuidof(Connection));
		pConnection->Open(_bstr_t(databaseSource), "", "", adConnectUnspecified);
  
		_variant_t   RecordsAffected;
		CString strSql;
		BSTR bstrSQL;
  
		strSql = _T(sqlCreateTable);
		bstrSQL = strSql.AllocSysString();
		pConnection->Execute(bstrSQL, &RecordsAffected, adCmdText); 
	}
	catch(_com_error &e)  
	{
		AfxMessageBox(e.ErrorMessage());

		pConnection = NULL;
		::CoUninitialize();

		return FALSE;
	}
 
	pConnection->Close();
	pConnection = NULL;

	::CoUninitialize();
 
	return TRUE;
}