Bonsoir,
je suis en train de réaliser un projet sur la gestion des documents,
l'utilisateur ajoute un document aujourd'hui et après une année de conservation une liste des documents à éliminer s'affiche pour que l'utilisateur les supprime(si la date d'entrée dépasse une année,un update s'applique automatiquement et après un filtrage de tous les booléens vrai,une liste s'affiche)

Bouton ajout document(contrôle du date d'ajout)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
cmd1.CommandText = "UPDATE document SET document_à_evacuer = true WHERE datedoc.Text = DateAdd(DateInterval.Day, 365, dateart)"


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
Private Sub bouttonaffiche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bouttonaffiche.Click
 
 
 
 
 
            Dim strConnexion As String = ""
            Dim Connsql As New SqlConnection(strConnexion)
            Dim strcmd As New SqlCommand
            Connsql.Open()
 
            Dim strRequete As String = "SELECT * FROM document WHERE document à evacuer=true"
            strcmd.Connection = Connsql
            strcmd.CommandText = strRequete
            strcmd.ExecuteNonQuery()
            DataGridView1.DataSource = strcmd
            strcmd.Connection.Close()
            Connsql.Close()
 
 
    End Sub
 
    Private Sub Bouttonsup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouttonsup.Click
        For Each row As DataGridViewRow In DataGridView1.SelectedRows
            DataGridView1.Rows.Remove(row)
        Next
    End Sub
ce code ne marche pas et à l'execution n'affiche aucune erreur.
je croix l'erreur se trouve au 1er code(controle date)