Delphi Personal で DAO

テーブルを作成する

procedure TForm1.Button6Click(Sender: TObject);

var

    de:Variant;//DBEngine

    db:Variant;//Database

    td:Variant;//TableDef

const

    //DAO.DataTypeEnum

    dbBigInt:    Integer = 16;

    dbBinary:    Integer = 9;

    dbBoolean:   Integer = 1;

    dbByte:      Integer = 2;

    dbChar:      Integer = 18;

    dbCurrency:  Integer = 5;

    dbDate:      Integer = 8;

    dbDecimal:   Integer = 20;

    dbDouble:    Integer = 7;

    dbFloat:     Integer = 21;

    dbGUID:      Integer = 15;

    dbInteger:   Integer = 3;

    dbLong:      Integer = 4;

    dbLongBinary:Integer = 11;

    dbMemo:      Integer = 12;

    dbNumeric:   Integer = 19;

    dbSingle:    Integer = 6;

    dbText:      Integer = 10;

    dbTime:      Integer = 22;

    dbTimeStamp: Integer = 23;

    dbVarBinary: Integer = 17;
begin

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

    db  := de.OpenDatabase(Edit3.Text,false, false);
    //Edit4 に テーブル名を入力

    td := db.CreateTableDef(Edit4.Text);
    //Edit5, Edit6 に フィールド名を入力

    td.Fields.Append(td.CreateField(Edit5.Text, dbInteger));

    td.Fields.Append(td.CreateField(Edit6.Text, dbText));
    db.TableDefs.Append(td);

    db.Close;

end;