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

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

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

肯请老大指点

用Select Case 逐个根据表中的值来判断对应的列类型，然后增加列。

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

已经很简单了

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

 

不妨将你做的东东传上来。

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

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") '创建表
For Each dr As DataRow In Tables("xxx").DataRows
    With tbl
        Select Case dr("列类型")
            case "字符型"
               增加字符型列
            case "日期型"
               增加日期型列
            '...
    End With
Next
Builder.AddTable(tbl) '增加表

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

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