vb中新建数据库表的问题

水平有限，给你一个代码。不过好像有些复杂，但是能够在已有的数据库中动态创建表。数据库是Access的。
Dim cat As New ADOXCatalog '动态创建盘点表用
Dim pstr As String
Dim tb As New Table
pstr = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\Datamdb" '不能把这里的40改为351
catActiveConnection = pstr
tbName = "店库存盘点明细" '表的名称
tbColumnsAppend "产品编号", adVarWChar, 50 '以下是表的字段
tbColumnsAppend "类别", adVarWChar, 50
tbColumnsAppend "年份", adVarWChar, 50
tbColumnsAppend "季节", adVarWChar, 50
tbColumnsAppend "入库日期", adDate
tbColumnsAppend "入库件数", adInteger
tbColumnsAppend "客退件数", adInteger
tbColumnsAppend "在途件数", adInteger
tbColumnsAppend "FROM", adVarWChar, 50
tbColumnsAppend "销售/出库时间", adDate
tbColumnsAppend "销售件数", adInteger
tbColumnsAppend "调出件数", adInteger
tbColumnsAppend "次品退仓件数", adInteger
tbColumnsAppend "TO", adVarWChar, 50
tbColumnsAppend "节余数量", adInteger
tbColumnsAppend "外借", adInteger
tbColumnsAppend "维修", adInteger
tbColumnsAppend "备注", adVarWChar, 50
'==============以下设置字段允许为空==============
tbColumns("入库日期")Attributes = adColNullable
tbColumns("入库件数")Attributes = adColNullable
tbColumns("客退件数")Attributes = adColNullable
tbColumns("在途件数")Attributes = adColNullable
tbColumns("FROM")Attributes = adColNullable
tbColumns("销售/出库时间")Attributes = adColNullable
tbColumns("销售件数")Attributes = adColNullable
tbColumns("调出件数")Attributes = adColNullable
tbColumns("次品退仓件数")Attributes = adColNullable
tbColumns("TO")Attributes = adColNullable
tbColumns("节余数量")Attributes = adColNullable
tbColumns("外借")Attributes = adColNullable
tbColumns("维修")Attributes = adColNullable
tbColumns("备注")Attributes = adColNullable

catTablesAppend tb '建立数据表
MsgBox "盘点明细表创建完成！", vbInformation, "创建表"
Set tb = Nothing
Set cat = Nothing

以上就是关于vb中新建数据库表的问题全部的内容，包括:vb中新建数据库表的问题、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！