Dim Builder As New ADOXBuilder("mdb") '要指定数据源名称 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()
Syscmd.Project.Open(ProjectFile)
'例如上面代码,增加外部表,订单,,后重新打开项目,,订单没有增加到表里,如何通过代码自动加载 ?
|