Skin ADV
Stampa

Compattare un Database Access

Le dimensioni di un database crescono progressivamente durante il suo utilizzo. Per questo può essere molto utile una compattazione del database stesso, in modo tale da migliorarne le prestazioni e risparmiare spazio su disco.

Di seguito è presentata una funzione che effettua la compressione di un database. I parametri che riceve sono 2:
dbname: è il nome del database
password: è l'eventuale password con cui è protetto il database.

In questo esempio, viene compattato il database utenti.mdb. Supponiamo che il database non sia protetto da password, per cui il secondo parametro sarà una stringa vuota.

<%
'compatta il database dbname
Function CompactDB(dbname, password)

  Dim dbpath
  dbpath = Server.MapPath(dbname)

  Dim cnfrom, cnto
  cnfrom = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath
  cnto = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath&".temp"

  'se il db è protetto da password...
  If password<>"" Then

    cnfrom = cnfrom&";Jet OLEDB:Database Password="&password
    cnto = cnto&";Jet OLEDB:Database Password="&password
  End If

  Dim engine
  Set engine = Server.CreateObject("JRO.JetEngine")
  'compatta il database
  engine.CompactDatabase cnfrom, cnto


  Dim fso
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  'il db originale viene eliminato
   fso.DeleteFile dbpath

  'il db appena compresso viene rinominato col nome del db originale
  fso.MoveFile dbpath&".temp", dbpath


  Set fso = nothing
  Set engine = nothing
End Function

'chiamo la funzione per la compressione del database
Call CompactDB("utenti.mdb", "")


Response.Write("Il DataBase è stato compattato con successo!")
%>

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

hits
1818
Ritieni il contenuto di questa pagina incompleto, non attendibile oppure oggetto di altre problematiche? INVIA UNA SEGNALAZIONE Grazie!

Tags cloud

Francesco Pannofino navigare Simplex Hayley Marie Norman Toyah Willcox fotografare fuoco mappa Recco Meteo Trieste Someone Like You Augusto bennet Perugia inlink Michele Croz aurum scaffali VEICOLI plugin avviso Angela Finocchiaro insetticidi alcaloidi evento nichel Fatima Trotta pagamenti mostrare mandorle Rosario Dawson valerianella Brando Quilici MasterCard fenomeno bassa elettronvolt onde riflesse Apollo 17 countdown RTTY weather conflitto Condivisione aviatore italiano Arti Perdute Popigai site PTR Vimeo rapace Ethernet windows server vendita Cretaceo Rigillo pesce azzurro Scorpione tappe rotazione LT898UV Mont Blanc SHF Caorso Piante da sfondo Argento lavastoviglie Ghiacciaio quebec ricezione eventi Sogni Infranti alici Ivrea Sandro Pertini Marte pressione mollica Velocità Tracy Chevalier Foucault Eli Roth sorgente videogioco rame Canale Luigi Proietti cavalletto legno atmosfera Hank Azaria Lavoro madagascar lunghezza d'onda Deborah Iurato Irene Fornaciari Marco Bocci Tom McGrath Meteorologia Leonard Harris PHP 1/2 domicilio Longyearbyen PageRank 1200 baud ponti voli internazionali Calabria Spiaggie Liguria gioco zucchine Platy 800 MHz Cloris Leachman impianto stafilococco 4/4 scala Mercalli Mediterraneo Ian McShane aereo Call of Duty Noa Zatta webcam vallone Principe Aosta Corrado Guzzanti monossido di carbonio Messenger ghiaccio GPS ponti radio Paleo-proterozioca site-book USA riflettore Zoo press messaggio pianeti Privacy Svalbard vodafone Leader cocciniglie rosetta xp