Discussion :

[xG-Hannibal]

Plate-forme : VS2005
Langage : VB.Net
Bdd : Access

Bonjour,

je suis en train de tester une requete d'insertion dans access dans une table.

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Try
    Dim sqlInsert As String
    sqlInsert = "INSERT INTO ACCUEIL (OrientationProduit,OrientationSante,OrientationRFamiliale,OrientationRelationSocial,PreType1,Numero,DifficulteProduit,DifficulteSante,DifficulteRFamiliale,DifficulteRSociale,TrancheAge,SituationFamiliale,SituationGeo,PrecisionDomiciliation,Hebergement,Logement,CouvertureSante,Ressource,NiveauScolaire,SituationScolarite,PrecisonACSP,NiveauPrevention,PresentationRDV,PEJ_ContatVS44,PEJ_SansAdr,PEJ_HabitatNantes1an,PEJ_DomiActif,PEJ_NbEnfant,DateAccueil,DateRDV,Demandeur,IdFamille,JeuneOuFamille,PEJ_SansAdr2,TypeAccueil1,TypeAccueil2,PreType2) VALUES ('CHU','CDAG','PEPF Ancre','Cap Jeunes','',4,'Usage occasionnel','Anorexie, Boulimie','Adoption','Abus sexuel, viol','> à 25 ans','Vit Seul( e )','Nantes','','A la rue','A la rue','CMU','Sans Ressource','III','Apprenti','','Prévention Primaire','','Ne sait pas','Non','Oui','Non',2,'" & Now() & "','','','','Oui','Non','','','')"
    Dim MaCommandInsert As OleDbCommand = New OleDbCommand(sqlInsert, con)
    MaCommandInsert.ExecuteNonQuery()
Catch ex As Exception
    MsgBox("" & ex.Message & "")
End Try

Je n'arrive pas à inséré mes infos dans ma table ACCUEIL, j'ai un message d'exception qui me dit :
" Type de données incompatible dans l'expression du critère "

J'ai vérifié dans access mes propriétés savoir si c'était bien en type texte, oui/non, numérique etc. tout est Ok.

Je laissais ce message à tout hasard, avec le regard d'autres developpeurs, peut etre verraient-ils mon erreur.

Merci d'avance.

[guitoux1]

Soit :

- Les 'Oui' / 'Non' : essai plutot True / False ou encore 1 / 0 ou encore 'True' / 'False'
- Le '" & Now() & "' : essai : #" & Now() & "#