DBEngine.CompactDatabase & Password

[Dummiel]

Хай, други!
Столкнулся с проблемкой: работаю с БД Access 97, она с паролем. Пароль обычный, без финдибоберов А DBEngine.CompactDatabase не хочет работать - говорит - не тот пароль.

Подскажите правильный синтаксис, или другой метод, может быть?

Заранее спасибо.

[VVitafresh]

Юзай JRO. Что-то типа:

Код: Выделить всё

Public Function CompactDB(ByVal SOUR_path As String, ByVal DEST_path As String) As Boolean
    Dim JRO As New JRO.JetEngine
' Source and Destination connection path
'**********************************************************
'Passing values compactDB module
'Sour_path = Source path of existing database.
'Dest_Path = Target path
'
'Note -
'Add Microsoft Jet and Replication Objects X.X library,
'where (X.X is greater than or equal to 2.1).
'***********************************************************
'Jet OLEDB:Engine Type  Jet x.x Format MDB Files
'*********************  ************************
'   1           JET10
'   2           JET11
'   3           JET2X
'   4           JET3X
'   5           JET4X
'**********************************************************
    Dim DB_sour As String, DB_dest As String
   
    On Error GoTo Err_compact

    DoEvents
    DB_sour = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
      & SOUR_path & ";Jet OLEDB:Database Password=YourPassword"
    DB_dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
      & DEST_path & " ;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=YourPassword"
 
    JRO.CompactDatabase DB_sour, DB_dest
 
    CompactDB = True
    Exit Function
Err_compact:
    CompactDB = False
    MsgBox Err.Description, vbExclamation
End Function

Вызов:

Код: Выделить всё

bResult=CompactDB(sOriginalDB, sCompactedDB)

[Dummiel]

Спасибище, ща буду юзать!