Discussion :

[nokia1600]

Bonjourà tous,
Voila j'ai commencé la création d'une table de hachage pour récuperer l'index_Agent (qui se trouve être une clé primaire d'une table) afin d'alimenter une listebox etd'éviter les homonymes.
Le probème c'est que je n'arrive pas à terminer la table de hachage si quelqu'un pouvait m'aider ce serait super sympa. Voici le 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
15
16
17
18
Dim NbEnreg 
Me.Tbl_AgentsTableAdapter.Fill(Me.GRHDataSet1.Tbl_Agents) 
Me.objDATA = New CLdata() 
Me.rqSql = "SELECT Index_Agent, Nom, Prenom " & _ 
"FROM Tbl_Agents " 
Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT") 
NbEnreg = DS.Tables(0).Rows.Count - 1 
For I = 0 To NbEnreg 
H.Add(DS.Tables(0).Rows(I).Item(0), DS.Tables(0).Rows(I).Item(1)) 
Me.search.Items.Add(DS.Tables(0).Rows(I).Item(1) & " " & DS.Tables(0).Rows(I).Item(2)) 
Next 
End Sub 

Private Sub search_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.SelectedIndexChanged 

Me.search.SelectedIndex 
Call Me.searchDATA() 
End Sub

J'ai du mal à savoir quoi mettre dans me.search.selectedIndex

search est le nom de la listbox

Voila et merci d'avance

[Médinoc]

Je suis peut-être aveugle, mais je ne vois pas de table de hachage ici: seulement des tables de base de données...

De plus, les System.Collections.HashTable sont obsolètes: Il est préférable d'utiliser les System.Collections.Generic.Dictionary(Of TKey, TValue)...

[nokia1600]

Code :

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

1
2
H.Add(DS.Tables(0).Rows(I).Item(0), DS.Tables(0).Rows(I).Item(1)) 
Me.search.Items.Add(DS.Tables(0).Rows(I).Item(1) & " " & DS.Tables(0).Rows(I).Item(2))

c'est une hashtable

[Médinoc]

Tu veux dire que H est une System.Collections.HashTable ?

Tu cherches à obtenir quoi en fonction de quoi exactement?

[nokia1600]

Oui dans mes déclarations du formulaire Private H as new Hashtable

En gros j'ai une listeBox, ou j'affiche le nom et le prénom des employés et je souhaite que quand je clic sur un nom prénom de la listebox les informations des agents s'affichent dans les différentes textBox prévu à cette effet.

J'ai utilisé le système de table de hachage pour éviter les homonymies je m'explique.

En fait dans ma Hashtable je met en en clé le nom et le prenom de chacun des employés et comme valeur l'index qui est dans ma table donc comme cela chaque nom et prénom sera associé à l'index de ma table sous sql server 2005 et l'homonymie n'existera plus.

[Médinoc]

Il te faudrait plutôt un truc de ce genre:

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
	Structure NomPrenom
		Public nom As String
		Public prenom As String
 
		Public Sub New(ByVal nom As String, ByVal prenom As String)
			Me.nom = nom
			Me.prenom = prenom
		End Sub
	End Structure
 
	Private H As New Dictionary(Of NomPrenom, Integer)
 
...
	'Dans ta boucle
		H.Add(New NomPrenom(nom, prenom), id)