主题：关于动态建立表的问题

老大，我想在项目中建一张表，用于动态创建表，有：表名、列名、列类型 等列，然后在增加表的代码中

Dim Builder As New ADOXBuilder
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()

 

 

将ADOXType.DateTime用“列类型”中的值代替，这时候“列类型”列的数据类型应该如何设置，或者这样的代码应该如何来写，

比如：

With tbl
    .AddColumn(列名 ,列类型)
 End With

肯请老大指点

没有跟简单的办法，也就是在增加表的时候批量去增加列吗

老大，能帮忙写一段吗，我试了好多便了，就是搞不定

做来做去，到现在还没有成功一点呢，思路都没有成形，不知道该如何做

原先是用论坛上介绍的SQL语言增加表，现在老大公布了他的箱底货，我想改用这个办法来做，但是不知道如何才能做好。原先的那个办法比较简单，但是新增加的表不能自动调出来。现在老大的这个办法可以自动调出表来，但就是比较复杂。请各位帮忙了

这个方法如果实现的话，设计的项目数据库的扩展功能就很强大了，个性化会进一步增强

谢谢来老大的指点，看来你做的还是很简单的，谢谢了

此主题相关图片如下：未命名.jpg

 

设计的项目打不开了，提示如图的错误，按ctrl键也不起作用，老大，请看看

老大，你在吗，请看看上面的问题