[VB6] Compattare e ripristinare database Access

[Magicolotto]

ok risolto..... il problema di questa discussione

http://forum.html.it/forum/showthrea...hreadid=917473


pero' adesso mi dovrete aiutare a non far in modo che succeda successivamente, capirete quele era il difetto dalla mia prox domanda

come fare, con che comando si puo' compattare e
ripristinare un archivio access?

[mgmg]

Devi aggiungere nei riferimenti del tuo progetto:
Microsoft Jet and replication Objects 2.6 Library (msjro.dll)

Private Sub Salva()
on error goto errori:
NomeDb = C:\...\magicolotto.mdb"
'fa una copia di sicurezza del tuo data base
FileCopy NomeDb, "c:\magicolottosalv.mdb"
'elimina database temporaneo
Kill Mid(Trim(NomeDb), 1, Len(Trim(NomeDb)) - 3) & "tmp"

Set CONN = New JRO.JetEngine
CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDB & ";User ID=Admin;Password=;"
CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Mid(Trim(NomeDB), 1, Len(Trim(NomeDb)) - 3) & "Tmp" & ";"
   '
CONN.CompactDatabase CONN_Sorg, CONN_Dest
   '
Set CONN = Nothing
Kill NomeDb
        '
FileCopy Mid(Trim(NomeDb), 1, Len(Trim(NomeDb)) - 3) & "tmp", NomeDb
Exit Sub
errori:
If Err.Number = 53 Then
   Resume Next
Else
   MsgBox Err.Description, vbCritical, Err.Number
End If
End Sub

Attenzione quando esegui questo codice il data base deve essere chiuso.

[Magicolotto]

nei riferimenti ho inserito
Microsoft Jet and replication Objects 2.6 Library

pero mi da errore

Set CONN = New JRO.JetEngine ' me  lo da qui  errre di compilazione 
CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";User ID=Admin;Password=;"
CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Mid(Trim(NomeDb), 1, Len(Trim(NomeDb)) - 3) & "Tmp" & ";"

[oregon]

Originariamente inviato da Magicolotto
nei riferimenti ho inserito
Microsoft Jet and replication Objects 2.6 Library

pero mi da errore

Set CONN = New JRO.JetEngine ' me  lo da qui  errre di compilazione 
CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";User ID=Admin;Password=;"
CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Mid(Trim(NomeDb), 1, Len(Trim(NomeDb)) - 3) & "Tmp" & ";"

Devi dichiarare la variabile CONN

Dim CONN As JRO.JetEngine

[mgmg]

Nel tuo modulo hai dichiarato Option Explicit? Se così, prova a dichiarare
Dim CONN As JRO.JetEngine
Verifica anche se scrivendo JRO. presenta il menu' a tendina con le opzioni. Se Non le presenta ricontrolla i riferimenti.

[Magicolotto]

non va

Private Sub Salva_Click()

On Error GoTo errori:
Dim CONN As JRO.JetEngine
NomeDb = "C:\Programmi\magicolotto.net\magicolotto.mdb"
'fa una copia di sicurezza del tuo data base
FileCopy NomeDb, "C:\Programmi\magicolotto.net\primadellacompattazionemagicolotto.mdb"
'elimina database temporaneo
Kill Mid(Trim(magicolotto.mdb), 1, Len(Trim(magicolotto.mdb)) - 3) & "tmp"
Dim CONN As JRO.JetEngine
Set CONN = New JRO.JetEngine
CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";User ID=Admin;Password=;"
CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Mid(Trim(NomeDb), 1, Len(Trim(NomeDb)) - 3) & "Tmp" & ";"
   '
CONN.CompactDatabase CONN_Sorg, CONN_Dest
   '
Set CONN = Nothing
Kill NomeDb
        '
FileCopy Mid(Trim(magicolotto.mdb), 1, Len(Trim(magicolotto.mdb)) - 3) & "tmp", NomeDb
Exit Sub
errori:
If Err.Number = 53 Then
   Resume Next
Else
   MsgBox Err.Description, vbCritical, Err.Number
End If
End Sub

[oregon]

Originariamente inviato da Magicolotto
non va

Private Sub Salva_Click()

On Error GoTo errori:
Dim CONN As JRO.JetEngine
NomeDb = "C:\Programmi\magicolotto.net\magicolotto.mdb"
'fa una copia di sicurezza del tuo data base
FileCopy NomeDb, "C:\Programmi\magicolotto.net\primadellacompattazionemagicolotto.mdb"
'elimina database temporaneo
Kill Mid(Trim(magicolotto.mdb), 1, Len(Trim(magicolotto.mdb)) - 3) & "tmp"
Dim CONN As JRO.JetEngine
Set CONN = New JRO.JetEngine
CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDb & ";User ID=Admin;Password=;"
CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Mid(Trim(NomeDb), 1, Len(Trim(NomeDb)) - 3) & "Tmp" & ";"
   '
CONN.CompactDatabase CONN_Sorg, CONN_Dest
   '
Set CONN = Nothing
Kill NomeDb
        '
FileCopy Mid(Trim(magicolotto.mdb), 1, Len(Trim(magicolotto.mdb)) - 3) & "tmp", NomeDb
Exit Sub
errori:
If Err.Number = 53 Then
   Resume Next
Else
   MsgBox Err.Description, vbCritical, Err.Number
End If
End Sub

Vuoi contare quante volte hai scritto

Dim CONN As JRO.JetEngine

nel codice???

Tu rileggi quello che scrivi?

[Magicolotto]

hai ragione
ho corretto ..e l'errore e impossibile trovare membro dei dati
nella riga dove drovrebbe eliminare il database....

[oregon]

Perche' hai modificato questa linea

Kill Mid(Trim(magicolotto.mdb), 1, Len(Trim(magicolotto.mdb)) - 3) & "tmp"

rispetto a quella che ti e' stata data?

Mi sembra che non era questa ... e soprattutto la prima era corretta ...

[Magicolotto]

credevo si doveva mettere il riferimento al nome del db