Problème de comparaisonRésolu

Question

Salut les experts,
Mon problème c'est que je veux se connecter à mon application vb6 à près avoir faire une comparaison avec le fichier excel;
l'etat d'esprit de mon application est la suivante:
- dans un fichier excel (C:\EBP_Param.xls),j'ai creé 2 colonnes le 1er est nommer Users qui contient touts noms d'utilisateurs de l'application,la 2ème colonne est nommée PassWord qui contient pour le mot de passe de chaque utilisateur,
 - une fois l'application est chargé le formulaire d'identification se lance le 1er, je remplis le nom d'utilisateur et le password(une fois je clic sur "OK" ici l'application doit comparer les champs saisies avec ceux existant dans le fichier excel),et la 2eme form de l'aplication se lance.

Merci d'avance.

jrivet · Accepted Answer

Salut,
En utilisant le code de [auteurdetail.aspx?ID= 68514 NHenry] (salut)

Il te suffit d'ajouter une variable de type boolean

Dim i As Long  'Pour VB6 et VB5, .NET c'est integer
Dim Trouve As Boolean 
i = 0 
Do While Range("A2").offset(i, 0).Value <> ""  'attention, i dans offset doit déplacer la ligne, pas la colonne, je n'ai pas la doc sous les yeux
    If Range("A2").offset(i, 0).Value = ParamLogin Then 
       If Range("B2").offset(i).Value = ParamPasswd Then 
          'Opération, Tout est bon
          Trouve = True 
          Exit Do 
       End If 
    End If 
    i = i + 1 
Loop 
If Not Trouve Then Call  MsgBox ("Mot de passe et loggin absents", vbCritical + vbOKOnly, "erreur") 

@+: =89254 Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Salut,
 Voyons voir si j'ai bien compris.

- Depuis VB6 Tu lance un formulaire d'identification.
- L'utilisateur rempli: User + Password.
- L'appui sur un bouton doit aller verifier si User + Password existe dans C:\EBP_Param.xls
    - Si existe Continue Sur Form2 sinon sort de l'appli.

On est d'accord, On parle JUSTE de VB6... pas de VBA là dedans.

Si c'est bien ce que j'ai compris. Ou est ton problème exactement. car ton post ne nou explique en rien quel est ton problème.

@+: Ju£i?n
Pensez: Réponse acceptée

NHenry · Answer

Bonjour Je ne poserais qu'une question, tu crypte les mots de passe ? Sinon pour le balayage de la liste, un truc du genre : dim i as long 'Pour VB6 et VB5, .NET c'est integer i=0 do while Range("A2").offset(i,0).value<>"" 'attention, i dans offset doit déplacer la ligne, pas la colonne, je n'ai pas la doc sous les yeux if Range("A2").offset(i,0).value=ParamLogin then if Range("B2").offset(i).value=ParamPasswd then 'Opération, Tout est bon exit do end if end if i=i+1 loop devrai aller. Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation) NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

didmousta · Answer

Salut, ce code marche très bien mais il reste un petit truc c'est  que je veux afficher un message d'erreur lorsque le login et le mot de passe saisies n'existent pas dans le fichiers excel.
Merci d'avance

Problème de comparaison

4 réponses

Votre réponse

Discussions similaires