vb中新建数据库表的问题

来源：百度知道 编辑：UC知道 时间：2024/06/21 05:19:59
请问用ADODB新建数据库表的时候怎么设置Required属性呢 就是我想这个表的字段中可以为空 改怎么设置 帮帮忙

水平有限，给你一个代码。不过好像有些复杂，但是能够在已有的数据库中动态创建表。数据库是Access的。

Dim cat As New ADOX.Catalog '动态创建盘点表用
Dim pstr As String
Dim tb As New Table

pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb" '不能把这里的4.0改为3.51
cat.ActiveConnection = pstr

tb.Name = "店库存盘点明细" '表的名称
tb.Columns.Append "产品编号", adVarWChar, 50 '以下是表的字段
tb.Columns.Append "类别", adVarWChar, 50
tb.Columns.Append "年份", adVarWChar, 50
tb.Columns.Append "季节", adVarWChar, 50
tb.Columns.Append "入库日期", adDate
tb.Columns.Append "入库件数", adInteger
tb.Columns.Append "客退件数", adInteger
tb.Columns.Append "在途件数", adInteger
tb.Columns.Append "FROM", adVarWChar, 50
tb.Columns.Append "销售/出库时间", adDate
tb.Columns.Appe