Bonjour j'essaye de supprimer un enregistrement de ma table mysql mais sans succés, le programme ne me donne aucune erreur
je procède de la sorte : rst1.delete
J'ai mm essayé rst1.delete et ensuite rst1.update

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
 
On Error Resume Next
 
Dim cnx
Dim rst1
Dim rst2
Dim message
 
Set cnx = CreateObject("ADODB.Connection")
Set rst1 = CreateObject("ADODB.Recordset")
Set rst2 = CreateObject("ADODB.Recordset")
 
 
cnx.ConnectionString="DSN=grossiste"
cnx.Open
rst1.Open "SELECT * FROM mailing_encours",cnx
While Not(rst1.EOF)
'Mon action (envoi d'un email)
rst1.delete
Wend
rst1.close
cnx.close
WScript.quit