Discussion :

[pierrot53]

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

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

[Pol63]

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

[pierrot53]

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 ?

[LaChips]

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 ?

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

[pierrot53]

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

Code :

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

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

[LaChips]

Est-ce que le champs CHA_TV n'attend plutôt pas 1 pour True et 0 pour False ?

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

[pierrot53]

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

[The eye]

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

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

[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

[SaumonAgile]

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

[pierrot53]

UN grand Merci.

Ça marche nickel !

[The eye]

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

Merci, j'avais la flemme de chercher le lien