[VB6] Svuotare tabelle di un file MDB (Access)

[polog40]

Ciao, ho un problema:

ho fatto un programma che deve svuotare un file mdb, con questo codice:

Sub SvuotaTab(Cn As ADODB.Connection, Tbl As String)
Dim Rs As New ADODB.Recordset
Dim StrSQL As String

'apro connessione con db
Rs.CursorType = adOpenDynamic
Rs.LockType = adLockPessimistic
Set Rs.ActiveConnection = Cn

'apro la tabella
Rs.Open Tbl
'Elimino tutti i record
If Not Rs.EOF Then
Rs.MoveFirst
Do Until Rs.EOF
Rs.Delete
Rs.Update
Rs.MoveFirst
DoEvents
Loop
End If
'chiudo i recordset
Rs.Close
End Sub

eseguito sulle tabelle interessate del database, poi le ricarica con i dati nuovi e spedisce il tutto tramite FTP. il Problema è che dopo aver svuotato le tabelle se apro il file in Access le tabelle sono senza record, ma la dimensione del file in kb rimane quella di quando i vecchi record erano ancora presenti. e questo crea problemi con il trasferimento via FTP che si blocca puntualemente, l'unico modo per riuscire a sperire il file è che dopo averlo lavorato lo apro in Access e faccio: Strumenti->Utilità Database->Compatta e ripristina database. Non c'è modo di automatizzare questa operazione da codice?

[oregon]

Allora ...

1) lo svuotamento della tabella si fa tramite una semplice frase SQL

DELETE FROM Tabella

e il metodo Execute della Connection, senza altro codice (molto piu' veloce e conciso)

2) per la compattazione, ad esempio, http://www.devspy.com/public/Art/Lang/Scr.aspx?id=142

[polog40]

grazie mille