[VB6]ADO Suppression dans un RecordSet

**teurnal** · 22/02/2006, 14h39

Bonjour tout le monde

Voici le bout de code qui me pose problème :

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
24
25
26
27
28
29
30
31
32
 
Private Sub Form_Load()
Dim rs As ADODB.Recordset
 
Set rs = New Recordset
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.Fields.Append "cd_ent", adVarChar, 5
rs.Open
 
rs.AddNew
rs!cd_ent = "11111"
rs.AddNew
rs!cd_ent = "22222"
rs.AddNew
rs!cd_ent = "33333"
rs.AddNew
rs!cd_ent = "44444"
rs.Update
 
rs.MoveFirst
While Not rs.EOF
  Debug.Print rs!cd_ent
  rs.MoveNext
Wend
 
If Not (rs Is Nothing) Then rs.Delete (adAffectAll)
 
rs.Close
 
End
End Sub

Impossible de supprimer les enregistrements du RecordSet : VB (6) me donne l'erreur 3219 : "Opération is not allowed in this context".

Ai je oublié quelque chose ?

Merci de prendre un peu de temps pour me répondre

**jacma** · 22/02/2006, 15h19

Bonjour (et bienvenue)

Tout d'abord, vérifie tes tag code.

Pour la méthode Delete, je ne pense pas que le paramètre adAffectAll soit utilisable. C'est soit adAffectCurrent (par défaut), soit adAffectGroup (pour les enregistrement filtrés).

**teurnal** · 22/02/2006, 15h51

Merci tout d'abord de ta réponse

Pour les tag code, il va falloir que je progresse, pour les smiles aussi :-)

J'ai essayé toutes les méthodes (j'ai parcouru le web avant de me décider à appeler au secours!), mais aucune n'est satisfaisante :
adAffectGroup me donne la même erreur
adAffectCurrent ne me supprime que l'enregistrement courant

Tu vas me dire qu'une boucle résoudrait mon problème, mais bon, je préfère "faire ca bien" !

**jacma** · 22/02/2006, 16h30

Envoyé par teurnal

J'ai essayé toutes les méthodes (j'ai parcouru le web avant de me décider à appeler au secours!), mais aucune n'est satisfaisante :
adAffectGroup me donne la même erreur
adAffectCurrent ne me supprime que l'enregistrement courant
Tu vas me dire qu'une boucle résoudrait mon problème, mais bon, je préfère "faire ca bien" !

Pour adAffectGroup, tu as bien fait un filtre des éléments à supprimer? Autrement, la solution de la boucle avec le paramètre par défaut adAffectCurent me semble la solution ad hoc. Et une boucle, ce n'est pas "mal"