1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
| Dim maConnexionSQLsrv As OleDbConnection
Dim myCommand As OleDbCommand
Dim maRequete, ConnexionSQL As String
'Récupération de la chaine de connexion au serveur de base de données
ConnexionSQL = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\Etablissements.accdb"
maConnexionSQLsrv = New OleDbConnection(ConnexionSQL)
'Requete mise a jour de la table client
maRequete = "INSERT INTO [Etudiants] ( [Telephone_personnel],[Telephone_professionnel],[Telephone_mobile],[Page_Web],[Numero_telecopie],[NumInscription],[Telephone_du_contact_urgences1],[Telephone_du_contact_urgences2],[Tel_medecin],[Adresse_Etudiant],[nom],[Prenom],[Lieu_Naissance],[Ville],[Code_Postal],[Departement],[Remarques],[IDEtudiant],[Date_Inscription],[contact_urgence],[Relation_urgences],[Nom_medecin],[Allergies],[Medicaments],[Etablissements],[NumExo],[Specialite_Etudiant],[niveau_Etudiant],[Classe_Etudiant],[Pays_Région]) VALUES (@Telephone_personnel,@Telephone_professionnel,@Telephone_mobile,@Page_Web,@Numero_telecopie,@NumInscription,@Telephone_du_contact_urgences1,@Telephone_du_contact_urgences2,@Tel_medecin,@Adresse_Etudiant,@nom,@Prenom,@Lieu_Naissance,@Ville,@Code_Postal,@Departement,@Remarques,@IDEtudiant,@Date_Inscription,@contact_urgence,@Relation_urgences,@Nom_medecin,@Allergies,@Medicaments,@Etablissements,@NumExo,@Specialite_Etudiant,@niveau_Etudiant,@Classe_Etudiant,@Pays_Région)"
'Création de la commande SQL
myCommand = New OleDbCommand(maRequete, maConnexionSQLsrv)
'Création et décalartion des paramètres
With myCommand.Parameters
.Add(New OleDbParameter("@Telephone_personnel", OleDbType.Integer, 16))
.Add(New OleDbParameter("@Telephone_professionnel", OleDbType.Integer, 16))
.Add(New OleDbParameter("@Telephone_mobile", OleDbType.Integer, 16))
.Add(New OleDbParameter("@Page_Web", OleDbType.VarChar, 50))
.Add(New OleDbParameter("@Numero_telecopie", OleDbType.Integer, 16))
.Add(New OleDbParameter("@NumInscription", OleDbType.Integer, 10))
.Add(New OleDbParameter("@Telephone_du_contact_urgences1", OleDbType.Integer, 16))
.Add(New OleDbParameter("@Telephone_du_contact_urgences2", OleDbType.Integer, 16))
.Add(New OleDbParameter("@Tel_medecin", OleDbType.Integer, 16))
.Add(New OleDbParameter("@Adresse_Etudiant", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Nom", OleDbType.VarChar, 25))
.Add(New OleDbParameter("@Prenom", OleDbType.VarChar, 50))
.Add(New OleDbParameter("@Lieu_Naissance", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Ville", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Code_Postal", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Departement", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Remarques", OleDbType.VarChar, 150))
.Add(New OleDbParameter("@IDEtudiant", OleDbType.VarChar, 10))
.Add(New OleDbParameter("@Date_Inscription", OleDbType.Date))
.Add(New OleDbParameter("@contact_urgence", OleDbType.Integer, 16))
.Add(New OleDbParameter("@Relation_urgences", OleDbType.VarChar, 25))
.Add(New OleDbParameter("@Nom_medecin", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Allergies", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Medicaments", OleDbType.VarChar, 35))
.Add(New OleDbParameter("@Etablissements", OleDbType.Integer, 3))
.Add(New OleDbParameter("@NumExo", OleDbType.Integer, 2))
.Add(New OleDbParameter("@Specialite_Etudiant", OleDbType.VarChar, 25))
.Add(New OleDbParameter("@niveau_Etudiant", OleDbType.VarChar, 25))
.Add(New OleDbParameter("@Classe_Etudiant", OleDbType.VarChar, 10))
.Add(New OleDbParameter("@Pays_Région", OleDbType.VarChar, 25))
End With
'Attribution des valeurs aux paramètres
With myCommand
.Parameters("@Telephone_personnel").Value = Val(TelPersonnel.Text)
.Parameters("@Telephone_personnel").Value = Val(TelPersonnel.Text)
.Parameters("@Telephone_professionnel").Value = Val(TelProfessionnel.Text)
.Parameters("@Telephone_mobile").Value = Val(TelMobile.Text)
.Parameters("@Page_Web").Value = Mail.Text
.Parameters("@Numero_telecopie").Value = Val(Telecopie.Text)
.Parameters("@NumInscription").Value = Val(NumInscription.Text)
.Parameters("@Telephone_du_contact_urgences1").Value = Val(TelUrgence1.Text)
.Parameters("@Telephone_du_contact_urgences2").Value = Val(TelUrgence2.Text)
.Parameters("@Tel_medecin").Value = Val(TelMedecin.Text)
.Parameters("@Adresse_Etudiant").Value = Adresse.Text
.Parameters("@Nom").Value = Nom.Text
.Parameters("@Prenom").Value = Prenoms.Text
.Parameters("@Lieu_Naissance").Value = LieuNais.Text
.Parameters("@Ville").Value = Ville.Text
.Parameters("@Code_Postal").Value = CP.Text
.Parameters("@Departement").Value = Departement.Text
.Parameters("@Remarques").Value = Remarque.Text
.Parameters("@IDEtudiant").Value = Val(IDEtudiant.Text)
.Parameters("@Date_Inscription").Value = CDate(Date_Inscription.Text)
.Parameters("@contact_urgence").Value = Val(ContactUrgence.Text)
.Parameters("@Relation_urgences").Value = RelationUrgence.Text
.Parameters("@Nom_medecin").Value = NomMedecin.Text
.Parameters("@Allergies").Value = Allergies.Text
.Parameters("@Medicaments").Value = Medicaments.Text
.Parameters("@Etablissements").Value = ComBoBoxEtab.Text
.Parameters("@NumExo").Value = ComboBoxExo.Text
.Parameters("@Specialite_Etudiant").Value = ComboBoxSpecialite.Text
.Parameters("@niveau_Etudiant").Value = ComboBoxNiveau.Text
.Parameters("@Classe_Etudiant").Value = ComboBoxClasse.Text
.Parameters("@Pays_Région").Value = ComboBoxPays.Text
End With
Try
'Execution de la requête
myCommand.Connection.Open()
myCommand.ExecuteNonQuery()
myCommand.Connection.Close()
MsgBox("Inscription effectuée!", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try |
echec de la conversion de paramètre d'un string en int32
Répondre avec citation
Partager