DAO中插入新字段的问题!

zx301 2003-05-19 01:49:34
我用的是DAO!
但是不知道如何在已经存在的表中插入一个字段!
请哪位高人指点一下!就一下!
...全文
33 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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的方法

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧