[VBS MYSQL] effacer un enregistrement

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:

---

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

---

Hello!
Tu remplis un ResultSet avec le résultat de ton SELECT. Et ce n'est que le ResultSet que tu supprimes, et non ta base.
Tu dois exécuter une requete SQL de type "DELETE" pour supprimer des enregistrements de ta base.

Ok un grand merci

Je pensais que c t comme en vb avec .addnew et .delete

Suis je obligé de creer un recordset pr effacer cette enregistrement ?

Code:

---

1 2 3 4 5 6

rst1.open "......." While Not(rst1.EOF) rst3.open "delete from mailing ......" rst3.close Wend rst1.close

---

il me semble que Corben a raison....
On peut faire un select et puis parcourir les enregistrement et les supprimer avec le "delete"...
Es tu sur qu'il n'y a qu'un enregistrement car tu as oublier de faire

Code:

---

Rst1.MoveNext

---

dans ta boucle while.

Oui je fais bien un movenext aprés ...
Mais je ne l'ai pas mis dans le code affiché.

Sinon la je fais et cela fonctionne

rst3.open "DELETE ......"
mais c'est bizarre parce que je ne pas faire de rst3.close juste aprés