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.

[mehdi.cheddani]

j'ai une erreur au niveau de:

Code :

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

cmd2.Add(New SqlParameter("@ParamIntitule", SqlDbType.VarChar, 20))

il reconnait pas le .add

[mehdi.cheddani]

même avec une requête parametrée ça ne marche en fait le code chantier et auto increment dans ma table.

[callo]

il reconnait pas le .add

Que veux-tu dire par là? As-tu bien déclarer cmd2 comme ceci:

Code vb.net :

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

Dim cmd2 As SqlCommand

? Si tu peux montrer l'ensemble de ta procédure, ce serait bien et on pourrait mieux t'aider.

[mehdi.cheddani]

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
 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim req As String
        l = Val(TextBox1.Text)
        c = Math.Round(((l - 147) / 2) + 0.5)
        lv = Math.Round((c - 13))
        h = Val(TextBox2.Text)
        dx = Math.Round((h - 72))
        hv = Math.Round((h - 174))
        Dim cmd, cmd2 As New SqlCommand
        Dim code As Integer
        Dim list As New ListViewItem
        list.Text = l
        list.SubItems.Add(h)
        list.SubItems.Add(c)
        list.SubItems.Add(dx)
        list.SubItems.Add(lv)
        list.SubItems.Add(hv)
        ListView1.Items.Add(list)
        cn = New SqlConnection("Data Source=ADMIN\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=MET")
        Try
            cn.Open()
            req = "SELECT code_chantier FROM chantier WHERE intitule = @ParamIntitule ;"
            cmd2 = New SqlCommand(req, cn)
            cmd2.Parameters.Add(New SqlParameter("@ParamIntitule", SqlDbType.VarChar, 20))
            cmd2.Parameters("@ParamIntitule").Value = ComboBox1.SelectedItem
            code = Convert.ToInt32(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
    End Sub

[callo]

Quelle est précisément la ligne qui bloque? Quelle est la description de l'erreur générée?

[mehdi.cheddani]

la ligne 26

[callo]

pourquoi alors dis-tu qu'il reconnait pas le .add? Quel est le message d'erreur? Si tu ne fournis pas tous les détails, il sera difficile de t'aider.

[mehdi.cheddani]

les message est :the data type text and varchar are incompatible in the equal to operator

[callo]

Apparement, tu as définis le champ intitule de ta table chantier comme Texte. je crois que tu ne pas pas utiliser un champ de type Texte dans une clause where du genre "tonChampDeTypeText = UneValeur". Donc change le type de intitule en varchar ou varchar(max).

[mehdi.cheddani]

Merci beaucoup callo en fait c'était bien ça le problème merci encore une fois!

[callo]

C'est un plaisir. N'oublie pas de passer le topic à