我写了一段简单的代码拉测试,木有发现问题:
Dim Builder As New ADOXBuilder("fff")
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("xxx") '创建表
tbl.AddColumn("日期" ,ADOXType.DateTime) '增加日期型列
tbl.AddColumn("产品" ,ADOXType.String, 12) '增加字符型列,长度指定为12
tbl.AddColumn("客户" ,ADOXType.String, 20) '增加字符列,长度为20
tbl.AddColumn("数量" ,ADOXType.Integer) '增加整数型列
tbl.AddColumn("备注" ,ADOXType.Text) '增
Builder.AddTable(tbl) '增加表
Builder.Close() '关闭ADOXBuilder
同样,你可以做个简单的有错误的例子发上来看看。