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
| ' On écrit notre requête et on l'assigne à la variable sql_ajouter
sql_ajouter = "INSERT INTO Cotisation VALUES (@Date_adhésion,@Nom,@Prenoms,@Montant_cotisation,@Date_janvier,@Date_Février,@Date_Mars,@Date_Avril,@Date_Mai,@Date_Juin,@Date_Juillet,@Date_Août,@Date_Septembre,@Date_Octobre,@Date_Novembre,@Date_Décembre,@Avance,@Arriérés,@Total,@Somme_due,@note,@photo) "
' Initialisation de la requête
cmd = New SqlCommand(sql_ajouter, con)
' On définit les paramètres utilisés pour le bon déroulement de la requête
' On assigne à Val_pren" le texte contenu dans le prenom et ainsi de suite pour les autres
' On assigne à Val_Nomm" le texte contenu dans le nom
If Not IsDate(Me.datadtxt.Text) Then
cmd.Parameters.AddWithValue("@Date_adhésion", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_adhésion", DateTime.Parse(Me.datadtxt.Text))
End If
cmd.Parameters.AddWithValue("@Nom", Me.nomtxt.Text)
cmd.Parameters.AddWithValue("@Prenoms", Me.prentxt.Text)
cmd.Parameters.AddWithValue("@Montant_cotisation", Me.montxt.Text)
If Not IsDate(Me.janv_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_janvier", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_janvier", DateTime.Parse(Me.janv_txt.Text))
End If
If Not IsDate(Me.fev_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Février", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Février", DateTime.Parse(Me.fev_txt.Text))
End If
If Not IsDate(Me.mars_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Mars", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Mars", DateTime.Parse(Me.mars_txt.Text))
End If
If Not IsDate(Me.avr_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Avril", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Avril", DateTime.Parse(Me.avr_txt.Text))
End If
If Not IsDate(Me.mai_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Mai", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Mai", DateTime.Parse(Me.mai_txt.Text))
End If
If Not IsDate(Me.juin_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Juin", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Juin", DateTime.Parse(Me.juin_txt.Text))
End If
If Not IsDate(Me.juill_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Juillet", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Juillet", DateTime.Parse(Me.juill_txt.Text))
End If
If Not IsDate(Me.aout_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Août", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Août", DateTime.Parse(Me.aout_txt.Text))
End If
If Not IsDate(Me.sept_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Septembre", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Septembre", DateTime.Parse(Me.sept_txt.Text))
End If
If Not IsDate(Me.oct_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Octobre", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Octobre", DateTime.Parse(Me.oct_txt.Text))
End If
If Not IsDate(Me.nov_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Novembre", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Novembre", DateTime.Parse(Me.nov_txt.Text))
End If
If Not IsDate(Me.dec_txt.Text) Then
cmd.Parameters.AddWithValue("@Date_Décembre", DBNull.Value)
Else
cmd.Parameters.AddWithValue("@Date_Décembre", DateTime.Parse(Me.dec_txt.Text))
End If
cmd.Parameters.AddWithValue("@Avance", Me.avnctxt.Text)
cmd.Parameters.AddWithValue("@Arriérés", Me.arrietxt.Text)
cmd.Parameters.AddWithValue("@Total", Me.totaltxt.Text)
cmd.Parameters.AddWithValue("@Somme_due", Me.sommdutxt.Text)
cmd.Parameters.AddWithValue("@note", Me.notxt.Text) |
Partager