Utility Database ACCESS

[Ranch]

Buon giorno al FORUM!!!!
Vorrei chiedere un consiglio ai più esperti, ovvero quali operazioni sono necessarie sui database ACCESS per la manutensione degli stessi; immagino che su database dove si effettuano molte modifiche tra cui nuovi inserimenti, cancellazioni etc. potrebbe essere necessario fare delle "RIGENERAZIONI". Potete darmi una mano??? potreste indicarmi i comandi o le funzioni necessarie alla buona salute degli archivi????
Grazie Mik.

[Markho]

Rigenerazioni? non è cosi' "avanzato" Access,
cmq io ti consiglio ongi tanto di fare un Strumenti/Utilità database/Compatta e Ripristina Database, ti rimette un po' in sesto lo spazio utilizzato in precedenza e ancora allocato, tutto qui...

Ciao

[Ranch]

Ma questa operazione non è possibile eseguirla da codice VB??????
Grazie Mik.

[folal]

Si è possibile ma il gioco non vale la candela.

[Markho]

Si è possibile ma il gioco non vale la candela.

anche perchè il guadagno è solo in termini di spazio occupato....

[Ranch]

In che senso????? Secondo me se esiste anche solo una possibilità per farlo sarebbe bene sfruttarla dato che l'utente che utilizzerà poi l'applicativo è costretto ad avere anche Access, e la licenza d'uso costa un botto

Se puoi indicarmi su cosa debbo concentrarmi, cercherò di realizzare la procedura per la compattazione del DBAccess.
Grazie

[Mychy]

Originariamente inviato da Ranch
In che senso????? Secondo me se esiste anche solo una possibilità per farlo sarebbe bene sfruttarla dato che l'utente che utilizzerà poi l'applicativo è costretto ad avere anche Access, e la licenza d'uso costa un botto

Un'applicazione VB6 basata su access gira bene anche se l'utente finale non ha access

[Ranch]

Io mi riferisco sempre al fatto che potrebbe essere necessario compattare i database e vorrei cercare di farlo da codice VB.
Esiste un comando che mi permette di fare ciò??????
Grazie per l'interessamento - Mik

[xegallo]

prima cosa non esiste un "comando" per tutto impariamo a esprimerci
un db non si può compattare tramite una istruzione ma tramite un algoritmo si

Sub CompactDB(DBName As String)
    'Nella stringa DBName spcificare il nome del DB da compattare
    'completo del path
    On Error Resume Next
    Dim TmpFile As String
    Dim FileDataBase As String
    Dim Messaggio As String
    Dim DimIniziale As Long
    Dim DimFinale As Long
    Dim Differenza As Long
    Dim Percentuale As Long
    Dim Tmp As String * 20
    FileDataBase = DBName
    Screen.MousePointer = 11
    TmpFile = App.Path & "\data.tmp"
    DimIniziale = FileLen(FileDataBase)
    CompactDatabase FileDataBase, TmpFile
    If Dir$(TmpFile) <> "" Then
        Kill FileDataBase
        Name TmpFile As FileDataBase
    Else
        Messaggio = "Errore durante la compressione del file"
        Messaggio = Messaggio + "Il Database non e' stato compresso"
        Screen.MousePointer = 0
        MsgBox Messaggio, 48, "Attenzione"
        Exit Sub
    End If
    DimFinale = FileLen(FileDataBase)
    Differenza = DimIniziale - DimFinale
    Percentuale = 100 - (100 * (DimFinale / DimIniziale))
    Messaggio = "Compressione completata!" & vbCrLf & vbCrLf
    RSet Tmp = Format$(DimIniziale, "##,###,##0")
    Messaggio = Messaggio & "-------------------------" & vbCrLf
    Messaggio = Messaggio + "Dimensioni originali (bytes)" & Tmp & vbCrLf
    RSet Tmp = Format$(DimIniziale, "##,###,##0")
    Messaggio = Messaggio + "Dimensioni compresse (bytes)" & Tmp & vbCrLf
    RSet Tmp = Format$(Differenza, "##,###,##0")
    Messaggio = Messaggio & "-------------------------" & vbCrLf
    Messaggio = Messaggio + "Spazio liberato (bytes)" & Tmp & vbCrLf & vbCrLf
    RSet Tmp = Format$(Percentuale, "##,###,##0")
    Messaggio = Messaggio + "Percentuale di compressione" & Tmp
    Screen.MousePointer = 0
    MsgBox Messaggio, 64, "Statistiche sulla compressione"
End Sub

[Ranch]

Ti ringrazio per aver inserito l'intero algoritmo per la compattazione, e devi perdonarmi se mi sono espresso male. In effetti volevo che qualcuno mi segnalasse l'istruzione CompactDatabase per poi studiarmi la soluzione. Tu mi hai facilitato il compito e ti ringrazio per questo.
Un saluto a tutti gli iscritti che hanno partecipato a questa discussione.
Ciao Mik.