Discussion :

[Corben]

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

[Megaxel]

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.

[Corben]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
rst1.open "......."
While Not(rst1.EOF)
rst3.open "delete from mailing ......"
rst3.close
Wend
rst1.close

[argv666]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Rst1.MoveNext

dans ta boucle while.

[Corben]

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