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
| Sub ecrire_sgbd()
' Déclaration de la variable cmd
' OleDbCommand représentera ici une instruction SQL à exécuter par rapport à une source de données
Dim cmd As OleDb.OleDbCommand
' Déclaration de sql_ajouter, qui contiendra la requête SQL permettant d'ajouter un enregistrement
Dim sql_ajouter As String
' On écrit notre requête et on l'assigne à la variable sql_ajouter
sql_ajouter = "INSERT INTO depart (Inter, Renfort, Datum, Heuro, Ville, Adresse, Raison, dispo1, dispo2, dispo3, dispo4, dispo5, dispo6, dispo7, dispo8) VALUES(Val_inter, Val_renfort, Val_datum, Val_heuro, Val_ville, Val_adresse, Val_nature, Val_dispo1, Val_ dispo2, Val_dispo3, Val_dispo4, Val_dispo5, Val_dispo6, Val_dispo7, Val_dispo8)"
' Initialisation de la requête
cmd = New OleDb.OleDbCommand(sql_ajouter, con)
' On définit les paramètres utilisés pour le bon déroulement de la requête
' On assigne à Val_Prenom" le texte contenu dans le textbox txt_ajouter_prenom
cmd.Parameters.AddWithValue("Val_inter", Label22.Text)
cmd.Parameters.AddWithValue("Val_renfort", Label32.Text)
cmd.Parameters.AddWithValue("Val_datum", Label23.Text)
cmd.Parameters.AddWithValue("Val_heuro", Label24.Text)
cmd.Parameters.AddWithValue("Val_ville", Label1.Text)
cmd.Parameters.AddWithValue("Val_adresse", Label4.Text)
cmd.Parameters.AddWithValue("Val_nature", Label12.Text)
If Label14.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo1", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo1", Label14.Text)
End If
If Label16.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo2", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo2", Label16.Text)
End If
If Label25.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo3", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo3", Label25.Text)
End If
If Label26.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo4", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo4", Label26.Text)
End If
If Label27.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo5", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo5", Label27.Text)
End If
If Label28.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo6", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo6", Label28.Text)
End If
If Label29.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo7", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo7", Label29.Text)
End If
If Label30.Text = "" Then
cmd.Parameters.AddWithValue("Val_dispo8", System.DBNull.Value)
Else
cmd.Parameters.AddWithValue("Val_dispo8", Label30.Text)
End If
' Ouverture de la connexion
cmd.Connection.Open()
' Exécution de la requête SQL
cmd.ExecuteReader()
' Fermeture de la connexion
cmd.Connection.Close()
' On efface les deux "textbox"
'txt_ajouter_prenom.Text = ""
'txt_ajouter_nom.Text = ""
' Message indiquant que le nouveau contact a bien été enregistré
Label33.Text = "Ticket sauvegardé dans la base."
' On vide le dataset
ds.Clear()
' et on le réaffiche en faisant appel à Connexion()
' pour que notre nouveau contact apparaisse bien
' Connexion()
End Sub |
