23 messaggi dal 01 maggio 2006
ho questo script per compattare e fare il bkp del database...sull'mdb però ho una password...dov'è che devo inserire la pwd del database nello script?
<%
response.buffer=true
oggi = replace(trim(cstr(date)), "/", "-")
ora = replace(trim(cstr(time)), ".", "-")
response.flush
KKPercorso = CartelladelDatabase
KKMotore = "DAO.DBEngine.36"
KKArrayDB = array("Carico")%>
<h2 class="MyTitle">Compressione Database</h2>
<font class="medio">
<b>Questa funzione permette di compattare i database dell'applicazione direttamente online senza compromettere le funzionalià del sito</b><br>
Contemporaneamente CREA UNA COPIA DI BACKUP del database stesso!<br><br></font>
<font class="medio">
A seguito dell'eliminazione di dati o di oggetti da un database di Access oppure di oggetti da un progetto di Access, è possibile che il file si frammenti utilizzando lo spazio su disco in modo inefficiente. Eseguendo la compattazione di un file di Access si crea una copia del file e si riorganizza lo spazio di memorizzazione sul disco.<br>
La compattazione comporta un miglioramento delle prestazioni, e non influenza in alcun modo il processo di numerazione automatica, tuttavia, se sono stati eliminati dei record dalla parte finale di una tabella di un database di Access contenente un campo Contatore, compattando il database si reimposta il valore Contatore e il valore Contatore del record successivo sarà maggiore di uno rispetto al valore Contatore dell'ultimo record non eliminato della tabella.<br>
<br><br></font>
<%for i = lbound(KKArrayDB) to ubound(KKArrayDB)
  'comprimo il database 
  response.write "<hr><p class='small'>Compressione Database "& KKArrayDB(i) &".mdb in corso..."
  Set miodb = CreateObject(KKMotore) 
  miodb.CompactDatabase server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) & "_new.mdb")
  response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb compresso con successo</p>"
  Set miodb=Nothing
  ' backuppo il db
  Dim obJfso, objFile
  response.write "<p class='small'>Creo copia di backup ( "& KKArrayDB(i) &"_BKP_" & oggi & "_" & ora &".mdb ) in corso..."
  Set objFso=Server.CreateObject("scripting.filesystemobject")
  Set objFile=objFso.GetFile(server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"))
  objFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &"_BK_" & oggi & "_" & ora & ".mdb") 
  response.write "<p class='small'>Copia di backup creata!</p>"
  Set objFSO = Nothing
  Set objFile = Nothing
  ' rinomino il database 
  response.write "<p class='small'>Ridenominazione del database " & KKArrayDB(i) &".mdb in corso...."
  Dim myobjFSO 
  Set myobjFSO = CreateObject("Scripting.FileSystemObject") 
  myobjFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &"_new.mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &".mdb") 
  response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb rinominato con succcesso<br><br>"
  Set myobjFSO = Nothing
next
%>
12 messaggi dal 27 dicembre 2003
www.centoiso.com
da quello che mi sembra di capire la connessione al database viene impostata al di fuori di questo script, quindi se hai una password devi inserirla quando ti connetti...

Jacopo J. Modesti
www.centoiso.com
23 messaggi dal 01 maggio 2006
no...lo script in questione apre e chiude il database...eliminando la pwd all'mdb lo sript funziona perfettamente.

la connessione dovrebbe a questo punto quì:

Set miodb = CreateObject(KKMotore) 
miodb.CompactDatabase server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) & "_new.mdb") 
response.write "<p class='small'>Database "& KKArrayDB(i) &".mdb compresso con successo</p>" 
Set miodb=Nothing 
' backuppo il db 
Dim obJfso, objFile 
response.write "<p class='small'>Creo copia di backup ( "& KKArrayDB(i) &"_BKP_" & oggi & "_" & ora &".mdb ) in corso..." 
Set objFso=Server.CreateObject("scripting.filesystemobject") 
Set objFile=objFso.GetFile(server.MapPath(KKPercorso & KKArrayDB(i) &".mdb")) 
objFSO.MoveFile server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) &"_BK_" & oggi & "_" & ora & ".mdb") 

12 messaggi dal 27 dicembre 2003
www.centoiso.com
Non saprei, vedi se quando crei KKMotore ci sono dei settaggi relativi alla psw...

Jacopo J. Modesti
www.centoiso.com
23 messaggi dal 01 maggio 2006
questo link: http://asp.html.it/script/vedi/784/comprimere-un-database-access/

mostra come comprimere un database access...

se il database però ha una password?
<% 
Set db = CreateObject("DAO.DBEngine.35") 
db.CompactDatabase "percorsoDatabase\database.mdb", 
"percorsoDatabase\database_compresso.mdb" 
%>


il comando pwd=pippo dove lo metto?
Modificato da Luca1317 il 03 maggio 2006 23.57 -

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.