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 !
@+
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.