ADOX

Imports ADOX
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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")

        ' 以下代码创建一个名为Test_Table单主键新表
        Dim Cn As ADODB.Connection = New ADODB.Connection   '定义连接
        Dim objTable As ADOX.Table = New ADOX.Table         '定义新表

        'Cn = New ADODB.Connection
        'objTable = New ADOX.Table

        'Open the connection
        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("PrimaryKey", 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