vb mysql如何创建表,VB.NET2008创建动态ACCESS数据库并创建表示例(转)

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

首先需添加引用

Microsoft ActiveX Data Objects 2.x Library

Microsoft ADO Ext. 2.x for DDL and Security

Imports ADOX

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesButton1.Click

'创建新的空access数据库表

Dim cat As Catalog = New Catalog()

cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= NewMDB.mdb")

'Console.WriteLine("Database Created Successfully")

' 以下代码创建一个名为“测试项目表”单主键新表

Dim Cn As ADODB.Connection = New ADODB.Connection '定义连接

Dim objTable As ADOX.Table = New ADOX.Table '定义新表

Cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NewMDB.mdb") '链接到数据库

objTable.Name = "测试项目表" '表命名

'给表“测试项目表” 创建一个新的字段，字段名“主键”

objTable.Columns.Append("主键", , ADOX.DataTypeEnum.adInteger)

'创建并追加一个新的主键。注意：我们只是通过“PimaryKey_Field”作为主键源列。新键被追加到“测试项目表”的键集

objTable.Keys.Append("主键", ADOX.KeyTypeEnum.adKeyPrimary, "主键")

objTable.Columns.Append("数量", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段

cat.Tables.Append(objTable) '把所有的新字段追加到表

objTable = Nothing

Cat = Nothing

Cn.Close()

Cn = Nothing

End Sub

End Class