Client/serveur avec dbase access 9x/2000

Soyez le premier à donner votre avis sur cette source.

Vue 10 751 fois - Téléchargée 1 398 fois

Description

Exemple d'implémentation d'une application Client/Serveur liée à une connexion DBase Access.

Créer des variables globales :
- Chaîne : gstrDBName As String
- Objet : goStatusPanel As Object
- DataBase : gDB As Database

Insérer dans votre formulaire de démarrage la source suivante et créer des contrôles suivants :
- Contrôle CommonDialog et le nommer CommonDialog1
- Contrôle Label et le nommer Supp
- Votre contrôle Timer (si vous en avez un) doit s'appeler TimerLoad

Remplacer "cybersite.mdb" par le nom de votre base de données access.

Pour toutes autres information concernant le code me contactez dave_ddp@hotmail.com

Source / Exemple :


Private Sub Form_Load()
Dim i As Integer
Me.Show

On Error GoTo LoadError

  Set goStatusPanel = Me.Supp
  goStatusPanel.Caption = "Connection au serveur..."
   ' Set gDB = Workspaces(0).OpenDatabase(gstrDBName, , False) Insérer ce code pour la connexion vers une chaîne ODBC ou SQL
   Set gDB = OpenDatabase(gstrDBName, , False, True) ' pour Access 9x/2000
   
LoadExit:
     goStatusPanel.Caption = "Connection établie avec succès..."
  Exit Sub
  
LoadError:
  
  'Gestionnaire d'erreur avancé, si votre base de donnée est introuvable
  'renvoi l'erreur 3024 comme code.
  If Err = 3024 Then
      Me.TimerLoad.Enabled = False ' désactiver le contrôle Timer du formulaire de démarrage, s'il n'ya pas ce contrôle, "supprimer" cette ligne.
      'Applique les propriétés CommonDialog avant l'affichage.
      With CommonDialog1
        .DialogTitle = "Impossible de localiser la Base de Données"
        .Filter = "DBase CyberSite (*.mdb)|*.mdb"
        .InitDir = CurDir
        .FileName = ""
        .Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or cdlOFNPathMustExist
        .ShowOpen
        'vérifier que filename n'est pas une chaîne vide
        If .FileName <> "" Then
          'Vérifier que la DBase ouverte est réellement cybersite.mdb
          If Right(UCase(.FileName), Len("cybersite.mdb")) = "CYBERSITE.MDB" Then
            gstrDBName = .FileName
          End If
          Me.TimerLoad.Enabled = True 'Réactive le contrôle Timer
          Resume
        Else
          If .FileName = "" Then
            goStatusPanel.Caption = "Connection intérompue !!"
            MsgBox "Base de Données CyberSite non définie, démarrage de l'application impossible !", vbCritical, "Erreur de chargement"
            End
          End If
          Unload Me
        End If
      End With
  ElseIf Err <> 0 Then ' Autres erreurs...
      MsgBox Error$ & " - " & Str$(Err) & vbCrLf & "Erreur non générée par l'application.", vbExclamation, "Erreur fatale"
      End
  End If
  
  Resume LoadExit
End Sub

Conclusion :


C'est simple ! Vous insérer le code et oups !
Au démarrage le Formulaire de démarrage cherche sur chargement à oouvrir la base de données access depuis le répertoire courant (par défaut) de l'application. Si cette dernière n'y est pas, alors il ouvre une fenêtre et vous demande d'en préciser la localisation. Vous pouvez héberger la base dans un serveur réseau et l'ouvrir depuis n'importe quelle machine en utilisant cette méthode. Le "Hic" est qu'à chaque ouverture il faut réspécifier le chemin de la base de donnée.
Extension possible : On peut dans la même ligné enregistre à la prémière ouverture du formulaire, le chemin de la base de données dans la base de régistre de Windows. et recupérer ce dernier làbas. Dans le cas où elle (la base de données) n'est pas dans ce chemin, exécuter alors le code de réallocation du chemin.
Envoyez-moi la version extensible si vous arrivez à le faire. Sinon je travaille actuellement dessus !
@+

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_stailer
Messages postés
511
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
13 mai 2009
1 -
Merci beaucoup pour ce code qui va m'être fort utile.
Je tiens aussi à te remercier pour tes réponses, rapides et claires.
Tu es fort sympathique, continue comme ca.

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.