récupérer la valeur d'un champ auto-incrémente

Version imprimable

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

Code:

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.

27/01/2014, 14h18
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.
27/01/2014, 14h20
mehdi.cheddani

est ce possible de me proposer un exemple sinon travailler sur le même code??
27/01/2014, 14h26
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.
27/01/2014, 14h39
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

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

Code:

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.

27/01/2014, 15h29
mehdi.cheddani

j'ai une erreur au niveau de:

Code:

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

il reconnait pas le .add
27/01/2014, 15h37
mehdi.cheddani

même avec une requête parametrée ça ne marche en fait le code chantier et auto increment dans ma table.
27/01/2014, 15h40
callo

Citation:

Envoyé par mehdi.cheddani

il reconnait pas le .add

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

Code:

Dim cmd2 As SqlCommand

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

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

27/01/2014, 15h55
callo

Quelle est précisément la ligne qui bloque? Quelle est la description de l'erreur générée?
27/01/2014, 15h57
mehdi.cheddani

la ligne 26
27/01/2014, 16h04
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.
27/01/2014, 16h07
mehdi.cheddani

les message est :the data type text and varchar are incompatible in the equal to operator
27/01/2014, 16h14
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).
27/01/2014, 17h17
mehdi.cheddani

Merci de penser à marquer votre discussion en Résolue.

Merci beaucoup callo en fait c'était bien ça le problème merci encore une fois!
27/01/2014, 17h39
callo

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