Question

如何用VB代码向数据库中添加数据表

Answer 1

'以下代码可以向当前数据库添加数据表
'(测试OK,添加"Table1"数据表，包含4个字段)：
Set
NewTable
=
CurrentDb.CreateTableDef("Table1")
With
NewTable
.Fields.Append
.CreateField("字段1",
dbText)
.Fields.Append
.CreateField("字段2",
dbText)
.Fields.Append
.CreateField("字段3",
dbText)
.Fields.Append
.CreateField("字段4",
dbText)
End
With
CurrentDb.TableDefs.Append
NewTable