VB2010创建Access数据与数据表

最新推荐文章于 2021-08-02 15:19:00 发布

原创最新推荐文章于 2021-08-02 15:19:00 发布 · 667 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb2010 #Microsoft Office Acc #动态创建数据库

本文介绍如何使用VB2010简单创建并连接Access数据库，包括创建空数据库及新建表的操作步骤。

从VB6转到VB2010很是不习惯，很多不一样的，然后就是百度里泡着。

为了连接数据库，在网上找了好多动态创建Access的例子，发现都很复杂，不知道为什么要那么复杂。其实以前的一个VB6的例子其实很简单。

VB2010中还是要引用一个ADO Ext x.x和一个Active Data Objects x.x

        If Dir(Application.StartupPath & "\数据库.mdb", vbDirectory) = "" Then
            '创建一个空的数据库
            Dim Cata As New ADOX.Catalog
            Cata.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\数据库.mdb;Jet OLEDB:Database Password=密码")
            Cata = Nothing
            '连接数据库并创建新表
            Dim Con As ADODB.Connection = New ADODB.Connection
            Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\数据库.mdb;Jet OLEDB:Database Password=密码")
            Dim MyTabe As String
            MyTabe = "Create Table [MySet]([ID]AutoIncrement,[User]String,[Group]String)"
            Con.Execute(MyTabe)
            Con.Close()
            Con = Nothing
        End If