home > OLE オートメーション > DAO >

ForNext

Only Do What Only You Can Do

01. データベースを作成する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

更新日 : 2006.07.15
void __fastcall TForm1::Button1Click(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");
    Variant db = de.Exec(Function("CreateDatabase") << "e:\\test.mdb" << dbLangJapanese << dbVersion40);
    db.Exec(Procedure("Close"));
}

VC++

C#

Java

Objective-C

D

VB

更新日 : 2006.07.15
Private Sub Command1_Click()
    'Access 2.0  dbVersion20
    'Access 95   dbVersion30
    'Access 2000 dbVersion40
    Dim db As Database
    Set db = DBEngine.CreateDatabase("e:\test.mdb", dbLangJapanese, dbVersion40)
    db.Close
End Sub

VB.NET

Delphi

更新日 : 2006.07.15
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;

procedure TForm1.Button1Click(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');
    db := de.CreateDatabase('e:\test.mdb', dbLangJapanese, dbVersion40);
    db.Close;
end;

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system