执行以下代码,重新打开项目后,项目中没有 表 订单?
如何才能有?
Dim Builder As New
ADOXBuilder("nwnd") '要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl
= Builder.NewTable("订单") '创建表
With tbl
.AddColumn("日期" ,ADOXType.DateTime)
.AddColumn("产品" ,ADOXType.String,
12)
.AddColumn("客户" ,ADOXType.String,
20)
.AddColumn("数量" ,ADOXType.Integer)
.AddColumn("备注" ,ADOXType.Text)
End
With
Builder.AddTable(tbl, True, True) '增加表
Builder.Close()