|
SQLでなく、DAOのメソッドを使っても出来ます。以下はヘルプから引用した
CreateTableDefメソッドの例文です。
次の例では、BIBLIO.MDB データベースに TableDef オブジェクトを新しく作成します。
Dim tdfTitleDetail As TableDef, fldComments As Field
Dim dbsBiblio As Database
Set dbsBiblio = DBEngine.Workspaces(0).OpenDatabase("BIBLIO.MDB")
' TableDef オブジェクトを新しく作成します。
Set tdfTitleDetail = dbsBiblio.CreateTableDef("書籍の詳細")
' tdfTitleDetail にフィールドを追加します。
Set fldComments = tdfTitleDetail.CreateField("コメント",dbMemo)
tdfTitleDetail.Fields.Append fldComments
' TableDefs コレクションに追加し、TableDef オブジェクトの定義を保存します。
dbsBiblio.TableDefs.Append tdfTitleDetail
|
|