1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Compacter et ouvrir une base de données access 2002 avec mot de passe

Compacter et ouvrir une base de données access 2002 avec mot de passe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 774 fois - Téléchargée 37 fois

Commenter

Contenu du snippet

Plusieurs source était disponible sur le site pour effectuer une connection et une compresion, mais aucune fessait les 2 ensembles et avec un mot de passe.

J'espère que vous apprécierez.

Source / Exemple : 


' Ajouter dans une form un bouton

Private Sub Command1_Click()
    dim strCheminSourceDeVotreBd as string
    dim strMotPasse as string

    ' Chemin pour accèder a votre base de données
    strCheminSourceDeVotreBd = App.PAth + "MaBd.mdb"

    ' Entrer votre mot de passe
    strMotPasse = "xxxx"

    If True = CompactBd(strCheminSourceDeVotreBd, strMotPasse) Then
        MsgBox "Compression complété.", vbInformation, "Compression de la base de données"
        ' Recreer la connection à la BD
        call ConnectionBd(strCheminSourceDeVotreBd,strMotPasse)
    Else
        MsgBox "Erreur dans la compression.", vbCritical, "Compression de la base de données"
    End If
End Sub

' Dans un module

Public GCNNBASE As New ADODB.Connection ' Connection à la base de données

' Procédure pour se connecter à votre base
Public Sub ConnectionBD(strCheminSourceDeVotreBd as string,strMotPAsse as string)
   
    on error goto GestionErreur

    GCNNBASE.Provider = "Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=" & 
                                         strMotPAsse

    GCNNBASE.ConnectionString = strCheminSourceDeVotreBd
    GCNNBASE.Open

GestionErreur:
       msgbox"Erreur dans la connection",vbinformation
end sub

' Function pour compacter la base
Public Function CompactBd(strCheminBd As String, strMotPasse As String) As Boolean
    
    On Error GoTo GestionErreur
    
    Dim jro As jro.JetEngine
    Dim strTempBd As String
    
    ' Regarde si la connection à la Bd est ouverte
    If GCNNBASE.State = 1 Then GCNNBASE.Close
    
    strTempBd = App.Path & "\Temp.mdb"
    
    Set jro = New jro.JetEngine
    
    ' Compacter le Bd source dans la Bd Temporaire (strTempBd)
    jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCheminBd & ";Jet OLEDB:Database Password=" & strMotPasse, _
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTempBd & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=" & strMotPasse
                        
    ' Effacer la base de donnée source
    Kill strCheminBd
    
    ' Renomme la Bd Temporaire pour votre nom de bd
    Name strTempBd As strCheminBd
    
    CompactBd = True
    
    Exit Function

GestionErreur:
     CompactBd = False
End Function

A voir également

Ajouter un commentaire Commentaires
cs_frederic1313 Messages postés 1 Date d'inscription lundi 23 octobre 2006 Statut Membre Dernière intervention 26 octobre 2007
26 oct. 2007 à 11:04
c'est une merde !!!
Nightcourrier Messages postés 118 Date d'inscription dimanche 12 octobre 2003 Statut Membre Dernière intervention 28 mars 2008
10 déc. 2004 à 20:42
vous pouvez ajouter un commentaire ou une note .... :)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.