VB2010创建Access数据与数据表

概述从VB6转到VB2010很是不习惯，很多不一样的，然后就是百度里泡着。 为了连接数据库，在网上找了好多动态创建Access的例子，发现都很复杂，不知道为什么要那么复杂。其实以前的一个VB6的例子其实很简单。 VB2010中还是要引用一个ADO Ext x.x和一个Active Data Objects x.x If Dir(Application.StartupPath & "\数

从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

总结

以上是内存溢出为你收集整理的VB2010创建Access数据与数据表全部内容，希望文章能够帮你解决VB2010创建Access数据与数据表所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。