Pb de requete sql avec des DTPicker
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:
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 |
Nouveau message maintenant
Maintenant c'est déjà mieux j'avance, j'ai
Type de données incompatibles dans les données du critère !!!!