ForNext
Only Do What Only You Can Do
03. フィールドの説明を設定する
VBScript
JScript
Perl
PHP
Python
Ruby
PowerShell
Scala
F#
C
C++
C++Builder
更新日 : 2006.07.15
void __fastcall TForm1::Button3Click(TObject *Sender) { //データベースを開く (排他モード = true, 読み込み専用 = false) Variant de = Variant::CreateObject("DAO.DBEngine.36"); Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << true << false); //テーブル定義を取得 Variant td = db.Exec(PropertyGet("TableDefs") << "M_商品"); //フィールドの説明を設定 const int dbText = 10; Variant fd = td.Exec(PropertyGet("Fields") << "商品CD"); Variant prp = fd.Exec(Function("CreateProperty") << "Description" << dbText << "商品コードです"); Variant prps = fd.Exec(Function("Properties")); prps.Exec(Procedure("Append") << prp); //データベースを閉じる db.Exec(Procedure("Close")); }
VC++
C#
Java
Objective-C
D
VB
更新日 : 2006.07.15
Private Sub Command3_Click() 'データベースを開く (排他モード = True, 読み込み専用 = False) Dim db As Database Set db = DBEngine.OpenDatabase("e:\test.mdb", True, False) 'テーブル定義を取得 Dim td As TableDef Set td = db.TableDefs("M_商品") 'フィールドの説明を設定 Dim prp As Property Set prp = td.Fields("商品CD").CreateProperty("Description", dbText, "商品コードです") td.Fields("商品CD").Properties.Append prp 'データベースを閉じる db.Close End Sub
VB.NET
Delphi
更新日 : 2006.07.15
procedure TForm1.Button3Click(Sender: TObject); var de: Variant;//DBEngine db: Variant;//Database td: Variant;//TableDef prp:Variant;//Property const dbText: Integer = 10; begin //データベースを開く (排他モード = true, 読み込み専用 = false) de := CreateOleObject('DAO.DBEngine.36'); db := de.OpenDatabase('e:\test.mdb', true, false); //テーブル定義を取得 td := db.TableDefs['M_商品']; //フィールドの説明を設定 prp := td.Fields['商品CD'].CreateProperty('Description', dbText, '商品コードです'); td.Fields['商品CD'].Properties.Append(prp); //データベースを閉じる db.Close; end;