Vba Aiuto!!!

[fede_dan77]

[color=teal] Ciao a tutti. Sto cercando da Vb6 di richiamare la funzione "Compatta e ripristina database" di un db access.
sono riuscita ad aprire il db da vb, ma quando lancio il comando di compattazione non succede nulla al database.....
esiste per caso un istruzione che avvia il comando da inserire dopo l'istruzione RunCommand??
Grazie a tutti
Ciao ciao

[xegallo]

Function CompactAndRepairDatabase(DatabasePath As String, _
        Optional Password As String, _
        Optional TempFile As String = "c:\temp.mdb")
    If DBEngine.Version < "3.6" Then DBEngine.RepairDatabase DatabasePath
    'if no temp file specified, use "c:\temp.mdb"
    If TempFile = "" Then TempFile = "c:\temp.mdb"
    
    'delete temp file if it exists
    If Dir(TempFile) <> "" Then Kill TempFile
    
    'format password in form of ";pwd=PASSWORD" if password exists
    If Password <> "" Then Password = ";pwd=" & Password
    
    'compact db: a new db will be created
    DBEngine.CompactDatabase DatabasePath, TempFile, , , Password
    
    'kill first db
    Kill DatabasePath
    
    'move compacted db to original db's path
    FileCopy TempFile, DatabasePath
    
    'delete temp file
    Kill TempFile
End Function

[fede_dan77]

Grazie mille per il codice.. mi è stato molto utile...

[xegallo]

Originariamente inviato da fede_dan77
[b]Grazie mille per il codice.. mi è stato molto utile...

siamo qui apposta cmq ti consigli di scaricarti codebook su vbasic.it