Delphi Personal で ADO

テーブルを作成する

procedure TForm1.Button6Click(Sender: TObject);

var

    cat: Variant;//Catalog

    tbl: Variant;//Table

const

    //ADODB.DataTypeEnum

    adArray:            Integer =   8192;

    adBigInt:           Integer =   20;

    adBinary:           Integer =   128;

    adBoolean:          Integer =   11;

    adBSTR:             Integer =   8;

    adChapter:          Integer =   136;

    adChar:             Integer =   129;

    adCurrency:         Integer =   6;

    adDate:             Integer =   7;

    adDBDate:           Integer =   133;

    adDBTime:           Integer =   134;

    adDBTimeStamp:      Integer =   135;

    adDecimal:          Integer =   14;

    adDouble:           Integer =   5;

    adEmpty:            Integer =   0;

    adError:            Integer =   10;

    adFileTime:         Integer =   64;

    adGUID:             Integer =   72;

    adIDispatch:        Integer =   9;

    adInteger:          Integer =   3;

    adIUnknown:         Integer =   13;

    adLongVarBinary:    Integer =   205;

    adLongVarChar:      Integer =   201;

    adLongVarWChar:     Integer =   203;

    adNumeric:          Integer =   131;

    adPropVariant:      Integer =   138;

    adSingle:           Integer =   4;

    adSmallInt:         Integer =   2;

    adTinyInt:          Integer =   16;

    adUnsignedBigInt:   Integer =   21;

    adUnsignedInt:      Integer =   19;

    adUnsignedSmallInt: Integer =   18;

    adUnsignedTinyInt:  Integer =   17;

    adUserDefined:      Integer =   132;

    adVarBinary:        Integer =   204;

    adVarChar:          Integer =   200;

    adVariant:          Integer =   12;

    adVarNumeric:       Integer =   139;

    adVarWChar:         Integer =   202;

    adWChar:            Integer =   130;

begin

    cat := CreateOleObject('ADOX.Catalog');
    //Edit3 に mdbファイル名を入力

    cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
    //Edit4 に テーブル名を入力

    tbl := CreateOleObject('ADOX.Table');

    tbl.Name := Edit4.Text;
    //Edit5, Edit6 に フィールド名を入力

    tbl.Columns.Append(Edit5.Text, adInteger);

    tbl.Columns.Append(Edit6.Text, adVarWChar,50);
    cat.Tables.Append(tbl);

end;