COMPRIMERE DATABASE ACCESS

[victor8872]

Ciao a tutti
ho bisogno di comprimere un db access utilizzando vb.net
vi posto il codice che ho reuperato in questo forum, ma mi da un errore

ecco tutta la pagina

<%@ Page Language="vb" validaterequest="false" Debug="true" %>
<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>



<script language="VB" runat="server">
sub page_load (obj as object, e as eventargs)

Try

'creo un oggetto di tipo jetEngine

Dim ObjCompatta As JRO.JetEngine

ObjCompatta = New JRO.JetEngine

ObjCompatta.CompactDatabase ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("miodatabase.mdb"))


Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Information, "Errore")

End Try



end sub

</script>

Ma mi da questo errore

Compiler Error Message: BC30002: Type 'JRO.JetEngine' is not defined.

Source Error:



Line 12: 'creo un oggetto di tipo jetEngine
Line 13:
Line 14: Dim ObjCompatta As JRO.JetEngine
Line 15:
Line 16: ObjCompatta = New JRO.JetEngine

Qualcuno puo' darmi una mano

Grazie mille

[sms]

potrebbe essere per il fatto che ti manca la dll di ADOdb (o corrispondente per JRO.. purtroppo è un'istruzione del vecchio asp, che io non so!) nella cartella bin.

[victor8872]

grazie e ben trovato

mi sa che sono costretto a risolvere utilizzando un codice asp che ho trovato sempre in questo forum


grazie ancora e buone ferie (se le fai)

[Daniele80]

public static void CompactAccessDB(string connectionString, string mdwfilename)
{
    object[] oParams;

    //create an inctance of a Jet Replication Object
    object objJRO = 
      Activator.CreateInstance(Type.GetTypeFromProgID("JRO.JetEngine"));

    //filling Parameters array
    //cnahge "Jet OLEDB:Engine Type=5" to an appropriate value
    // or leave it as is if you db is JET4X format (access 2000,2002)
    //(yes, jetengine5 is for JET4X, no misprint here)
    oParams = new object[] {
        connectionString,
        "Provider=Microsoft.Jet.OLEDB.4.0;Data" + 
        " Source=C:\\tempdb.mdb;Jet OLEDB:Engine Type=5"};

    //invoke a CompactDatabase method of a JRO object
    //pass Parameters array
    objJRO.GetType().InvokeMember("CompactDatabase",
        System.Reflection.BindingFlags.InvokeMethod,
        null,
        objJRO,
        oParams);

    //database is compacted now
    //to a new file C:\\tempdb.mdw
    //let's copy it over an old one and delete it

    System.IO.File.Delete(mdwfilename);
    System.IO.File.Move("C:\\tempdb.mdb", mdwfilename);

    //clean up (just in case)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(objJRO);
    objJRO=null;
}

[Raffa62]

vedi questo (in VB.Net)


http://www.raffaellosartori.it/esempi.aspx?id=77

[victor8872]

grazie a tutti
in qualche modo ci sono riuscito ma con asp classico tra un po provo con asp.net

Adesso vorrei sapere quanto pesa il mio file access sul server remoto

qualcuno sa darmi una mano??
grazie

p.s.
x RAFFA
guarda che il link da te segnalato non va

[Daniele80]

Originariamente inviato da victor8872
grazie a tutti
in qualche modo ci sono riuscito ma con asp classico tra un po provo con asp.net

Adesso vorrei sapere quanto pesa il mio file access sul server remoto

qualcuno sa darmi una mano??
grazie

p.s.
x RAFFA
guarda che il link da te segnalato non va

il link io lo vedo forse stava giu il server.

[victor8872]

il link lo vedo anche io
non va il link quando si tenta di scaricare l'esempio zippato

[Raffa62]

Originariamente inviato da victor8872
il link lo vedo anche io
non va il link quando si tenta di scaricare l'esempio zippato

hai ragione, prova adesso

[victor8872]

adesso provo
sapreste dirmi anche come faccio a vedere la dimensione del mio file access
grazie