Ajout enregistrement type boolean VB ACCESS

hajarette Messages postés 141 Statut Membre -  
hajarette Messages postés 141 Statut Membre -
Bonjour,

je veux faire un ajout d'un enregistrement avec type boolean
je travail avec VB2008 et ACCESS pour la base de données

Structure de la table 'Gh_Type_Chambre '
--
CREATE TABLE IF NOT EXISTS 'gh_type_chambre' (
  'id_type_chambre' int(11) NOT NULL AUTO_INCREMENT,
  'libelle' varchar(250) NOT NULL,
  'soumis_tarification' varchar(1) NOT NULL,
  PRIMARY KEY ('id_type_chambre')
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;


vu que la connexion entre la BD et l'application fonnctionne , voila la requete d'ajout ou j'ai le probleme :

dans le bouton enregistrer :

 Private Sub enregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles enregistrer.Click
        ligne = dec_dataset.Tables("Gh_Type_Chambre").NewRow

        ligne("ID_Type_Chambre") = ID_Type_Chambre.Text
        ligne("Libelle") = Libelle.Text
        ligne("Soumis_Tarification") = Soumis_Tarification.Checked()

        dec_dataset.Tables("Gh_Type_Chambre").Rows.Add(ligne)
        conComm = New OleDb.OleDbCommand("INSERT INTO Gh_Type_Chambre (ID_Type_Chambre,Libelle,Soumis_Tarification) VALUES('" & ligne("ID_Type_Chambre") & "','" & ligne("Libelle") & "','" & ligne("Soumis_Tarification") & "')", con)
        conComm.ExecuteNonQuery()

        MsgBox("Type de Chambre Enregistré", MsgBoxStyle.Information, "info")

    End Sub


dans l'execution de l'ajout je recois l'erreur suivante : Type de données incompatible dans l'expression du critère. dans EXECUTENONQUERY()

SVP j'ai besoin de votre aide

A voir également:

2 réponses

hajarette Messages postés 141 Statut Membre 16
 
resolu :

voila la correction , si jamais qq1 a le meme probleme

If Soumis_Tarification.Checked = True Then
            conComm = New OleDb.OleDbCommand("INSERT INTO Gh_Type_Chambre (ID_Type_Chambre,Libelle,Soumis_Tarification) VALUES('" & ligne("ID_Type_Chambre") & "','" & ligne("Libelle") & "',true)", con)
            conComm.ExecuteNonQuery()
        ElseIf Soumis_Tarification.Checked = False Then
            conComm = New OleDb.OleDbCommand("INSERT INTO Gh_Type_Chambre (ID_Type_Chambre,Libelle,Soumis_Tarification) VALUES('" & ligne("ID_Type_Chambre") & "','" & ligne("Libelle") & "',False)", con)
            conComm.ExecuteNonQuery()
        End If
0
hajarette Messages postés 141 Statut Membre 16
 
je veux faire resolu comme statut , mais ca ne marche pas :)
0