Discussion :

[souhail72]

Bonjour
j'ai un formulaire fais d'un combobox et de plusieurs listbox, je souhaite a la sélection d'un élément du combobox, j'alimente les champs textebox avec une base de donnée sqlserver.

donc sur l'événement indexchanged, j'ouvre une connexion à la base et j'effectue les opérations.

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
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_PartNumber.SelectedIndexChanged
 
    TB_Affichage_PartNumber.Text = "Vous avez sélectionner le PartNumber N° : " & CB_PartNumber.SelectedItem
    Dim requete, connexionString As String
    connexionString = "Data Source=SLOGAN-SQL-STAGING;Initial Catalog=DieNumbersStorage;Integrated Security=True"
    requete = "SELECT * FROM DieProducts, DieDefinitions where DieProducts.FKDieDefinition = DieDefinitions.Id And '" & CB_PartNumber.Text & "'"
 
    Dim connexion As IDbConnection = New SqlConnection(connexionString)
    Dim commande As IDbCommand = connexion.CreateCommand()
    commande.CommandText = requete
    commande.CommandType = CommandType.Text
    connexion.Open()
    Try
 
      TB_Description.Text = CB_PartNumber.SelectedItem
 
    Catch ex As Exception
      MsgBox("Pas de connexion à la SqlServer! " + ex.Message)
    End Try
 
  End Sub

dans le try j'arrive a afficher ce que j'ai sélectionné dans le combobox, par contre je ne sais pas comment faire pour appeler l'ensemble des éléments correspondant a la sélection du combobox.
merci @ vous e votre aide

[ZenZiTone]

dans le try j'arrive a afficher ce que j'ai sélectionné dans le combobox, par contre je ne sais pas comment faire pour appeler l'ensemble des éléments correspondant a la sélection du combobox.
merci @ vous e votre aide

Comment est alimenté ton ComboBox? Si ce sont des objets, tu dois les récupérer entier... Là, ce que tu fais c'est que tu récupère la composante texte.

[souhail72]

Le combobox est alimenté par une table sqlserver, je fais la requête un simple select. ce que je souhaite est a la selction d'un choix dans la combobox, elle m'affiche toutes les données correspondants dans des textebox.
entre autre j'ai avancé sur ma requête et je récupère bien le choix effectué.

Code :

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

requete = "SELECT * FROM DieProducts, DieDefinitions where DieProducts.FKDieDefinition = DieDefinitions.Id And DieProducts.PartNumber= '" & CB_PartNumber.Text & "'"

Le probléme c'est que j'arrive pas a écrire dans les textbox et comment j'appelle ?

Code :

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

1
2
3
4
5
6
7
8
Try
      While (lire.Read())
 
 
      End While
    Catch ex As Exception
      MsgBox("Pas de connexion à la SqlServer! " + ex.Message)
    End Try

Merci @ vous

[souhail72]

Juste au cas ou d'autre cherchaient la même chose. ci joint le code pour

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
Dim da As New SqlDataAdapter(commande)
    Dim ds As New DataSet
    Dim dt As New DataTable
 
    da.Fill(ds, "Description")
 
    Dim dr As SqlDataReader = commande.ExecuteReader
 
    Do While dr.Read
 
      TB_Description.Text = dr("Description")
      TB_Nom.Text = dr("Name")
      TB_RegEx.Text = dr("DieRegex")
      TB_Prefixe.Text = dr("Prefix")
      TB_Sufixe.Text = dr("Sufix")
      TB_Lenght.Text = dr("Length")
      TB_Maximum.Text = dr("Maximum")
      TB_Minimum.Text = dr("Minimum")
      TB_LastValue.Text = dr("LastValue")
      'Id est sous forme d'un GUID, la conversion en String se fait par toString
      TB_Id.Text = dr("Id").ToString
    Loop