[AC-2003] Req Suppression des n Premiers enregistrement. [Résolu]

[Brasileiro]

Messieurs bonsoir,

Je souhaite supprimer les 5 premiers (par exemple) enregistrements d'une table Access, sachant que la comande sera lancée dans une procédure excel, comme par exemple:

Code :

Docmd.SQL DELETE FROM etc

Supposons que m'a table s'appelle Table1 et que j'ai 1 seul champ intitulé [B]Champ1[B] avec 10 enregistrements.

Je souhaite effacer les 5 premiers tout simplement.

Est-ce possible?

Merci par avance.

cdt,
JP

[User]

Salut,

Tu peux faire une sous-requête avec les 5 premiers enregistrements de ta table en utilisant

Code sql :

1
2
SELECT Top 5 champ1
...

Et après tu fais un delete sur cette sous-requête

A+

[Brasileiro]

Merci User mais il faudra encore un petit coup demain.

J'ai essayer de combiné de plusieur façon mais la bonne je n'ai pas trouvé. lol

C'est comme ça?

Code :

1
2
3
4
DELETE table1.*
FROM Table1
WHERE (SELECT TOP 5 Table1.A
FROM Table1);

Merci!

[Brasileiro]

Hello,

Je ne comprends pas le souci.

DELETE * FROM Table1
WHERE table1.A = (SELECT TOP 5 table1.A FROM Table1);

il m'affiche,
"Cette sous requete peut retourner au plus un enregistrement"

HELP!!

[Brasileiro]

Bon, j'ai réussi à faire en sorte que le code ci-dessous marche:

Code :

1
2
3
4
5
DELETE * 
FROM Table1
WHERE table1.A IN
           (SELECT TOP 5 table1.A FROM Table1
           );

Le souci c'est que je viens de constater que si dans mon champ "A" j'ai des doublons, alors ils seront aussi supprimés.

Exemple:
Le nom THOMAS est parmi le TOP 5 et il se répète ver le 100ème enregistrement.
Avec le code du dessus, ma requête de suppression, supprimera non pas 5 enregistrement, mais 6!!

Ce que je souhaite c'est quelque choses comme:

DELETE TOP (5) FROM Table1... (mais cela fonctionne que avec MySql et nom Access 2003)

Merci

[User]

Salut,

Code sql :

1
2
DELETE *
FROM (SELECT Top 5 Champ1  FROM Table1)

Tu peux aussi enregistrer la sous-requête:

Code sql :

SELECT Top 1 Champ1  FROM Table1

dans "req1".

Et après faire :

Code sql :

1
2
DELETE *
FROM req1

A+

[Brasileiro]

Merci User!

c'est parfait!

Ci-dessous le code final. J'ai rajouté un ORDER BY car ça mélangeait tout.

Code :

1
2
3
Dim strSQL As String
strSQL = "DELETE * FROM (SELECT Top 5 A FROM Table1 ORDER BY Table1.A ASC)"
CurrentDb.Execute strSQL

Bonne utilisation!.

Cdt,
JP