Discussion :

[melancolie]

bonjour, j'ai installé mon application sur chaque poste client. De n'importe quel poste, je voudrais savoir si l'application est ouverte sur le poste P1.

je dois situer l'objet de ma préoccupation.
dans l'environnement Client/Serveur, je ne veux pas qu'un utilisateur ouvre une session sur le poste P0 et une autre sur le poste P1. si en ouvrant une session sur P0, l'application lui signale qu'il a déjà une session ouverte sur P1, comment peut-il le vérifier sans se déplacer.

merci d'avance

[vb]

Bonjour,
Voici une que moi j'applique
Chaque pc est installé le programme
Sur le pc 1 c'est lui le serveur
Les autres je fais... connecter un lecteur réseau, je pointe sur l'exe de pc 1 et ainsi de suite pour tout les pc du réseaux.
Dans mon programme, j'ai mis tout simplement un fichier txt, avec inscription tout simplement 0
Dans mon exemple, ici le but est d'empêcher d'autres pc utilisateur à encoder une commande dans la base access
1ère étape, créer le fichier txt et dedans je mets 0
2 ème étape lorsque que je veux encoder une commande, je vérifie si le fichier est bien à 0 par ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim f As Integer
    Dim ligne As String
 
    f = FreeFile
    Open App.Path & "\Sécurité.txt" For Input As #f
              Line Input #f, ligne        
    Close #f
If ligne = "1" Then
MsgBox "Programme de commande en cour !" & Chr(13) _
        & " Veuillez patienter..." _
        & " ou recommencer plus tard...", vbInformation, "Sécurité d'application"
 
Exit Sub
End If

Lorsque j'ouvre mon formulaire commande je mets ceci(Load)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'===========================Ecriture dans le fichier  et bloque les autres poste...
Dim f As Integer
    Dim FileName As String
    FileName = App.Path & "\Sécurité.txt"
    ' Obtention d'un numéro de fichier libre
    f = FreeFile
    ' Ouverture en mode écriture ("output")
    Open FileName For Output As #f
    ' Ecriture
        Print #f, "1"
        ' Fermeture du fichier
    Close #f

Lorsque j'ai fini dans la fermeture du formulaire(Unload)je permets à d'autre poste de travailler!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'=============================Ecriture dans le fichier et permet de faire une commande
Dim f As Integer
    Dim FileName As String
    FileName = App.Path & "\Sécurité.txt"
    ' Obtention d'un numéro de fichier libre
    f = FreeFile
    ' Ouverture en mode écriture ("output")
    Open FileName For Output As #f
    ' Ecriture
        Print #f, "0"
    ' Fermeture du fichier
    Close #f

Voici une piste que j'ai appliqué, sans doute que d'autres sont plus fines et pointues...mais cela est le but du forum
Juste a adapter dans votre but recherché?
Bien à vous
Vb

[melancolie]

VB, je crois comprendre que quand l'application est lancée, les autres postes sont verrouilés.
le principe de mon programme est le suivant:
dans ma base de données,il y a une table des utilsateurs (matricule,nom et prénom utilisateur,nom utilisateur,mot de passe,connecté,nom du poste).la base de données est installée sur un serveur et l'application est installée sur les postes clients.chaque utilisateur ouvre une session de l'application avec un login.son statut "Connecté" devient "OUI" et le nom du poste s'ajoute dans la table.un utilisateur ne peut avoir sa session ouverte sur deux postes en même temps.
c'est pourquoi je veux savoir si l'application est ouverte sur un autre poste

[vb]

VB, je crois comprendre que quand l'application est lancée, les autres postes sont verrouilés.
le principe de mon programme est le suivant:
dans ma base de données,il y a une table des utilsateurs (matricule,nom et prénom utilisateur,nom utilisateur,mot de passe,connecté,nom du poste).la base de données est installée sur un serveur et l'application est installée sur les postes clients.chaque utilisateur ouvre une session de l'application avec un login.son statut "Connecté" devient "OUI" et le nom du poste s'ajoute dans la table.un utilisateur ne peut avoir sa session ouverte sur deux postes en même temps.
c'est pourquoi je veux savoir si l'application est ouverte sur un autre poste

Et bien la réponse est dans ta question....a l'ouverture de l'application à l'aide d'un recordset , tu vérifies si ce nom n'est déjà pas dans ta table utilisateurs, si oui pas de permission d'ouvrir, en fait c'est le même principe que j'ai décris plus haut, mais ici l'info est dans une table !
vb

[melancolie]

merci VB. à la fermeture de l'application,la table est mise à jour.le champ "connecté" pour l'utilisateur se met à "NON" et le champ du nom du poste se vide.le hic, c'est qu'une interruption brusque de l'application peut faire que ma bd peut ne pas être à jour.il faut donc en ce moment que mon application vérifie si l'application est ouverte sur le poste indiqué.

[ProgElecT]

merci VB
...........
le hic, c'est qu'une interruption brusque de l'application peut faire que ma bd peut ne pas être à jour. il faut donc en ce moment que mon application vérifie si l'application est ouverte sur le poste indiqué.

Si cela n'est pas dût à une coupure de courant, il est possible de prévoir les autres cas dans la procedure Form_QueryUnload suivant L'argument unloadmode

vbFormControlMenu 0 L'utilisateur a choisi dans le menu Système de la feuille la commande Fermeture.
vbFormCode 1 L'instruction Unload est invoquée à partir du code.
vbAppWindows 2 La session Microsoft Windows en cours prend fin.
vbAppTaskManager 3 Le Gestionnaire de tâches de Microsoft Windows ferme l'application.
vbFormMDIForm 4 Une feuille MDI fille se ferme en raison de la fermeture de la feuille MDI.
vbFormOwner 5 Une feuille se ferme en raison de la fermeture de son propriétaire.

[melancolie]

c'est déjà pensé. c'est surtout pour la coupure brusque d'électricité que je m'inquiète.

[ProgElecT]

Salut

A moins d'utiliser un onduleur .......
Une stratégie peut être applicable malgré tous, vérifier si le flag de la BD signal qu'un poste est en cours d'utilisation pour le même nom de session utilisateur, vérifier que ce poste est bien "allumé".
De plus,a chaque démarrage d'un poste (sur tous les postes) tu mes systématiquement le Flag de non occupation par ce poste avant même l'ouverture d'une session utilisateur de ton programme principal.
Je me comprend, pas sûr par contre que j'ai sus m'expliquer

[melancolie]

si je peux avoir un bout de code qui puisse m'aider, ce serait déjà un pas

[ProgElecT]

Salut
le 01/02/2011 11h40

à la fermeture de l'application,la table est mise à jour.le champ "connecté" pour l'utilisateur se met à "NON" et le champ du nom du poste se vide.

Tu le fais dans ton programme principal au moment de la fermeture, il suffit de le faire aussi dans un programme annexe, que tu mes dans le dossier Démarrage de Windows.

[melancolie]

merci
je vais essayer de mettre ce que tu m'as dit en oeuvre et je t'en dirai des nouvelles