Discussion :

[hebh]

Bonjour,

Je suis actuellement en stage et je développe une application avec vb6. En cliquant sur un bouton de commande je veux supprimer des enregistrements de ma table selon les valeurs qui existent dans un tableau.
Je sais pas si je dois utiliser un record set ou la table.

j'ai essayé ce code mais rien ne change dans ma table

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
 
 
Private Sub cmd_maj_Click()
Set maj = New ADODB.Recordset
maj.Open " select * from copie ", cnx, adOpenKeyset, adLockBatchOptimistic
For i = 0 To lig - 1
   If montableau(8, i) = "suppression citerne" Then
        maj.MoveFirst
 
        Do Until maj.EOF
            num = maj.Fields("numero")
            If (num = montableau(0, i)) Then
                maj.Delete
            End If
        maj.MoveNext
        Loop
End If
Next i
maj.Close
 
End Sub

Je vous remercie.

[Nico820]

en théorie, tu dois juste effacer les enregistrements et recharger le tableau de VB, c'est à dire rafraîchir les données.

[faroukvazaha]

Bonjour,

Ton curseur ADODB est "en avant" seulement et il sera toujours positionné sur le 1er enregistrement au résultat de la requête.
Ton instruction "MoveFirst" est inutile et surtout inefficace au 2ème tour du tableau.
Tu dois exécuter ta requête dans la boucle de balayage de ton tableau.

As-tu bien défini ton "lig", car ici il n'est pas initialisé et vaut 0.

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
Private Sub cmd_maj_Click()
Set maj = New ADODB.Recordset
For i = 0 To lig - 1
 
   If montableau(8, i) = "suppression citerne" Then
 
         maj.Open " select * from copie ", cnx, adOpenKeyset, adLockBatchOptimistic
 
        Do Until maj.EOF
            num = maj.Fields("numero")
            If (num = montableau(0, i)) Then
                maj.Delete
            End If
            maj.MoveNext
        Loop
 
        maj.Close
 
   End If
Next i
set maj = Nothing
End Sub

Je pense que ta connexion est effectuée ailleurs ?

Bon Courage