Discussion :

[mehdi.cheddani]

bonjour,
je voudrai récupérer le code d'un élément sélectionné dans un combobox comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Try
            cn.Open()
            cmd2 = New SqlCommand("select code_chantier,intitule from chantier where intitule='" & ComboBox1.SelectedItem & "';", cn)
            code = cmd2.ExecuteScalar
            'cmd = New SqlCommand("insert into drs_cls(code_chantier,larg,haut,pr,apv,lv,hv) values ('" & code & "','" & Val(TextBox2.Text) & "','" & Val(TextBox1.Text) & "','" & Val(TextBox4.Text) & "','" & Val(TextBox3.Text) & "','" & Val(TextBox6.Text) & "','" & Val(TextBox5.Text) & "');", cn)
            'cmd.ExecuteNonQuery()
            MsgBox("le code est:" & code)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

afin de pouvoir l'insérer dans une autre table mais j'ai une erreur:
"the data type texte and varchar are incompatible in the equal operator.
Merci.

[DeWaRs]

Hello,

Utilise des requêtes paramètrées.

Cordialement.

DeWaRs

Edit : je pense d'ailleurs qu'il faut que tu utilises la propriété selextedIndex plutot que SelectedItem, mais sans plus d'info je ne peux pas etre plus précis.

[mehdi.cheddani]

est ce possible de me proposer un exemple sinon travailler sur le même code??

[callo]

Si tu veux récupérer le texte du combobox, il faut utiliser la propriété Text (ComboBox1.Text).

En outre, s'il faut récupérer seulement, la colonne code_chantier, pourquoi ne pas faire simplement "select code_chantier from chantier where intitule = ...."?

+1 à DeWaRs pour l'utilisation des requêtes paramétrées.

[mehdi.cheddani]

pardon callo mais je te suis pas bien en fait ma requête au départ c'était ça mais j'obtiens la même erreur

[callo]

En prenant en compte l'utilisation des requêtes paramétrées, tu devrais avoir un truc du genre:

Code vb.net :

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 sqlGetCode As String
 
Try
    cn.Open() 
 
    'Requete select 
    sqlGetCode = "SELECT code_chantier FROM chantier WHERE intitule = @ParamIntitule"
    'Création de la commande SQL
     cmd2  = New SqlCommand(sqlGetCode, cn) 
    'Création et déclaration des paramètres 
    cmd2.Add(New SqlParameter("@ParamIntitule", SqlDbType.VarChar, 20)) 
    'Attribution des valeurs aux paramètres
    cmd2.Parameters("@ParamIntitule").Value = ComboBox1.Text 
 
    String code = (String)cmd2.ExecuteScalar() 
 
    MessageBox.Show("le code est: " & code)
 
Catch ex As Exception 
    MessageBox.Show(ex.ToString) 
End Try

J'ai pas testé, mais ça devrait fonctionner.