Discussion :

[Bicky]

Bonjour,

Je débute en vb et suis en train de reprendre une application développée avant mon arrivée. Je souhaiterais effectuer une requete de suppression de masse sur une table (suivant différents critères) et que les champs des enregistrements supprimés me soient retournés.

J'ai tout d'abord pensé à l'utilisation d'un recordset où chaque ligne de ce dernier est traitée une à une:

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
 
Dim lresult As RDO.rdoResultset
Dim szSQL As String
 
szSQL = "SELECT champs1 DATA1, champs2 DATA2 FROM table T1 Where ...."
    Set lresult = mrdoConnection.OpenResultset(szSQL, OpenForwardOnly, rdConcurRowVer)
 
    mrdoConnection.BeginTrans
 
    Do
    Debug.Print T1!DATA1
    lresult.Delete
    lresult.MoveNext
    Loop Until lresult.EOF
 
    mrdoConnection.CommitTrans

mais cette méthode est beaucoup trop longue vu la quantité de données à supprimer.

Si quelqun à une idée, je suis preneur. Merci d'avance

[AdHoc]

bonjour,
pourquoi ne pas utiliser une requete de suppression?
(delete au lieu de select)

[Catbull]

bonjour,
pourquoi ne pas utiliser une requete de suppression?
(delete au lieu de select)

+1

[Bicky]

bonjour,
pourquoi ne pas utiliser une requete de suppression?
(delete au lieu de select)

Le problème est qu'avec cette méthode, si des erreurs surviennent dans la suppression d'un enregistrement en paticulier, il me sera impossible de le savoir. Mon premier select m'aura ainsi retourné une liste d'enregistrements dont certains n'ont peut etre pas été supprimés.

[AdHoc]

en RDO, je ne sais pas, mais en ADO, il me semble que l'on peut récuperer les erreurs de requete SQL.