既存テーブルにフィールドを追加するには？ (ID:77515)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まず、JET 4.0のSQLで追加するのであれば、こうなります。 ALTER TABLE テーブル1 ADD 新しいTEXT列 TEXT(20), 新しい数値列 INTEGER; これを、Executeメソッドで実行すれば、列が追加されます。 > Set TBLカレントテーブル = DBデータベース.CreateTableDef("既存テーブル名") CreateTableDefは、新しいテーブルを作成するためのメソッドです。 既存のテーブルに追加するなら、TableDefsコレクションから取得します。 例えば、 Set Tbls = objDatabase.TableDefs() Set Tbl = Tbls("テーブル1") Set Fld = Tbl.CreateField("E-mail", dbText, 50) Tbl.Fields.Append Fld のような感じですね。