probleme avec l'insertion

Version imprimable

bonjour
j'ai un petit probleme avec l'insertion je sais que c'est un peu simple mais j'arrive pas a trouver l'erreur :cry:
je veux inserer dans ma table programme des donnees apartir de textbox et combobox...mais le probleme c'est dans le checkbox
car j'ai trois checkbox pour definir le type du programme : 1 coupure 2 visite 3 permanence
et pour enregistrer c'est quel type parmi les trois j'ai fait des if ..voila mon code de bouton "enregistrer"

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
34
35
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim typo As String
 
        If CheckBox1.Checked Then
            typo = "visite"
        End If
 
        If CheckBox2.Checked Then
            typo = "coupure"
 
        End If
        If CheckBox3.Checked Then
            typo = "permanence"
        End If
 
 
        Dim connectString As String = My.Settings.ONEConnectionString
        Dim connection As New System.Data.SqlClient.SqlConnection(connectString)
        Dim cmd As New System.Data.SqlClient.SqlCommand
        cmd.CommandType = System.Data.CommandType.Text
 
        cmd.Connection = connection
 
        cmd.CommandText = "INSERT into programme VALUES ('" & TextBox5.Text & "','" & TextBox1.Text & "',@typo ,'" & ComboBox2.SelectedValue & "')"
 
 
        connection.Open()
        cmd.ExecuteNonQuery()
        connection.Close()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
 
 
         End Sub

et ca bloque lors de l'execution de la requete :calim2:
je sais pas est ce que j'ai mal fait les conditions ou bien c'est l'ecriture de @typo qui n'est pas bonne !!?

16/09/2009, 13h33
Pol63

il te manque la déclaration du paramètre (qui n'est pas obligé d'avoir le meme nom d'ailleurs)

cmd.parameters.Add("@typo",type).value = typo

j'ajouterais qu'il te manque un try catch
et qu'une concaténation de la requete avec des textbox c'est pas top (genre si quelqu'un mets une apostrophe dans un textbox ca plante) (là aussi il faudrait utiliser des parameters)
18/09/2009, 14h11
ciara

merci bien le probleme est resolu maintenant !:ccool:
mais j'ai fait pour ca :

Code:

cmd.Parameters.Add("@typo", SqlDbType.Text).Value = typo

peut etre sur 2005 ..ca n'accepte pas "type" mais plutot "SqlDbType.Text "
18/09/2009, 14h19
Pol63

oui c'est normal que n'accepte pas type, j'ai mis ca ne connaissant pas le type de ta colonne
(t'es sur que c'est pas un varchar plutot d'ailleurs ? le type text est rarement utilisé)