compattare un db access su server 2003

**d_felloni** · 24-02-2007, 10:24

Ho un server con installato un sistemino CMS che si basa su un mdb (access). A furia di metti e togli sta diventando un po pesntuccio. Ho visto i contributi nel forum che facevano riferimento ad uno script che richiama un oggetto Jro. Lo ho modificato e inserito in una pagina asp.
eccolo:

<SCRIPT runat="server" language="vb">
sub Page_Load()
dim db as string="articoli.mdb"
Dim database, database2 As String
database = Request.MapPath(db)
database2 = Request.MapPatharticoli2.mdb")
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database
Dim strConnTo As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database2
Dim objJro As Object = Server.CreateObject("jro.JetEngine")
objJro.CompactDatabase(strConn,strConnTo)
objJro = Nothing
end sub
</SCRIPT>

Lo script naturalmente non funziona perchè sul server (2003) non ho installato le librerie JRO che però non so come installare. Io ho il Framework aggiornato e basta.
Mi potete aiutare per installare le librerie in modo che possa compattare il db access?
grazie per chi mi vosglia e possa aiutare

**Mems** · 24-02-2007, 12:43

Originariamente inviato da d_felloni
Ho un server con installato un sistemino CMS che si basa su un mdb (access). A furia di metti e togli sta diventando un po pesntuccio. Ho visto i contributi nel forum che facevano riferimento ad uno script che richiama un oggetto Jro. Lo ho modificato e inserito in una pagina asp.
eccolo:

<SCRIPT runat="server" language="vb">
sub Page_Load()
dim db as string="articoli.mdb"
Dim database, database2 As String
database = Request.MapPath(db)
database2 = Request.MapPatharticoli2.mdb")
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database
Dim strConnTo As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & database2
Dim objJro As Object = Server.CreateObject("jro.JetEngine")
objJro.CompactDatabase(strConn,strConnTo)
objJro = Nothing
end sub
</SCRIPT>

Lo script naturalmente non funziona perchè sul server (2003) non ho installato le librerie JRO che però non so come installare. Io ho il Framework aggiornato e basta.
Mi potete aiutare per installare le librerie in modo che possa compattare il db access?
grazie per chi mi vosglia e possa aiutare

Ma questo è VB.NET?

**Mems** · 24-02-2007, 12:50

Prova il DAO.DBEngine.35
http://www.google.com/search?q=ASP+C...e=utf8&oe=utf8

**d_felloni** · 24-02-2007, 12:51

in che senso? Lo script non dovrebbe funzionare in una pagina asp? Ho bisogno di installare VB.Net?

**Roby_72** · 24-02-2007, 13:48

codice:

'Compattazione database
sub compatta_db
	'Comprimo il database creandone una copia compressa e mantenendo l'originale
	Dim miodb
	Set miodb = CreateObject("DAO.DBEngine.36") 
	miodb.CompactDatabase server.MapPath("/mdb-database/db.mdb"), server.MapPath("/mdb-database/db_tmp.mdb") 
	Set miodb=Nothing 

	'Elimino il vecchio database (quello originale)
	Dim objFso, objFile
	Set objFso=Server.CreateObject("scripting.filesystemobject")
	Set objFile=objFso.GetFile(server.MapPath("/mdb-database/db.mdb"))
	objFile.Delete
	Set objFile = Nothing

	'Rinomino il database temporaneo con il nome di quello originale
	objFso.MoveFile server.MapPath("/mdb-database/db_tmp.mdb"), server.MapPath("/mdb-database/db.mdb") 
	Set objFso = Nothing
end sub

**d_felloni** · 24-02-2007, 14:16

adesso lo provo sul server

**d_felloni** · 24-02-2007, 14:40

non succede nulla...
ecco tutto il codice della pagina
<%
sub compatta_db
'Comprimo il database creandone una copia compressa e mantenendo l'originale
Dim miodb
Set miodb = CreateObject("DAO.DBEngine.36")
miodb.CompactDatabase server.MapPath("/imate/sys_db/arts.mdb"), server.MapPath("/imate/sys_db/arts.mdb")
Set miodb=Nothing

'Elimino il vecchio database (quello originale)
Dim objFso, objFile
Set objFso=Server.CreateObject("scripting.filesystemob ject")
Set objFile=objFso.GetFile(server.MapPath("/imate/sys_db/arts.mdb"))
objFile.Delete
Set objFile = Nothing

'Rinomino il database temporaneo con il nome di quello originale
objFso.MoveFile server.MapPath("/imate/sys_db/arts.mdb"), server.MapPath("/imate/sys_db/arts.mdb")
Set objFso = Nothing

end sub
%>
<html>
<head>
<body>
Pagina di compress
</body>
</head>
</html>

**Roby_72** · 24-02-2007, 14:51

Che ne sai che non succede nulla?! :master:

Roby

**d_felloni** · 24-02-2007, 14:56

pensavo di vedere un file di dimensione ridotta rispetto a prima, oltretutto la data(e ora) del file non sono cambiate.
Il file è rimasto di 1.796 Kb
comunque l'avvio della pagina che ho chiamato compatta.asp non genera nessun errore.

**Roby_72** · 24-02-2007, 15:06

Scusa... ma io ti ho passato una sub ma tu la devi chiamare altrimenti chi la esegue????

Nella pagina scrivi:

codice:

call compatta_db

Roby

Discussione: compattare un db access su server 2003

Strumenti discussione

Ricerca discussione

Visualizza

compattare un db access su server 2003

Re: compattare un db access su server 2003

grazie

oops

asp

Permessi di invio