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 |
