[VB]Compattare un database da programma: si può?

[Magnum2000]

Ciao ragazzi!
Volevo chiedere se è possibile utilizzare un controllo di VB per inserire nel proprio programma una funzione che compatti un database Access.
Questa funzione dovrebbe servire a ripristinare un ordine sequenziale ai campi contatore, quando sono stati eliminati dei record con, appunto, dei campi contatore (scusate il gioco di parole).
Mi sbaglio?
Esiste un controllo del genere?
Grazie 1000! ;)

[tas]

Non serve un controllo.

Se usi la libreria DAO basta scrivere così:

DAO.CompactDatabase(source, destination)

------

Se usi ADO, invece, devi caricare anche la libreria JRO (Microsoft Jet and Replicator object). Questo è un sample trovato su MSDN, che in più cripta il database:

Function EncryptDb(strSourceDB As String, _
strDestDB As String) As String
Dim jetEngine As JRO.JetEngine
Dim strSourceConnect As String
Dim strDestConnect As String

' Build connection strings for SourceConnection and
' DestConnection arguments.
strSourceConnect = "Data Source=" & strSourceDB
strDestConnect = "Data Source=" & strDestDB & ";" & _
"Jet OLEDB:Encrypt Database=True"

Set jetEngine = New JRO.JetEngine

' Compact and encrypt the database specified by strSourceDB
' to the name and path specified by strDestDB.
jetEngine.CompactDatabase strSourceConnect, strDestConnect

Set jetEngine = Nothing
End Function


Per fare solo la compattazione, basta modificare opportunamente la stringa di connessione.

[Magnum2000]

Originariamente inviato da tas
[b]Non serve un controllo.

Se usi la libreria DAO basta scrivere così:

DAO.CompactDatabase(source, destination)

------

Se usi ADO, invece, devi caricare anche la libreria JRO (Microsoft Jet and Replicator object). Questo è un sample trovato su MSDN, che in più cripta il database:

Function EncryptDb(strSourceDB As String, _
strDestDB As String) As String
Dim jetEngine As JRO.JetEngine
Dim strSourceConnect As String
Dim strDestConnect As String

' Build connection strings for SourceConnection and
' DestConnection arguments.
strSourceConnect = "Data Source=" & strSourceDB
strDestConnect = "Data Source=" & strDestDB & ";" & _
"Jet OLEDB:Encrypt Database=True"

Set jetEngine = New JRO.JetEngine

' Compact and encrypt the database specified by strSourceDB
' to the name and path specified by strDestDB.
jetEngine.CompactDatabase strSourceConnect, strDestConnect

Set jetEngine = Nothing
End Function


Per fare solo la compattazione, basta modificare opportunamente la stringa di connessione.

Moooolto interessante! ;)
Ma perchè ci sono una stringa di partenza ed una di destinazione?
Se ho un file chiamato "db.mdb" e voglio compattarlo, strSourceDB sarà il path del programma con il file del database e strDestDB cos'è? :rolleyes:

[Magnum2000]

Dimenticavo...
l'operazione di criptaggio (si chiama così?) in cosa consiste?
Se cripto un database, poi per leggerlo è diverso dal normale? :rolleyes: :confused: :D

[tas]

L'operazione di compattazione non sovrascrive il database originale, ma lo copia in un nuovo file. Ecco perchè servono due stringhe!

L'operazione di crittografia impedisce la lettura dei dati da un editor di testo (come riporta la guida di Access), mentre risulta sempre leggibile da Access e ADO/DAO.

[Magnum2000]

Originariamente inviato da tas
[B]L'operazione di compattazione non sovrascrive il database originale, ma lo copia in un nuovo file. Ecco perchè servono due stringhe!

L'operazione di crittografia impedisce la lettura dei dati da un editor di testo (come riporta la guida di Access), mentre risulta sempre leggibile da Access e ADO/DAO.

1) Ma poi come faccio a dire al mio programma di caricare i dati dal nuovo file?
Si può eseguire la procedura, sovrascrivendo il vecchi file?

2)Con un editor di testo?? :confused:
Che si può fare?

[tas]

Io di solito faccio così:

[list=1]
eseguo la compattazione di ARCHIVIO.MDB sul file ARCHIVIO.TMP
se tutto è andato bene, rinomino ARCHIVIO.MDB in ARCHIVIO.001
rinomino ARCHIVIO.TMP in ARCHIVIO.MDB
[/list=1]


Riguardo al discorso dell'editor di testo... diciamo che è un discorso di sicurezza. Se imposti una password per accedere ad un archivio, per un utente sprovvisto di password sarà impossibile aprirlo con Access o con ADO/DAO. Se però uno tenta lo stesso di carpire le informazioni contenute nell'archivio, riuscirà a leggere i testi contenuti con un editor di testo o meglio con visualizzatore binario... a meno che l'archivio non sia stato criptato!

[Magnum2000]

Originariamente inviato da tas
[B]Io di solito faccio così:

[list=1]
eseguo la compattazione di ARCHIVIO.MDB sul file ARCHIVIO.TMP
se tutto è andato bene, rinomino ARCHIVIO.MDB in ARCHIVIO.001
rinomino ARCHIVIO.TMP in ARCHIVIO.MDB
[/list=1]


Senti, so che la domanda che ti farò è un pò invasiva...
...però, se non ci si aiuta tra di noi..:rolleyes:
Mi piacerebbe capire il meccanismo di compattazione; mi puoi aiutare? (non è da molto che utilizzo VB) :p

[tas]

Originariamente inviato da Magnum2000
[B]

Senti, so che la domanda che ti farò è un pò invasiva...
...però, se non ci si aiuta tra di noi..:rolleyes:
Mi piacerebbe capire il meccanismo di compattazione; mi puoi aiutare? (non è da molto che utilizzo VB) :p


La compattazione serve per recuperare lo spazio perso quando per esempio cancelli un record. Per motivi di performances, Jet non recupera quello spazio, in quanto tale operazione richiederebbe uno spostamento a volte ingente di dati.

Sempre per motivi di performances, viene creato in coda ad ogni tabella uno spazio vuoto maggiore di quello necessario per inserire un record. Questo blocco di byte verrà via via riempito di record, poi quando questo sarà pieno verrà creato un nuovo blocco e via dicendo. Anche in questo caso, l'operazione di inserimento di un nuovo blocco comporta rallentamenti generali al database, ma tale operazione viene eseguita una volta "ogni tanto" e quindi generalmente l'archivio continua ad essere veloce.

Compattando l'archivio (in realtà, con le ultime versioni del Jet, le operazioni CompactDatabase e RepairDatabase sono la stessa cosa) si va a recuperare tutto lo spazio inutile nelle varie tabelle.

Naturalmente, appena si andrà ad aggiungere un nuovo record, Jet inserirà di nuovo un blocco in coda alla tabella, vanificando in parte la compattazione appena svolta.

[Magnum2000]

Originariamente inviato da tas
[B]


La compattazione serve ...

...le operazioni CompactDatabase e RepairDatabase sono la stessa cosa) ...


HMMMM!:rolleyes:
Mi potresti scrivere la sintassi completa di questi due comandi? (CompactDatabase e RepairDatabase)

Quale dei due mi consigli di utilizzare?
Che dici, mi conviene inserire nel mio programmino un pulsante che consenta di compattare il database?

Ah, ritornando al discorso del "Criptaggio", come faccio a leggere i dati una volta criptato il database?
La stringa di connessione cambia, vero?

[Magnum2000]

All'indirizzo seguente dell'MSDN ho trovato questo codice per riparare un database:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dao360/html/damthrepairdatabasex.asp


Sub RepairDatabaseX()

Dim errLoop As Error

If MsgBox("Repair the Northwind database?", _
vbYesNo) = vbYes Then
On Error GoTo Err_Repair
DBEngine.RepairDatabase "Northwind.mdb"
On Error GoTo 0
MsgBox "End of repair procedure!"
End If

Exit Sub

Err_Repair:

For Each errLoop In DBEngine.Errors
MsgBox "Repair unsuccessful!" & vbCr & _
"Error number: " & errLoop.Number & _
vbCr & errLoop.Description
Next errLoop

End Sub


E' questo il metodo che dicevi?
Basta modificare il nome del database? ;)

[tas]

Originariamente inviato da Magnum2000
[B]
E' questo il metodo che dicevi?
Basta modificare il nome del database? ;)

Dipende: quel codice è relativo a DAO, se invece usi ADO...


jetEngine.CompactDatabase strSourceConnect, strDestConnect


(in ADO non esiste più RepairDatabase)

ciao

[Magnum2000]

Originariamente inviato da tas
[B]

Dipende: quel codice è relativo a DAO, se invece usi ADO...


jetEngine.CompactDatabase strSourceConnect, strDestConnect


(in ADO non esiste più RepairDatabase)

ciao

Aaaaa.
Ma, scusame se te lo ripeto, come faccio a fare un backup del database e rinominare quello vecchio? :rolleyes:

[tas]

Ecco i comandi dei quali hai bisogno:

FileCopy source, destination
Name oldpathname As newpathname
Kill pathname


FileCopy copia un file;
Name permette di rinominare o spostare un file o una directory;
Kill elimina un file

[Magnum2000]

Originariamente inviato da tas
[B]Ecco i comandi dei quali hai bisogno:

FileCopy source, destination
Name oldpathname As newpathname
Kill pathname


FileCopy copia un file;
Name permette di rinominare o spostare un file o una directory;
Kill elimina un file



Vediamo un pò: :rolleyes:

1)"source" e "destination" sono percorsi (senza il nome del file)
2)"oldpathname" e "newpathname" sono percorsi (con il nome del file)
3)"pathname" percorso con nome del file

Giusto? :rolleyes: :rolleyes:

[tas]

Guardati questi help su MSDN:


FileCopy (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmFileCopy.asp?frame=true)
Kill (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmKill.asp?frame=true)
Name (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmName.asp?frame=true)

ciao

[Magnum2000]

Originariamente inviato da tas
[B]Guardati questi help su MSDN:


FileCopy (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmFileCopy.asp?frame=true)
Kill (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmKill.asp?frame=true)
Name (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vastmName.asp?frame=true)

ciao

Grazie tas!
Quanta pazienza che hai. :D