12,673
回編集
差分
ナビゲーションに移動
検索に移動
ページの作成:「==Access VBA テーブル作成== Access 2000 =====DAOを使用===== *参照設定が必要 *[http://www.accessclub.jp/ado/01.html データベースの新規作成…」
==Access VBA テーブル作成==
Access 2000
=====DAOを使用=====
*参照設定が必要
*[http://www.accessclub.jp/ado/01.html データベースの新規作成、テーブル、クエリの作成はADOでは実現できません。発展的な機能であるADOXで実現します。この点が全ての操作が可能なDAOと異なります。]
Sub CreateTable ()
Dim dbs As Database
Dim tbl As TableDef
Dim fld As Field
Set dbs = CurrentDB
Set tbl = dbs.CreateTableDef("NewTableName")
Set fld = tbl.CreateField("NewField", dbText)
tbl.Fields.Append fld
dbs.TableDefs.Append tbl
dbs.TableDefs.Refresh
End Sub
Access 2000
=====DAOを使用=====
*参照設定が必要
*[http://www.accessclub.jp/ado/01.html データベースの新規作成、テーブル、クエリの作成はADOでは実現できません。発展的な機能であるADOXで実現します。この点が全ての操作が可能なDAOと異なります。]
Sub CreateTable ()
Dim dbs As Database
Dim tbl As TableDef
Dim fld As Field
Set dbs = CurrentDB
Set tbl = dbs.CreateTableDef("NewTableName")
Set fld = tbl.CreateField("NewField", dbText)
tbl.Fields.Append fld
dbs.TableDefs.Append tbl
dbs.TableDefs.Refresh
End Sub
© 2006 矢木浩人
