[已解决]这样对吗，打不开数据库

南方朔

这样对吗，打不开数据库
Set DB1 = DAO.OpenDatabase(ThisWorkbook.path & "\" & "DATA.MDB", ";pwd=" & 123)
       Set RS1 = DB1.OpenRecordset(Name:="取水许可台帐", Type:=dbOpenDynaset)

最佳答案

月排行榜 / 总排行榜

吕?布

2012-4-3 23:54

Option Explicit

' 引用Microsoft DAO 3.6 Object Library
Sub OpenDB()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    Set db = OpenDatabase(ThisWorkbook.Path & "\" & "DATA.mdb", False, False, "MS Access;PWD=123")
    Set rst = db.OpenRecordset(Name:="取水许可台帐", Type:=dbOpenDynaset)
    If rst.RecordCount > 0 Then
        rst.MoveLast
        MsgBox rst.Fields(0).Value
    End If
    rst.Close
    db.Close
End Sub

跳转到最佳答案楼层

吕?布

Option Explicit

' 引用Microsoft DAO 3.6 Object Library
Sub OpenDB()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset

    Set db = OpenDatabase(ThisWorkbook.Path & "\" & "DATA.mdb", False, False, "MS Access;PWD=123")
    Set rst = db.OpenRecordset(Name:="取水许可台帐", Type:=dbOpenDynaset)
    If rst.RecordCount > 0 Then
        rst.MoveLast
        MsgBox rst.Fields(0).Value
    End If
    rst.Close
    db.Close
End Sub

南方朔

吕?布 发表于 2012-4-3 23:54
Option Explicit

' 引用Microsoft DAO 3.6 Object Library

{:041:}还是打不开数据库，数据库不加密码，不加代码PWD=123能打开数据库进行查询，郁闷了{:051:}

吕?布

你只要发一个示例出来就行，可以新建一个数据库

吕?布

可以的，我测试过

吕?布

要不把你的数据库发上来测试一下

南方朔

吕?布 发表于 2012-4-5 08:12
要不把你的数据库发上来测试一下

我有好多数据在里面，有时间我处理一下再发

南方朔

吕?布 发表于 2012-4-3 23:54
Option Explicit

' 引用Microsoft DAO 3.6 Object Library

谢谢了，成功拉