Delphi Personal で DAO

データベースを作成する

procedure TForm1.Button5Click(Sender: TObject);

var

    de:Variant;//DBEngine

    db:Variant;//Database

const

    dbLangJapanese:string  = ';LANGID=0x0411;CP=932;COUNTRY=0';

    dbVersion20:   Integer = 16; // Access 2.0

    dbVersion30:   Integer = 32; // Access 95

    dbVersion40:   Integer = 64; // Access 2000

begin

    // Access95   DAO.DBEngine

    // Access97   DAO.DBEngine.35

    // Access2000 DAO.DBEngine.36

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

    db := de.CreateDatabase(Edit3.Text,dbLangJapanese, dbVersion40);

    db.Close;

end;