IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
logo
Sommaire > Divers > Sécurité
        Ouvrir un objet DAO.Database en s'identifiant dans un groupe de travail

rechercher
precedent    sommaire       telecharger


Auteur : Maxence Hubiche
Version : 05/03/2005
Ouvrir un objet DAO.Database en s'identifiant dans un groupe de travail
Cet exemple permet d'ouvrir un objet DAO.Database en spécifiant le fichier mdw nécessaire à l'ouverture.

Attention : Ce code doit être utilisé avant qu'une autre instance d'un objet DAO ne soit créé sans quoi il est impossible de spécifier un autre fichier mdw que le fichier courant.

Soit le formulaire suivant :

Il est composé de haut en bas :

  • Une zone de texte TFichier
  • Une liste modifiable ListeSecu
  • Une zone de texte TAdmin
  • Une zone de texte TUser
  • Une zone de texte TMDP

Voici le code correspondant :

Code du bouton Valider :
Private Sub Commande10_Click()
'ouvre le fichier avec la securité choisie
On Error GoTo err
Dim fichier As String
Dim VDb As DAO.Database
Dim chaine As String
Dim VWK As DAO.Workspace
Dim dbe As DBEngine
Dim FichierMDW As String
If Len(TFichier) > 0 Then

  fichier = TFichier
  'prépare l'espace de travail
  If ListeSecu.ListIndex = 0 Or ListeSecu.ListIndex = 2 Then
    Set VWK = Workspaces(0)
  Else
    FichierMDW = OuvrirUnFichier(Me.Hwnd, _
    "Selectionner un fichier de groupe de travail", 1, _
    "Fichier mdw", "mdw")
    If FichierMDW = "" Then
      Exit Sub
    Else
      Set dbe = New DBEngine
      dbe.SystemDB = FichierMDW
      Set VWK = dbe.CreateWorkspace(Format(Now(), _
        "yyyymmddhhnnss"), TUtilisateur, TMDP, dbUseJet)
    End If
  End If
  'Ouvre la base de données
  If ListeSecu.ListIndex = 2 Or ListeSecu.ListIndex = 3 Then
    Set VDb = VWK.OpenDatabase(fichier, False, False, _
    "MS Access;PWD=" & TAdmin)
  Else
    Set VDb = VWK.OpenDatabase(fichier)
  End If
Else
  MsgBox "Vous devez selectionner un fichier", _
   vbExclamation, "Saisie du fichier"
End If
Exit Sub
err:
MsgBox "Impossible de se connecter à la base de données. " & _
  "Vérifier le chemin d'accès et les informations " & _
  "d'authentification", vbCritical, "Erreur"
End Sub
Code d'ouverture du formulaire :
Private Sub Form_Load()
'Vide les controles
Dim t As Control
For Each t In Me.Controls
If TypeOf t Is TextBox Then
t = ""
If t.Name <> "TFichier" Then t.Enabled = False
End If
Next t
ListeSecu = "Aucune"
End Sub
Code du bouton parcourir
Private Sub Commande3_Click()
Dim Chemin As String
Chemin = OuvrirUnFichier(Me.Hwnd, _
"Selectionner une base de données Access", _
1, "Fichiers Access", "mdb")
If Chemin <> "" Then
Me.TFichier = Chemin
End If
End Sub
La fonction OuvrirUnFichier est disponible dans la FAQ Access et elle permet d'afficher une boîte de dialogue de sélection de fichier.

La base de données ainsi ouverte est disponible via l'objet : VDB de la procédure du bouton Valider.

Un exemple de ce code est disponible ici.


rechercher
precedent    sommaire       telecharger

Valid XHTML 1.1!Valid CSS!

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2005 Maxence Hubiche Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.