Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    [VB.Net 05] Compattare un db Access con ADO o DAO

    Salve ragazzi.

    Vorrei sapere che riferimenti devo aggiungere al mio progetto o che oggetto devo utilizzare per compattare un database in formato mdb utilizzando ADO o DAO dal .Net 05.

    Ho cercato cercato e cercato ma non ho ottenuto alcun risultato.
    Mi date una mano please?

    Grazie a tutti
    lady

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  2. #2
    nessuno sa darmi una mano?

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  3. #3
    tento un ultimo UP... sperando che qualcuno venga illuminato da un'idea...

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  4. #4
    Utente di HTML.it L'avatar di Kahm
    Registrato dal
    Dec 2004
    residenza
    Rome
    Messaggi
    3,582
    io uso la jro.dll
    se nn la hai te la passo

    e il codice è questo:

    codice:
        Private Sub Compatta(ByVal Sorg As String, ByVal Dest As String)
    
            Dim CONN As New JRO.JetEngine
            Dim CONN_Sorg As String, CONN_Dest As String
    
            CONN_Sorg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Sorg & ";User ID=;Password=;"
            CONN_Dest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dest & "Temp.mdb" & ";Jet OLEDB:Engine Type=5;"
            'Compatta il database. 
    
            If IO.File.Exists(Dest & "\Temp.mdb") Then
                MsgBox("Attenzione File temporaneo nella cartell " & Dest & " gia' esistente: cambiare cartella")
                Exit Sub
            End If
    
            On Error GoTo GestoreErrori
    
            CONN.CompactDatabase(CONN_Sorg, CONN_Dest)
            CONN = Nothing
    
            'Copia il file compattato. 
            Kill(Sorg)
            FileCopy(Dest & "\Temp.mdb", Sorg)
            Kill(Dest & "\Temp.mdb")
    
    
            MsgBox("Compattazione del database terminata con successo.", vbInformation, "Informazione")
            Exit Sub
    
    GestoreErrori:
    
            MsgBox("Errore durante il tentativo di compattazione del database: " & Err.Description & ".", vbCritical, "Service")
    
        End Sub
    qusta sub ha bisogno del file .mdb come parametro e la directory del file temporaneo da creare
    NN vi diro mai chi sono in realta,
    tutti i miei 3D sono orfani, non insistete per farmi rispondere ai 3D aperti da me

  5. #5
    ciao Kahm

    ho cercato sul mio pc questa dll; ho trovato la dll "msjro.dll". immagino sia quella di cui parli tu. ora provo ad inserirla tra i riferimenti del progetto e vediamo se funziona

    grazie

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  6. #6
    Grazie ancora Kahm, funziona tutto alla perfezione



    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.