DAO中插入新字段的问题!

zx301 2003-05-19 01:49:34
我用的是DAO!
但是不知道如何在已经存在的表中插入一个字段!
请哪位高人指点一下!就一下!
...全文
13 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lwzlemon 2003-05-31
mark
回复
chnynvb 2003-05-22
帮你UP~~
回复
道素 2003-05-20
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的方法

回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-19 01:49
社区公告
暂无公告