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
我在命令窗口执行上面代码,会出现错误提示,不知是怎么回事
[此贴子已经被作者于2010-8-20 16:40:37编辑过]