Newsgroup: it.comp.appl.access
Titolo: CompactDB....aiuto

Sto cercando di utilizzare il metodo DAO CompactDatabase per compattare il
DB contenente le tabelle che sono collegate al DB contente solo le
maschere...
Ho una form che, tramite un pulsante mi apre un CommonDialog nel quale vado
a scorrere le directory del PC per cercare il file da compattare...
Quando faccio doppioclick sul file desiderato, il percorso intero viene
"copiato" in una Txtbox (che ho chiamato "percorso") della stessa Form...
OK
Ora partendo da questo presupposto dovrei utilizzare il metodo
CompactDatabase per compattare il DB, quindi crearne uno nuovo compattato,
cancellare quello vecchio di partenza e  rinominare quello nuovo con il nome
di quello vecchio che ho cancellato....
La cosa non sarebbe difficile se io nel codice gli indico la stringa del
vecchio e del nuovo DB del tipo:
Dim strmsg As String
strmsg = MsgBox("Assicurarsi che nessun utente stia condividendo il DB !",
vbExclamation + vbOKCancel, "Attenzione...")
If strmsg = vbOK Then
Dim DB_Vecchio As String
Dim DB_Nuovo As String
DB_Vecchio = "c:/programmi/PIPPO/TBL.mdb"
DB_Nuovo = "c:/programmi/PIPPO/TBL_new-mdb"
' compatta e crea nuovo DB Compattato'
DBEngine.CompactDatabase DB_vecchio, DB_nuovo
' cancella il file del Vecchio DB '
Kill "C:/programmi/PIPPO/TBL.mdb"
' Rinomina il Nuovo DB col nome del Vecchio_DB'
Name "C:/programmi/PIPPO/TBL_new.mdb" As "C:/programmi/PIPPO/TBL.mdb"
Ma visto che non è detto che l'utente utilizzi la directory che ho
indicato.....(può essere che la compattazione del DB venga eseguita da un PC
client e il file TBL.mdb risieda su un PC server) ho incluso il Common
Dialog tramite il quale l'utente va a scandire le directory per scegliere il
file TBL.mdb da compattare.
Ora chiedo:
Visto che il percorso viene copiato nella TxtBox chiamata "Percorso" come
faccio ad agire su questa stringa per tener buona una parte del percorso e
cambiare quindi solo il nome del file.mdb ?
per capirci meglio:
Dim strmsg As String
strmsg = MsgBox("Assicurarsi che nessun utente stia condividendo il DB !",
vbExclamation + vbOKCancel, "Attenzione...")
If strmsg = vbOK Then
Dim DB_Vecchio As String
Dim DB_Nuovo As String
DB_Vecchio = me.Percorso   'nella casella percorso ci sta la directory
contenente il .mdb da compattare'
DB_Nuovo = me.Percorso - "/TBL.mdb" + "/TBL_new.mdb"  '
etc.etc.
Grazie mille.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.449 / Virus Database: 251 - Release Date: 27/01/03


Secondo me hai una brutta abitudine, non proseguire i
post.....................!!!
Il problema che sollevi č una cosa abbastanza banale, ma credo di non
darti la soluzione, dovresti avere un pň piů di correttezza nei vari Post
allarmistici
che abitualmente invii...............................!!!
@Alex.

 @Alex.
;<) 
--
a.cara 
Togli qualcosa dall'email

 ha scritto nel messaggio
news:3E3D22AD...@blunet.it...

;-)..........!
Ciao.
@Alex.

 Allarmistici ?!
ma che stai dicendo ?!
Non mi sembra di creare allarme alcuno, nemmeno di essere sgradevolmente
insistente....
Cercavo solo aiuto...
Grazie comunque


 maschere...
[CUT]
Un po' di ragione @Alex ce l'ha, ma oggi è domenica e bisogna essere più
buoni! ;-)
Vai sul Sito Comune e nella Sezione General leggi la FAQ di Federico Luciani
e Riccardo Pozzi intitolata "Compattare tutti i BackEnd dal FrontEnd".
Dovrebbe fare al caso tuo.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------