Password per backup database

[Luca1317]

Dove posso inserire la pwd del database?

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")

[weppos]

Dove preferisci, ma non nel codice che hai scritto.

[supergeniux]

weppos

[Luca1317]

"Dove preferisci, ma non nel codice che hai scritto"

ho seguito il tuo consiglio ma ancora non va:

[Luca1317]

Posto tutto il codice...dai...dove la posso mettere sta dannata pwd del database? :master:

response.buffer=true
oggi = replace(trim(cstr(date)), "/", "-")
ora = replace(trim(cstr(time)), ".", "-")
response.flush
KKPercorso = "/db/"
KKMotore = "DAO.DBEngine.36"
KKArrayDB = array("db")%>
<h2 class="MyTitle">Compressione Database</h2>
<font class="medio">
Questa funzione permette di compattare i database dell'applicazione direttamente online senza compromettere le funzionalià del sito

Contemporaneamente CREA UNA COPIA DI BACKUP del database stesso!

</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.

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.



</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) &"_BK_" & 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")

[weppos]

<!--#include file=" Conn\pwd=CheSuperFagianoCheSono;connessi
one.asp"-->

che è sta cosa? :master:
Include file include un file e null'altro.

[Luca1317]

Originariamente inviato da weppos

<!--#include file=" Conn\pwd=CheSuperFagianoCheSono;connessi
one.asp"-->

che è sta cosa? :master:
Include file include un file e null'altro.

Savo scherzando

[Luca1317]

Posto solo la parte di codice interessata...altrimenti non ci si capisce + niente.

Il problema è che non so dove piazzare la password necessaria ad accedere al database (pwd=miapassword

response.buffer=true
oggi = replace(trim(cstr(date)), "/", "-")
ora = replace(trim(cstr(time)), ".", "-")
response.flush
KKPercorso = "/db/"
KKMotore = "DAO.DBEngine.36"
KKArrayDB = array("db")%>
<h2 class="MyTitle">Compressione Database</h2>
<font class="medio">
Questa funzione permette di compattare i database dell'applicazione direttamente online senza compromettere le funzionalià del sito

Contemporaneamente CREA UNA COPIA DI BACKUP del database stesso!

</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.

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.



</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>"

l'errore è password non valida e me lo da a questa riga:

miodb.CompactDatabase server.MapPath(KKPercorso & KKArrayDB(i) &".mdb"), server.MapPath(KKPercorso & KKArrayDB(i) & "_new.mdb")

[weppos]

Il punto è: perchè vuoi inserire la password?
Se non devi aprire una connessione non serve.

[Luca1317]

Io vorrei anche non inserirla la password ma quando eseguo lo script sopra mi da errore di password.