'创建空的access数据库文件--数据库文件.mdb,密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table'定义新表
MyTable.Name = "实验数据表"'表命名
'给表“实验数据表” 创建一个字符串字段,字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段,字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger)'追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class
vb.net动态创建新表的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vba新建sheet、vb.net动态创建新表的信息别忘了在本站进行查找喔 。
推荐阅读
- 抖音pc直播如何录屏回放,抖音直播如何电脑录屏
- oracle导入dmp需要表存在吗,oracle导入表数据dmp文件
- 速8娱乐平台代理,速8娱乐 线路测速中心
- 怎么用ftp下载美国服务器,ftp服务器怎么下载文件
- vb.net如何混淆 vbnet with
- 电脑列表怎么拖大小,电脑上怎么拖表格
- 在学校宿舍该怎么用路由器,宿舍怎么用无线路由器
- php获取查询的数据乱码 php查询数据表
- ie怎么选择html5,ie怎么选择打印机