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()
上面代码执行出现错误:system.runtime.Interopservices.comexception(Ox80040E21):多步OLE DB操作产生错误.如果可能,请检查每个OLE DB状态值.没有工作被完成.
at ADOx.Tables.Append(Object Item)
at Foxtabe.ADOXBuilder等等
at UserCode.Test()