Ajout enregistrement type boolean VB ACCESS
hajarette
Messages postés
141
Statut
Membre
-
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 '
--
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 :
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
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:
- Ajout enregistrement type boolean VB ACCESS
- Clear type - Guide
- Ajout rapide snap - Forum Snapchat
- Acer quick access - Forum Logiciels
- Ajout rapide snap - Forum Snapchat
- Access appdata - Guide
2 réponses
resolu :
voila la correction , si jamais qq1 a le meme probleme
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