新規MDBファイルを作成する

//Accessを操作するためのオブジェクトライブラリを読みこむ(Access2000用)
#import "C:\Program Files\Microsoft Office\Office\Mso9.dll" no_namespace rename("DocumentProperties", "DocumentPropertiesACC")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\Vbe6ext.olb" no_namespace
#import "C:\Program Files\Common Files\SYSTEM\ADO\msado21.tlb" rename("EOF", "EOF_ACC")
#import "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll" rename("EOF", "EOF_ACC")
#import "C:\Program Files\Microsoft Office\Office\Msacc9.olb"


//実行用コード
void CAccnewDlg::OnButton1() 
{
	using namespace Access;
	_ApplicationPtr pAppMdb;
	
	//Accessを起動する
	pAppMdb.CreateInstance(L"Access.Application");

	//表示させる
	pAppMdb->Visible = true;

	//新規MDBファイルを作成
	pAppMdb->NewCurrentDatabase("C:\\temp\\db3.mdb");

	AfxMessageBox("動作確認のために一時停止");

	//Accessアプリケーションを保存終了
	pAppMdb->Quit(acQuitSaveAll);	
}