Requête SQL avec CheckBox vb.net

Version imprimable

29/03/2008, 16h48
pierrot53

Requête SQL avec CheckBox vb.net

Bonjour

J’ai un formulaire avec des checkbox.

Je voudrai insérer ses résultats dans ma BDD Access
j'ai pensé a : "INSERT INTO chambre (CHA_TV) values (" + testcheck + ")"

Mais voilà je suis bloqué, au moment de l’exécution, j’obtiens

« La conversion de la chaîne "INSERT INTO chambre (CHA_TV) v" en type 'Double' n'est pas valide. »

Pour info le champ dans ma BDD access est sous le format : Oui/Non
29/03/2008, 18h15
LaChips

Bonjour,

Essayez avec testcheck.Checked au lieu de testcheck.

Vérifiez bien que le champs CHA_TV est bien un booléen et pas un double.
29/03/2008, 18h32
Pol63

moi je pencherais plutot pour le fait qu'il essaie de mettre la requete dans la mauvaise propriété ...
29/03/2008, 19h13
pierrot53

Citation:

Envoyé par sperot51

moi je pencherais plutot pour le fait qu'il essaie de mettre la requete dans la mauvaise propriété ...

Que veux-tu dire ?

j'ai bien vérifié ma table, le format du champ est "Vrai/Faux"

avec "INSERT INTO chambre (CHA_TV) values (" + Me.CheckBox1.Checked + ")"

Ça ne marche toujours pas. Pourtant, il me détecte bien si ma case est à True ou False.

Quelle peut être cette erreur ?:roll:
29/03/2008, 20h02
LaChips

Citation:

Envoyé par pierrot53

Que veux-tu dire ?

j'ai bien vérifié ma table, le format du champ est "Vrai/Faux"

avec "INSERT INTO chambre (CHA_TV) values (" + Me.CheckBox1.Checked + ")"

Ça ne marche toujours pas. Pourtant, il me détecte bien si ma case est à True ou False.

Quelle peut être cette erreur ?:roll:

Est-ce que vous pourriez mettre quelques lignes de code ?

Citation:

Envoyé par LaChips

Est-ce que vous pourriez mettre quelques lignes de code ?
Code:

1 2 3 4 MyConnexion.Open() Dim Mycommand As OleDb.OleDbCommand = MyConnexion.CreateCommand() Mycommand.CommandText = "INSERT INTO chambre (CHA_NUMERO,CHA_ETAGE,CHA_NB_LIT1P,CHA_NB_LIT2P,CHA_TV) values ('" + Me.MaskedTextBoxchambre.Text + "','" + Me.MaskedTextBoxEtage.Text + "','" + Me.MaskedTextBoxLit1place.Text + "','" Me.MaskedTextBoxLit2place.Text + "'," + Me.CheckBoxTV.Checked + ")" Mycommand.ExecuteNonQuery()
Il bloque avant l'exécution de la requête. Sa vient bien de la checkbox ( j'ai tester tous les autres éléments sans problème.)

Détails du champs TV dans la BDD access :
Format :Vrai/Faux
Afficher le contrôle : Case à cocher
Indexé : Non

30/03/2008, 11h38
LaChips

Est-ce que le champs CHA_TV n'attend plutôt pas 1 pour True et 0 pour False ?
30/03/2008, 12h25
The eye

Décidément, on voit toujours les mêmes erreurs sur ce forum...

Passez par des parmètres SQL, et la problème fondra comme neige au soleil...
30/03/2008, 12h46
pierrot53

Citation:

Envoyé par The eye

Décidément, on voit toujours les mêmes erreurs sur ce forum...

Passez par des parmètres SQL, et la problème fondra comme neige au soleil...

Comme ?

Merci pour votre aide ;)

Voici un petit exemple d'insertion avec gestion des erreurs :

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
 Public Shared Function mInsertExemple(ByVal c1 As String, ByVal c2 As String, ByVal c3 As String, ByVal connectionString As String) As String
 
        mInsertExemple = ""
 
        Dim oConnexion As New OleDb.OleDbConnection(connectionString)
        Try
            oConnexion.Open()
        Catch ex As Exception
            mInsertExemple = "ERREUR : l'ouverture de la connexion a échouée"
            Exit Function
        End Try
 
        Dim maRequete As String = "INSERT INTO maTable(c1, c2, c3) VALUES (?, ?, ?)"
 
        Dim oCommand As New OleDb.OleDbCommand(maRequete)
        oCommand.Connection = oConnexion
 
        oCommand.Parameters.Add("@c1", OleDb.OleDbType.Integer)
        oCommand.Parameters("@c1").Value = CInt(c1)
 
        oCommand.Parameters.Add("@c2", OleDb.OleDbType.VarChar)
        oCommand.Parameters("@c2").Value = c2
 
        oCommand.Parameters.Add("@c3", OleDb.OleDbType.Date)
        oCommand.Parameters("@c3").Value = CType(c3, Date)
 
        Try
            oCommand.ExecuteNonQuery()
        Catch ex As Exception
            mInsertExemple = "ERREUR : l'exécution de la requête a échoué"
        Finally
            oConnexion.Close()
            oConnexion.Dispose()
        End Try
    End Function

30/03/2008, 13h15
The eye

Petit rappel sur certains avantages des paramètres SQL :

- meilleures performances (plan d'exécutoin sauvegardé par le moteur SQL)
- anti-injection SQL
- résoud la problème des '

... et bien d'autres
30/03/2008, 13h25
SaumonAgile

Citation:

Envoyé par The eye

Petit rappel sur certains avantages des paramètres SQL :

- meilleures performances (plan d'exécutoin sauvegardé par le moteur SQL)
- anti-injection SQL
- résoud la problème des '

... et bien d'autres

... expliqué ici : http://johannblais.developpez.com/tu...s-donnees/#LIV
30/03/2008, 14h07
pierrot53

UN grand Merci.

Ça marche nickel !
:king::king:
30/03/2008, 19h24
The eye

Citation:

Envoyé par SaumonAgile

... expliqué ici : http://johannblais.developpez.com/tu...s-donnees/#LIV

Merci, j'avais la flemme de chercher le lien:oops: