Salut pour l'enregistrement de mes données dans une base de données sql server2008,j'utilise ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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)
.

Mais il me semble un peu bizarre.Comment peut-on réduire cette écriture svp?
Merci d'avance.