begin process at 2012 05 27 06:13:08
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Base de Donnees

 > 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


 Information sur la source

Note :
4,5 / 10 - par 2 personnes
4,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Base de Donnees Niveau :Débutant Date de création :25/11/2004 Date de mise à jour :26/11/2004 14:25:32 Vu :5 709

Auteur : Nightcourrier

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

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

  • ' 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
' 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



 Historique

26 novembre 2004 14:25:33 :
AJOUTER EN RÉFÉRENCE DANS VOTRE PROJET: MICROSOFT JET AND REPLICATION OBJECTS 2.X LIBRAIRY (MSJRO.DLL)

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) RECHERCHE DE MOTS DANS UN DICTIONNAIRE par alpha5
Source avec Zip Source avec une capture Source .NET (Dotnet) GESTION DES ANIMAUX par okosa
Source avec Zip Source avec une capture LIST DES IMAGES AVEC BASE DE DONNÉES ET REPERTOIR D'IMAGE par yannickcephas
Source avec Zip Source avec une capture CHARGER UNE BASE DONNÉES DANS UNE LISTVIEW PUIS L'EXPORTER S... par johndave
Source avec Zip Source avec une capture BIEN ADMINISTRER LES ETUDIANTS ET LEURS CÔTES par okosa

Commentaires et avis

Commentaire de Nightcourrier le 10/12/2004 20:42:12

vous pouvez ajouter un commentaire ou une note .... :)

Commentaire de frederic1313 le 26/10/2007 11:04:52

c'est une merde !!!

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,593 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales