主题：8月17日第二次更新，送件压箱底的货给大家

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
    .AddColumn("日期" ,ADOXType.DateTime) '增加日期型列
    .AddColumn("产品" ,ADOXType.String, 12) '增加字符型列,长度指定为12
    .AddColumn("客户" ,ADOXType.String, 20) '增加字符列,长度为20
    .AddColumn("数量" ,ADOXType.Integer) '增加整数型列
    .AddColumn("备注" ,ADOXType.Text) '增加备注列
End With
Builder.Close() '关闭ADOXBuilder

执行后重新打开项目，会发现表A已经增加了上述列。

ADOXType的可选值包括：

Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("表A")
    .DeleteColumn("日期")
    .DeleteColumn("产品")
End With
Builder.Close() '关闭ADOXBuilder

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表A")
    .DeleteTable("表B")
End With
Builder.Close()

执行上述代码后，同样应该重新打开项目。

使用外部数据源

前面的代码都是针对内部数据源的，如果要为外部数据源动态创建表和列，只需在定义ADOXBuilder的时候，指定数据源名称即可：

Dim Builder As New ADOXBuilder("数据源名称")

例如在名为nwnd的外部数据源中创建一个订单表：

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) '增加表
Builder.Close()