Bonjour tout le monde
Voici le bout de code qui me pose problème :
Impossible de supprimer les enregistrements du RecordSet : VB (6) me donne l'erreur 3219 : "Opération is not allowed in this context".
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
Ai je oublié quelque chose ?
Merci de prendre un peu de temps pour me répondre
Partager