ForNext
Only Do What Only You Can Do
02. テーブルを作成する
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2005.12.13
void __fastcall TForm1::Button6Click(TObject *Sender) { //ADODB.DataTypeEnum const int adArray = 8192; const int adBigInt = 20; const int adBinary = 128; const int adBoolean = 11; const int adBSTR = 8; const int adChapter = 136; const int adChar = 129; const int adCurrency = 6; const int adDate = 7; const int adDBDate = 133; const int adDBTime = 134; const int adDBTimeStamp = 135; const int adDecimal = 14; const int adDouble = 5; const int adEmpty = 0; const int adError = 10; const int adFileTime = 64; const int adGUID = 72; const int adIDispatch = 9; const int adInteger = 3; const int adIUnknown = 13; const int adLongVarBinary = 205; const int adLongVarChar = 201; const int adLongVarWChar = 203; const int adNumeric = 131; const int adPropVariant = 138; const int adSingle = 4; const int adSmallInt = 2; const int adTinyInt = 16; const int adUnsignedBigInt = 21; const int adUnsignedInt = 19; const int adUnsignedSmallInt = 18; const int adUnsignedTinyInt = 17; const int adUserDefined = 132; const int adVarBinary = 204; const int adVarChar = 200; const int adVariant = 12; const int adVarNumeric = 139; const int adVarWChar = 202; const int adWChar = 130; Variant cat = Variant::CreateObject("ADOX.Catalog"); //Edit3 に mdbファイル名を入力 cat.Exec(PropertySet("ActiveConnection")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";"); //Edit4 に テーブル名を入力 Variant tbl = Variant::CreateObject("ADOX.Table"); tbl.Exec(PropertySet("Name")<<Edit4->Text); //Edit5, Edit6 に フィールド名を入力 Variant columns = tbl.Exec(Function("Columns")); columns.Exec(Procedure("Append")<<Edit5->Text<<adInteger); columns.Exec(Procedure("Append")<<Edit6->Text<<adVarWChar<<50); Variant tables = cat.Exec(Function("Tables")); tables.Exec(Procedure("Append")<<tbl); }
VC++
C#
Java
Objective-C
D
VB
VB.NET
Delphi
更新日 : 2005.12.13
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;