VB.NET2008创建动态ACCESS数据库并创建表示例

【分享】VB.NET2008创建动态ACCESS数据库并创建表示例
声明：本示例依据http://support.microsoft.com/kb/252908/EN-US/（原代码在VS2008中不可用）加工而成

首先需添加引用
Microsoft ActiveX Data Objects 2.x Library
Microsoft ADO Ext. 2.x for DDL and Security 

VB.NET code

Imports ADOXPublic 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