Errore accedendo a file Access dopo compatta/ripristino

[Magicolotto]

CIAO RAGAZZI QUANDO USO QUESTO CODICE PER RIPRISTINARE E COMPATTARE IL MIO ARCHIVIO ACCESS :

Private Sub compatta_Click()
On Error GoTo errori:
Dim CONN As JRO.JetEngine
NomeDb = "C:\Programmi\magicolotto\magicolotto.mdb"
'fa una copia di sicurezza del tuo data base
FileCopy NomeDb, "C:\Programmi\magicolotto\primadellacompattazionem agicolotto.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
'
MsgBox " compattato e ripristinato"
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

MsgBox " procedura di compattazione finita "

End Sub

FINITO DI RIPRISTINARE SE APRO IL MIO :

MSHFlexGrid1




MI DA QUESTO ERRORE

FORMATO DATA BASE NON RICONOSCIUTO, MENTRE PRIMA DI COMPATTARE VA TUTTO OK ...


COME MAI?

[oregon]

In quale formato e' il tuo database originario?

[Magicolotto]

access 95

[oregon]

Originariamente inviato da Magicolotto
access 95

VVoVe:

Un po' vecchiotto !

La compattazione con il provider oledb 4.0. aggiorna il formato (penso alla versione 2000) ...

Come apri la connessione al db dopo la compattazione?

[Magicolotto]

ado

[oregon]

Sì ... ma come?

[Magicolotto]

sSQL = "select ID,Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI 1,FI2,FI3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3, MI4,MI5,NA1,NA2,NA3,NA4,NA5,PA1,PA2,PA3,PA4,PA5,RO 1,RO2,RO3,RO4,RO5,TO1,TO2,TO3,TO4,TO5,VE1,VE2,VE3, VE4,VE5 from archivio"

[vonkranz]

Originariamente inviato da Magicolotto
CIAO RAGAZZI QUANDO USO QUESTO CODICE PER RIPRISTINARE E COMPATTARE IL MIO ARCHIVIO ACCESS :





FINITO DI RIPRISTINARE SE APRO IL MIO :

MSHFlexGrid1




MI DA QUESTO ERRORE

FORMATO DATA BASE NON RICONOSCIUTO, MENTRE PRIMA DI COMPATTARE VA TUTTO OK ...


COME MAI?

copio dall'help in linea relativo al metodo CompactDatabase:


DBEngine.CompactDatabase vecchiodb, nuovodb, internazionali, opzioni, password

È possibile utilizzare una delle seguenti costanti nell'argomento opzioni per specificare la versione del formato dei dati del database compattato. La costante influisce solo sulla versione del formato dei dati di nuovodb e non sulla versione degli oggetti definiti da Microsoft Access, come ad esempio maschere e report.

Costante Descrizione
dbVersion10 Crea un database che utilizza durante la compattazione il formato file del modulo di gestione di database Microsoft Jet versione 1.0.

DbVersion11 Crea un database che utilizza durante la compattazione il formato file del modulo di gestione di database Microsoft Jet versione 1.1.

DbVersion20 Crea un database che utilizza durante la compattazione il formato file del modulo di gestione di database Microsoft Jet versione 2.0.

DbVersion30 Crea un database che utilizza durante la compattazione il formato file del modulo di gestione di database Microsoft Jet versione 3.0 (compatibile con la versione 3.5).

[oregon]

Un consiglio ... lascia perdere tutte le versioni precedenti alla 2000 (Jet 4) ...

Compatta e ripristina il database convertendolo nel formato piu' recente ... e usa questo.

[Magicolotto]

usacovertire in access 2000? e poi usare quella?