Bom dia,

 

Estou tentando executar o comando para compactar o banco de dados (access 2000)..porém ao executar o seguinte código ele apresa o erro "FORMAT OF THE INITIALIZATION STRING DOES NOT CONFORM TO THE OLE DB SPECIFICATION"

Alguem poderia me dar um help ???

 

    wconBD = "" & App.Path & "Banco.mdb"
    wconBD2 = "" & App.Path & "BancoCopia.mdb"
   
    '   Função que realiza a compactação do banco de dados
    Dim dbOrigem As String, dbDestino As String
    Dim JRO As JRO.JetEngine
   
    Set JRO = New JRO.JetEngine
    DoEvents
   
    dbOrigem = wconBD
    dbDestino = wconBD2
   
    JRO.CompactDatabase dbOrigem, dbDestino

Tente esse código e não esqueça de referenciar o JRO (references):

 

Sub JROCompactDatabase()
    Dim je      As New JRO.JetEngine     
    ' Make sure there isn't already a file with the
    ' name of the compacted database.
    If Dir("c:ewnwind.mdb") <> "" Then _
        Kill "c:ewnwind.mdb"
    ' Compact the database
    je.CompactDatabase "Data Source=C:wind.mdb;", _
        "Data Source=C:ewnwind.mdb;"
    ' Delete the original database
    Kill "c:wind.mdb"
    ' Rename the file back to the original name
    Name "c:ewnwind.mdb" As "c:wind.mdb"
End Sub

qual é p nome da referência ?