Discussion :

[daily14]

Salut

J'ai encore un petit problème:

j'ai 2 tables :
Marque (IdMarque, NomMarque)
Modele (IdModele, NomModele, #IdMarque)

Sur mon projet vb j'ai fait un frm pour permettre à l'utilisateur d'ajouter, modifier ou supprimer des marques et un autre pour les modèles.

Pour Marque, il n'y a pas de problème ça fonctionne!


Mais pour modèle j'ai un problème:

Je voudrais pour l'insertion : que l'utilisateur saisi le nom du modèle dans un textbox, et qu'il choisi la marque dans une liste déroulante(avec toutes les marques de la base)


MERCI

[Ogotcha]

Sur ta liste déroulant affecte comme datasource le résultat d'un SELECT de ta table Marque

[daily14]

oui mais le problème pour l'insertion c'est que l'utilisateur voit dans la liste le NOM de la marque et le choisi, et quand il fait ajouter c'est l'ID de la marque qui doit être ajouter.

[Pol63]

le combobox permet de définir valuemember et displaymember
le valuemember tu le mets sur l'id et le display sur la marque

[m-mas]

et voila un exemple :

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
 
Dim list As New DataTable()
     list.Columns.Add(New DataColumn("Display", GetType(String)))
     list.Columns.Add(New DataColumn("Id", GetType(Integer)))
     list.Rows.Add(list.NewRow())
     list.Rows.Add(list.NewRow())
     list.Rows.Add(list.NewRow())
     list.Rows(0)(0) = "one" '
     list.Rows(0)(1) = 1 '
     list.Rows(1)(0) = "two" '
     list.Rows(1)(1) = 2 '
     list.Rows(2)(0) = "three" '
     list.Rows(2)(1) = 3 '
     comboBox1.DataSource = list
     comboBox1.DisplayMember = "Display"
     comboBox1.ValueMember = "Id"

[daily14]

merci, mais j'ai toujours pas réussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim maRequete As sqlCommand
maRequete = New sqlCommand("select idmarque, nommarque from marque", Connexion.***)
Dim rqtRead As SqlDataReader
rqtRead = maRequete.ExecuteReader
Listemark.items.clear()
 
If rqtRead.HasRows Then
While rqtRead.read
Listemark.DisplayMember = "nommarque"
Listemark.ValueMember = "idmarque"
Listemark.items.Add(rqtRead.getvalue(1))
End While
End If

c'est pas ça ?

[Ogotcha]

eh non pas de chance il te faut passer par une DataTable

Aller un petit exemple

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
Dim Dr As SqlDataReader
        Dim Dt As New DataTable
        Dim DRow As DataRow
 
        Dt.Columns.Add("Value")
        Dt.Columns.Add("Display")
 
        'Ici exécution de ta requête
 
        While Dr.Read
            DRow = Dt.NewRow
            DRow.Item("Value") = Dr("Val1").ToString
            DRow.Item("Display") = Dr("Val2").ToString
            Dt.Rows.Add(DRow)
        End While
        Dr.Close()
 
        TaComboBox.DisplayMember = "Display"
        TaComboBox.ValueMember = "Value"
        TaComboBox.DataSource = Dt

[daily14]

je comprend pas ou est le problème maintenant ? :

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
Dim rqtRead As SqlDataReader
        Dim Dt As New DataTable
        Dim DRow As DataRow
 
        Dt.Columns.Add("Value")
        Dt.Columns.Add("Display")
 
 
       Dim maRequete As sqlCommand
maRequete = New sqlCommand("select idmarque, nommarque from marque", Connexion.***)
Dim rqtRead As SqlDataReader
rqtRead = maRequete.ExecuteReader
 
 
        While rqtRead.Read
            DRow = Dt.NewRow
            DRow.Item("Value") = rqtRead("IdMarque").ToString
            DRow.Item("Display") = rqtRead("NomMarque").ToString
            Dt.Rows.Add(DRow)
        End While
        rqtRead.Close()
 
        TaComboBox.DisplayMember = "Display"
        TaComboBox.ValueMember = "Value"
        TaComboBox.DataSource = Dt

et le code d'insertion :

Code :

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

1
2
Dim maRequete As String
maRequete = "Insert Into modele (NomModele, IdMarque) Values ('" & Me.txtnom.Text & "', '" & Me.Listemark.Text & "')"

Me.Listemark.Text , j'ai aussi essayé .ToString .ValueMember lol j'y comprend plus riennn.

[Pol63]

il ne faut pas utiliser Me.Listemark.Text qui contient la marque mais SelectedValue qui contient le valuemember sélectionné

[daily14]

ahhh ça marche enfinn

[Ogotcha]

content que ça fonctionne pense au petit bouton