请问各位大侠VB开发数据库怎样连接ACCESS2000数据库啊？？ 谢谢

Question

constring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\tesT.mdb;Jet OLEDB:Database Password=12345;"                                         
DbCon.Open constring

Answer 1

如前文所示,不过我是个懒人,喜欢用懒的方法,可以用ado控件,进行控件的设置以后就可以连接了,也可以用DE,都可以一句代码都不写.具体怎样实现就不在这里浪费空间了,在MSDN那里有详细说明.

Answer 2

这是我用 DAO 连接的方法。为了隔离数据与操作，在这里不用任何数据控件。
--------------------------------------------------------------------Public Sub OpenDB() '打开数据库
    '
    Dim strWSName As String
    Dim strWSUser As String
    Dim strWSPassword As String
    Dim strDBName As String
    
    '定义数据库
    
    strWSName = "ws" & App.EXEName
    strWSUser = "admin"
    strWSPassword = ""
    strDBName = App.Path & "\Data\travelagency.mdb"
   
    '创建工作区 Workspace
    
    With DBEngine
    Set ws = .CreateWorkspace(strWSName, strWSUser, strWSPassword)
    .Workspaces.Append ws
    End With
    
    '打开数据库
    
    Set db = ws.OpenDatabase(strDBName)
    
              
End Sub呵呵，这可是从我的程序里面完全拷贝的源代码。记得给分儿哦。