Newsgroup: it.comp.appl.access
Titolo: Convertire la procedura compattaBE del sito comune in A2000

Ahimè, me tocca fa un'applicativo in A2000.
Sto cercando di applicare la procedura del sito comune per compattare il BE,
che mi funziona alla grande con A97, ma mi da errori
Infatti l'oggetto DBEngine non contiene il metodo repairdatabase e quindi la
procedura fallisce.
Non ho trovato un metodo alternativo.
Esiste?
Antonio

 Ahimč, me tocca fa un'applicativo in A2000.

Puoi andare in Strumenti opzioni generale e quindi scegliere compatta alla
chiusura in questo caso quando chiudi l'applicativo lui compatta tutti i BE
in automatico
(naturalmente fa il ripristino e compattazione)
Stefano

 ha scritto nel messaggio
news:yq13a.179512$0v.49...@news1.tin.it...

Uhmmm...
Sei sicuro?
Avevo provato questa strada ma mi pare che compatti solo il FE!
Giustamente aggiungerei...
Antonio

 ha scritto nel messaggio
news:xF33a.116835$YG2.3...@twister1.libero.it...

Devi impostare accanto all database cosě compatta anche tutti i BE
Io lo uso da due anni ormai e ho 5 BE col FE
Stefano

 Devi impostare accanto all database cosě compatta anche tutti i BE
Eh?!?
Perdonami, che vor dě "impostare accanto al database"?
Antonio

 Ahimč, me tocca fa un'applicativo in A2000.

If you use DA0 3.6, then you can remove the RepairDatabase statement. 
DAO 3.0 (3.6?) incorporates this functionality into the CompactDatabase
method-you 
can no longer compact and repair databases as separate actions.
--
a.cara 
Togli qualcosa dall'email

 Antonio
E' vero che sei di ROMA, ma non č al Database, ma "ALL" Tutti...!
Ti sei piegato ad A2K.....??
Uno come te che cede alle tentazioni....!
Non me lo aspettavo.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 E' vero che sei di ROMA, 
Per favore @Alex, vatti a guardare l'help, non mi risulta alcuna
proprieta'
o metodo Biso per l'oggetto Roma


 @Alex.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:JAT2a.115166$ZE.31...@twister2.libero.it...

Io faccio così:
'**********Inizio Codice************
Function CompattaMdb(strMdb As String) As Boolean
    Dim strNomeFile As String, strCompatta As String, strBackup As String
    Dim strOggi As String
    Dim dtmOggi As Date
    dtmOggi = Date
    strOggi = CStr(dtmOggi)
    strOggi = left$(strOggi, 2) & " - " & Mid$(strOggi, 4, 2) & " - " &
Right$(strOggi, 2)
    On Error GoTo ErrCompattaMdb
    strNomeFile = left(strMdb, InStr(strMdb, ".mdb") - 1)
    strBackup = strNomeFile & " - Copia di Backup del " & strOggi & ".mdb"
    FileCopy strMdb, strBackup
    strCompatta = strNomeFile & " - Copia Compattata.mdb"
    DBEngine.CompactDatabase strMdb, strCompatta
    Kill strMdb
    Name strCompatta As strMdb
    CompattaMdb = True
ExitCompattaMdb:
    On Error Resume Next
    Exit Function
ErrCompattaMdb:
    MsgBox "Numero errore " & Err.Number & ": " & vbCrLf & Err.Description,
, "Errore nella Compattazione"
    CompattaMdb = False
    Resume ExitCompattaMdb
End Function
'**********Fine Codice************
Puoi poi (come faccio io) richiamarla da una maschera di questo tipo:
'**********Inizio Codice************
Private Sub Backup_Click()
On Error GoTo Err_Backup_Click
Dim strPATH As String, CurrentDbPath As Variant 'Grazie per la dritta al
SitoComune (
www.SitoComune.com
)
strPATH = CurrentDb().name
CurrentDbPath = left$(strPATH, Len(strPATH) - Len(Dir$(strPATH)))
    DoCmd.Hourglass True
    CompattaMdb (CurrentDbPath & "TUA TABELLA DA COMPATTARE")
    'CompattaMdb (CurrentDbPath & "ALTRA TUA TABELLA DA COMPATTARE [SE
C'E']")
    DoCmd.Hourglass False
    DoCmd.Quit acSave
Exit_Backup_Click:
    Exit Sub
Err_Backup_Click:
    MsgBox Err.Description
    Resume Exit_Backup_Click
End Sub
Private Sub Esci_Click()
On Error GoTo Err_Esci_Click
    DoCmd.Quit acSave
Exit_Esci_Click:
    Exit Sub
Err_Esci_Click:
    MsgBox Err.Description
    Resume Exit_Esci_Click
End Sub
Private Sub Annulla_Click()
On Error GoTo Err_Annulla_Click
    DoCmd.Close
Exit_Annulla_Click:
    Exit Sub
Err_Annulla_Click:
    MsgBox Err.Description
    Resume Exit_Annulla_Click
End Sub
'**********Fine Codice************
Fammi sapere se ti è stato utile.
Saluti
(¯`·.¸SpiderMax¸.·´¯)

 Togli qualcosa dall'email
Beh, pensavo di scatenare tutti i "LUPI" con la mia
provocazione, invece siete stati molto accorti...!
;-)


 
Si, ma da uno come Antonio che, per me, č come l'Uomo che non deve
chiedere
mai.......!


 mai.......!
Infatti ho solo benignamente ceduto alle pressioni per un elaborazione una
tantum!!!
Antonio

 Antonio


 can no longer compact and repair databases as separate actions.
Interessante...
Antonio

 alla libreria Microsoft ADO?
Sě
Antonio