C++Builder Personal で DAO

データベースを作成する

void __fastcall TForm1::Button5Click(TObject *Sender)

{

    const AnsiString dbLangJapanese = ";LANGID=0x0411;CP=932;COUNTRY=0";

    const int        dbVersion20    = 16; // Access 2.0

    const int        dbVersion30    = 32; // Access 95

    const int        dbVersion40    = 64; // Access 2000
    // Access95   DAO.DBEngine

    // Access97   DAO.DBEngine.35

    // Access2000 DAO.DBEngine.36

    Variant de = Variant::CreateObject("DAO.DBEngine.36");
    //Edit3 に mdbファイル名を入力

    Variant db = de.Exec(Function("CreateDatabase")<<Edit3->Text<<dbLangJapanese<<dbVersion40);
    db.Exec(Procedure("Close"));

}