VB2010创建Access数据与数据表

前端之家收集整理的这篇文章主要介绍了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

猜你在找的VB相关文章