ForNext

02. テーブルを作成する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    //DAO.DataTypeEnum
    const int dbBigInt    = 16;
    const int dbBinary    = 9;
    const int dbBoolean   = 1;
    const int dbByte      = 2;
    const int dbChar      = 18;
    const int dbCurrency  = 5;
    const int dbDate      = 8;
    const int dbDecimal   = 20;
    const int dbDouble    = 7;
    const int dbFloat     = 21;
    const int dbGUID      = 15;
    const int dbInteger   = 3;
    const int dbLong      = 4;
    const int dbLongBinary= 11;
    const int dbMemo      = 12;
    const int dbNumeric   = 19;
    const int dbSingle    = 6;
    const int dbText      = 10;
    const int dbTime      = 22;
    const int dbTimeStamp = 23;
    const int dbVarBinary = 17;

    //データベースを開く (排他モード = true, 読み込み専用 = false)
    Variant de = Variant::CreateObject("DAO.DBEngine.36");
    Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << true << false);

    //テーブル定義を作成
    Variant td = db.Exec(Function("CreateTableDef") << "M_商品");

    //フィールド定義コレクションを作成
    Variant fields = td.Exec(Function("Fields"));

    //フィールドを追加
    Variant field  = td.Exec(Function("CreateField") << "商品CD" << dbInteger);
    fields.Exec(Procedure("Append") << field);

    field = td.Exec(Function("CreateField") << "商品名" << dbText << 50);
    fields.Exec(Procedure("Append") << field);

    field = td.Exec(Function("CreateField") << "ふりがな" << dbText << 50);
    fields.Exec(Procedure("Append") << field);

    //テーブルを追加
    Variant tableDefs = db.Exec(Function("TableDefs"));
    tableDefs.Exec(Procedure("Append") << td);

    //データベースを閉じる
    db.Exec(Procedure("Close"));
}

VC++

C#

Java

Objective-C

D

VB

Private Sub Command2_Click()
    'データベースを開く (排他モード = True, 読み込み専用 = False)
    Dim db As Database
    Set db = DBEngine.OpenDatabase("e:\test.mdb", True, False)

    'テーブル定義を作成
    Dim td As TableDef
    Set td = db.CreateTableDef("M_商品")

    'フィールドを追加
    td.Fields.Append td.CreateField("商品CD", dbInteger)
    td.Fields.Append td.CreateField("商品名", dbText, 50)
    td.Fields.Append td.CreateField("ふりがな", dbText, 50)

    'テーブルを追加
    db.TableDefs.Append td

    'データベースを閉じる
    db.Close
End Sub

VB.NET

Delphi

procedure TForm1.Button2Click(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
    //データベースを開く (排他モード = true, 読み込み専用 = false)
    de := CreateOleObject('DAO.DBEngine.36');
    db := de.OpenDatabase('e:\test.mdb', true, false);

    //テーブル定義を作成
    td := db.CreateTableDef('M_商品');

    //フィールドを追加
    td.Fields.Append(td.CreateField('商品CD', dbInteger));
    td.Fields.Append(td.CreateField('商品名', dbText, 50));
    td.Fields.Append(td.CreateField('ふりがな', dbText, 50));

    //テーブルを追加
    db.TableDefs.Append(td);

    //データベースを閉じる
    db.Close;
end;

Ada

PL/SQL

T-SQL