C++Builder Tips

Jetデータベース・データベースの作成(DAO/OLE経由)

Jetデータベースを作成するサンプルです。

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <dbdaoint.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　Variant vDAO;
　　Variant vDB;

　　AnsiString str = ExtractFilePath(Application->ExeName) + "TEST.mdb";

　　if (FileExists(str)){
　　　　ShowMessage("データベースは存在しています。");
　　　　return;
　　}
　　//CreateObjectで使用するオブジェクト名は
　　// Access95の場合 DAO.DBEngine
　　// Access97の場合 DAO.DBEngine.35
　　// Access2000の場合DAO.DBEngine.36
　　vDAO = Variant::CreateObject("DAO.DBEngine.35");
　　vDB = vDAO.Exec(Function("CreateDatabase") << str << dbLangGeneral << dbVersion30);
　　vDB.Exec(Procedure("Close"));
}
//---------------------------------------------------------------------------


DownLoad bcbtips046.lzh 4KB(BCB5)