la suppression et l'ajout des enregistrements sur vb.net en relation avec les id

Version imprimable

20/08/2011, 17h54
wikiele

la suppression et l'ajout des enregistrements sur vb.net en relation avec les id

salut à tous,

j'ai fais un formulaire pour afficher les informations des employés sur visual studio.
ces informations se trouvent sur plusierus tables de sql server express 2005, liées entre par les clés ètrangères.
et j'ai ajouté sur ce formulaire, un bouton pour afficher les informations du dernier employé.
un bouton pour afficher le premier employé.
et un bouton qui permet de visualiser les informations de l'employé qui suit l'employé qui est en cours d'affichage sur le formualaire. et aussi pour voir le précédent.

les 2premiers boutons marchent bien, puisque j'ai utilisé "select * from employe where id_employe=min(id_employe)" et select * from employe where id_employe=max(id_employe).

pour les autres boutons, ça marche bien, tant que les identifiants des employés ont un ordre ascendant:1,2,3,4,5 parce que j'ai mis pour l'id de la table employe, auto incrémenté de pas 1(identity)
supposant que j'ai supprimer un employé x d'un id=2, il y'a aura donc sur la table employe:1,3,4,5
et j'ai ajouté après un employé y, donc on aura :
1,3,4,5,6
et je supprime celui de 4=>
la liste des employé sera comme ceci:
1,3,5,6

alors quand je suis sur le formulaire, et j'affiche le 1er employé, et je fais le suivant, :( on m'affiche rien, il reste sur le premier.
même chose, lorsque je suis sur le dernier et je fais le précédent, on m'affiche le précédent qui est le 5, mais son précédent, on me l'affiche pas.

parce que j'ai programmer les boutons suivant et précédent, pour qu'ils affichent l'employé de l'identifiant= identifiant de l'employé qui est affiché sur le formulaire plus 1 (suivant) et moins 1(précédent).

s'il vous plait pouvez vous m'aider?
est ce qu'il y'a un moyen, pour traiter l'ajout et la suppression, afin que j'aie les identifiants dans l'ordre croissant et pas de coupure?

merci pour votre compréhension

salut

Ce serait Mieux que tu ajoute le code de tes boutons Précédent et Suivant

Des exemples :

Bouton Précédent

Code:

1
2
3
4
5
6
7
8
If i > 0 Then
            i = i - 1
            Me.TextBox1.Text = dsagent.Tables("Agent").Rows(i).Item("CodPers").ToString
            Me.TextBox2.Text = dsagent.Tables("Agent").Rows(i).Item("Nom").ToString
 
        Else
            MsgBox("Vous êtes au début des enregistrements...")
        End If

Bouton Suivant

Code:

1
2
3
4
5
6
7
8
9
 
 If i < dsagent.Tables("Agent").Rows.Count - 1 Then
            i = i + 1
            Me.TextBox1.Text = dsagent.Tables("Agent").Rows(i).Item("CodPers").ToString
            Me.TextBox2.Text = dsagent.Tables("Agent").Rows(i).Item("Nom").ToString
 
        Else
            MsgBox("Vous êtes à la fin des enregistrements...")
        End If

je vous remercie

voici le code pour le bouton suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 connect()
        Dim id_courant, id_suivant, max As Integer
        Dim req As String
 
        req = "select id_employe from employe where ppr=" & T_ppr_l.Text
        lecture_BD(req)
        While dr.Read
            id_courant = dr.GetValue(0)
        End While
        ' MsgBox(id_courant)
        dr.Close()
 
        req = "select max(id_employe) from employe"
        lecture_BD(req)
        While (dr.Read)
            max = dr.GetValue(0)
        End While
 
        dr.Close()
 
        If (id_courant = max) Then
            MsgBox("cet employé est le dernier! ")
 
        Else
 
            id_suivant = id_courant + 1
 
            req = "select * from employe where id_employe=" & id_suivant
            lecture_BD(req)
            While dr.Read
 
        '###### affectations des valeurs aux champs du formulaire######
 
            End While

franchement j'ai pas compris votre code
c'est quoi ce i?
vous utilisez une liste ou quoi?

22/08/2011, 08h35
hunteshiva

Bonjour,

"i" est simplement une variable de type Integer
qui contient le numéro de l'enregistrement ou le numéro de ligne.
Tout dépand de ce qui est mis dedans au départ et comment il est implémenté.