Office中国论坛/Access中国论坛

标题: 如何用代码在当前数据库建立表和字段名称? [打印本页]

作者: beibeijia 时间: 2004-1-16 19:51
标题: 如何用代码在当前数据库建立表和字段名称?
如何用代码在当前数据库建立表和字段名称?

用帮助中的例子,老是提示

Set fld = tbl.CreateField("订单ID", dbText) 有错误,不解中……

——————————————————————————————
Sub CreateTable ()

' 声明变量。
Dim dbs As Database, tbl As TableDef, fld As Field

' 将当前数据库指定给数据库
' 变量。
Set dbs = CurrentDB

' 创建新的表和字段，并将其指定给
' 表和字段变量。
Set tbl = dbs.CreateTableDef("旧发货单")
Set fld = tbl.CreateField("订单ID", dbText)

' 向表中添加字段，然后向数据库中
' 添加表。
tbl.Fields.Append fld
dbs.TableDefs.Append tbl
dbs.TableDefs.Refresh

End Sub

[此贴子已经被作者于2004-1-16 11:51:42编辑过]

作者: beibeijia 时间: 2004-1-16 20:02
已解决：

Dim dbs As DAO.Database, tbl As TableDef, fld As DAO.Field

' 将当前数据库指定给数据库
' 变量。
Set dbs = CurrentDb

' 创建新的表和字段，并将其指定给
' 表和字段变量。
Set tbl = dbs.CreateTableDef("旧发货单")
Set fld = tbl.CreateField("订单ID", dbText)

' 向表中添加字段，然后向数据库中
' 添加表。
tbl.Fields.Append fld
dbs.TableDefs.Append tbl
dbs.TableDefs.Refresh

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)