Discussion :

[metramod]

salut tout le monde
je dévolppe une petite application et je suis tombé sur un probleme
quand je choisis un salarie dans 1 combobox je veus que ses informations s'affichent dans des label j'ai utilisé ce code la et ca marche plus

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim ObjetConnection As SqlConnection 
Dim ObjetCommand As SqlCommand 
Dim ObjetDataAdapter As SqlDataAdapter 
Dim ObjetDataSet As New DataSet 
Dim strSql As String 
Dim strConn As String 
Dim cb As SqlCommandBuilder 
Dim DV1 As DataView 
Dim dt As New DataTable 
Dim rw As Integer 
Dim s As String 
 
strConn = "data source=localhost;" & "integrated security=SSPI;" & "initial catalog=Projet" 
strSql = "SELECT Salarie.* from Salarie" 
ObjetConnection = New SqlConnection() 
ObjetConnection.ConnectionString = strConn 
ObjetConnection.Open() 
ObjetCommand = New SqlCommand(strSql) 
ObjetCommand.Connection = ObjetConnection 
ObjetDataAdapter = New SqlDataAdapter(ObjetCommand) 
ObjetDataAdapter.Fill(ObjetDataSet, "Salarie") 
dt = ObjetDataSet.Tables("Salarie") 
cb = New SqlCommandBuilder(ObjetDataAdapter) 
DV1 = New DataView(ObjetDataSet.Tables("Salarie")) 
DV1.RowFilter = "Fonctionsalarie <> 'Vendeur'" 
ComboBox1.DataSource = DV1 
ComboBox1.DisplayMember = "Numerosalarie" 
s = ComboBox1.Items(0).ToString 
 
If s = dt.Rows(rw).Item("Numerosalarie").ToString Then 
Me.Label4.Text = dt.Rows(rw).Item("Nomsalarie").ToString 
Me.Label5.Text = dt.Rows(rw).Item("Prenomsalarie").ToString 
Me.Label6.Text = dt.Rows(rw).Item("Fonctionsalarie").ToString 
End If

ce code je l'ai mi dans formload
si vous pouvez m'aider svp
merci

[Aspic]

Merci de penser aux balises [code]

Pour récupérer l'item selectionné dans une combobox, il faut faire :

Code :

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

Combo.SelectedItem.Tostring

[metramod]

j'ai essayé avec ca : ComboBox1.SelectedItem.ToString ca marche plus
je ne sais pas ce que je vais faire
merci de m'aider svp

[Aspic]

j essayé avec ca : ComboBox1.SelectedItem.ToString ca marche plus cher pas keske je vais faire

Bon sois plus précis, message d'erreur ?

[yenissay1]

Bonsoir,

Dans votre code essaye de mettre :

ComboBox1.DisplayMember = "Numerosalarie"

Puis :

ComboBox1.DataSource = DV1

Bien à vous,
Yenissay1

[Fikou-Sama]

essaye de remplacez

Code :

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

s = ComboBox1.Items(0).ToString

par

Code :

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

1
2
Combobox1.SelectedIndex = 0
s = ComboBox1.Text

[Poulain]

j'ai utilisé ce code la et ca marche plus

Si tu nous donnes l'erreur, ça ira mieux...