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;