Souci d’exécution requête via ADOQuery

bonjour

Afin d'éviter les enregistrements doublés dans ma table j’ai utilisé la requête ci-dessous (trouvé sur le net Net) mais quand j’applique cette requete dans mon ADOquery ne marche pas vous pouvez m’orienter ?

(La requête marche sur un utilitaire Oracle ).

Code:

---

1 2 3 4 5 6 7 8 9

with adoquery1 do begin Close; SQL.Clear; SQL.Add('DELETE FROM BROADCAST.STATISTICS WHERE ROWID IN ('); SQL.Add('SELECT ROWID FROM ( SELECT ROWID, ROW_NUMBER ( ) FROM ( SELECT ROWID, ROW_NUMBER ( ) OVER ( PARTITION BY COLONNE1,COLONNE2 ORDER BY COLONNE1,COLONNE2) num_ligne FROM BROADCAST.STATISTICS ) t2 WHERE num_ligne > 1 )'); open; First; end;

---

Merci d'avance.

Le open ne peut être utilisé qu'avec des requêtes Select, pour les requête Insert/Update/Delete il faut utiliser ExecSql

Merci RayeK

Code:

---

1 2 3 4 5 6 7 8 9

with adoquery1 do begin Close; SQL.Clear; SQL.Add('DELETE FROM BROADCAST.STATISTICS WHERE ROWID IN ('); SQL.Add('SELECT ROWID FROM ( SELECT ROWID, ROW_NUMBER ( ) FROM ( SELECT ROWID, ROW_NUMBER ( ) OVER ( PARTITION BY COLONNE1,COLONNE2 ORDER BY COLONNE1,COLONNE2) num_ligne FROM BROADCAST.STATISTICS ) t2 WHERE num_ligne > 1 )'); ExecSql; First; end;

---

L’exécution arrête au niveau du la ligne FIRST.

Supprime ce First, il n'y a rien à faire là puisque que ce n'est pas une requête sélection.

@+

Ok j'ai supprimé le FIRST une autre erreur un arret au niveau du dernier END avec : Un message d'erreur missing window specification .....

Code:

---

1 2 3

adoquery1.ExecSQL; end; end

---

;

enfin :aie: ca marche merci pour vous

Code:

---

1 2 3 4 5 6 7 8 9 10

with adoquery1 do begin Close; SQL.Clear; SQL.Add('DELETE FROM BROADCAST.STATISTICS'); sQL.Add('WHERE ROWID IN (SELECT ROWID FROM (SELECT ROW_NUMBER() OVER (PARTITION BY COLONNE1,COLONNE2,COLONNE3,COLONNE4,COLONNE5 ORDER BY COLONNE1,COLONNE2,COLONNE3,COLONNE4,COLONNE5 ) rnk '); SQL.Add(' FROM BROADCAST.STATISTICS)'); SQL.Add('WHERE rnk>1)'); ExecSQL; end;

---