numéro auto-incrémenté suivi d'un caractère spécial et l'année Résolu

Question

Bonjour à tous,

Je suis toujours en cours de développement d'une gestion d'adhésion et d'inscription à des activités sous VB 2008 et mysql comme base.

1- J'ai un listview où sont affichés les champs d'une table de labase. En cliquant ou sélectionnant sur une ligne (un enregistrement), une description (à mettre à l'intérieur du code) s'affiche dans un label. J'arrive pas à afficher cela.

2- J'aimerai aussi avoir un numéro d'adhésion incrémenté de 11111 à 99999 suivi d'un caractère spécial et l'année selon l'adhésion. 
Exemple: 11458/12 ou 56812/13 
ET que chaque nouvelle année, les numéros se remet de 11111/14 à 99999/14 (11111/15 à 99999/15).

Je suis un peu débutant en programmation VB c'est pourquoi je demande votre aide. J'espère vous lire très très bientôt.
J'attends donc vos réponses et merci d'avance.

xxdaw · Answer

Bonsoir,

Personne ne peut vraiment pas m'aider. J'ai vraiment besoin de votre aide.

Impatient de vous lire.

pijaku · Answer

Bonjour,

pas pero, mais une piste :
Pour le 1 : affichage d'un label contenant un commentaire lors d'un clic dans le listview :

Dim i&
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Selected = True Then 
        Label1.Caption = "Mon Commentaire ICI"
        Exit For
    End If
Next 
En prime, un tuto sur le listview

xxdaw · Answer

Bonjour pijaku,

J'ai essayé mais il dit que 'listItem' n'est pas un membre de 'System.Windows.Forms.ListView'. 

De plus que chaque ligne a chacun son commentaire.
exemple:
Id catégorie        Nom catégorie
1                         Enfant
2                         Ados
3                         Adulte
etc...
et q'on cliquant sur la première ligne le commentaire 1 s'affiche dans le label
et sur la deuxième, le commentaire 2 s'affiche dans le même label
etc...

merci d'avance.

xxdaw · Answer

Merci,

J'ai résolu mon problème.

If ListViewCat.Items(0).Selected = True Then
            LblDescriptionCat.Text = "Membre agé de 3ans à 12ans"
        ElseIf ListViewCat.Items(1).Selected = True Then
            LblDescriptionCat.Text = "Membre agé de 13ans à 17ans"
        ElseIf ListViewCat.Items(2).Selected = True Then
            LblDescriptionCat.Text = "Membre agé de 18ans et plus"
        ElseIf ListViewCat.Items(3).Selected = True Then
            LblDescriptionCat.Text = "Membre agé de 18ans et plus et étudiant"
End If

Je sais pas s'il ya quelque chose qui manque mais ça passe jusqu'ici.

Numéro auto-incrémenté suivi d'un caractère spécial et l'année

4 réponses

Discussions similaires

Newsletters