[VB.net] Problème insertion dans la base Sql

Version imprimable

25/11/2009, 10h34
daily14

[VB.net] Problème insertion dans la base Sql

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 :ccool:
25/11/2009, 10h46
Ogotcha

Sur ta liste déroulant affecte comme datasource le résultat d'un SELECT de ta table Marque
25/11/2009, 11h27
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.
25/11/2009, 11h34
Pol63

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

et voila un exemple :

Code:

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"

merci, mais j'ai toujours pas réussi :(

Code:

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 ? 8O

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

Aller un petit exemple ;)

Code:

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

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

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
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:

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.

25/11/2009, 15h33
Pol63

il ne faut pas utiliser Me.Listemark.Text qui contient la marque mais SelectedValue qui contient le valuemember sélectionné
25/11/2009, 15h53
daily14

ahhh ça marche enfinn :ccool:
25/11/2009, 16h13
Ogotcha

:yaisse: content que ça fonctionne pense au petit bouton :resolu: ;)