如何用代码在当前数据库建立表和字段名称?

beibeijia

如何用代码在当前数据库建立表和字段名称?

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

   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

已解决：

    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