DAO中插入新字段的问题！

Question

我用的是DAO！
但是不知道如何在已经存在的表中插入一个字段！
请哪位高人指点一下！就一下！

Answer 1

Dim dbsNorthwind As Database 
Dim tdfNew As TableDef 
Dim fldLoop As Field 
Dim prpLoop As Property 
Set dbsNorthwind = OpenDatabase("Northwind.mdb") Set tdfNew = dbsNorthwind.CreateTableDef("NewTableDef")'新建表
With tdfNew 
' The CreateField method will set a default Size 
' for a new Field object if one is not specified. 
.Fields.Append .CreateField("TextField", dbText) .Fields.Append .CreateField("IntegerField", dbInteger) 
.Fields.Append .CreateField("DateField", dbDate) 
End With dbsNorthwind.TableDefs.Append tdfNew 你为什么不用ado，它比dao有优势
alter table [yourtablename] add column [columnname][your constraints]
这是ado的方法