Bonjour a tous
Je voudrai deleter des enregistrements entre telle date et telle autre date définies par des DTPicker.
Voici mon code et je ne vois pas ce qui cloche.
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 Private Sub btn_ok_Click() 'sql = ("DELETE mouvement.*, mouvement.date_mouvement From mouvement WHERE (((mouvement.date_mouvement) Between '" & DTPicker_du & "'And '" & DTPicker_au & " '));") Dim cnn As New ADODB.Connection, iAffected As Integer Dim sSQL As String cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= gest_stocks.mdb;" sSQL = "DELETE mouvement.*, mouvement.date_mouvement From mouvement WHERE (((mouvement.date_mouvement) Between '" & DTPicker_du & "' And " '" & DTPicker_au & "'")" ' Exécution de la requête MsgBox DTPicker_du MsgBox DTPicker_au cnn.Execute sSQL, iAffected, adExecuteNoRecords Debug.Print "Enregistrements insérés = " & iAffected cnn.Close End Sub
Partager