Ajout enregistrement type boolean VB ACCESS

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

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. 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
    1. je veux faire resolu comme statut , mais ca ne marche pas :)