从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