Discussion :

[James64]

Bonjour,
A l'execution de ceci a l'interieur d'un composant Query de Delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT DISTINCT * FROM TABLE1 T1
WHERE EXISTS (SELECT *
              FROM TABLE1 T2
              WHERE T1.Ninc <> T2.Ninc
              AND T1.NoTicket = T2.NoTicket
              AND T1.DatPai = T2.DatPai)
 
DELETE * FROM TABLE1 T
WHERE  T.Ninc < ANY (SELECT Ninc
                      FROM   TABLE1 T2
                      WHERE  T.Ninc <> T2.Ninc
                      AND  T.NoTicket    = T2.NoTicket
                      AND  T.DatPai = T2.DatPai)

g une erreur qui me dit "Utilisation incorrecte du mot clé DELETE" !!!!???

Pouvez vous m'aider
Merci

[TheLeadingEdge]

bonjour,

DELETE FROM table, pas de '*'
et normalement pas d'alias non plus, mais ça pratiquement ts les moteurs l'acceptent, donc tu as 1 chance.

A +

[James64]

Ca n'a rien changé...... ?

[souellet]

C'est quelle composante que t'as utilisé?

[TheLeadingEdge]

Re,

C quoi ton moteur, la version et le msg d'erreur ?

[rsc]

Si je comprends bien, tu essaies d'exécuter 2 requêtes à la suite dans ton Query. Le Query est fait pour exécuter une seule requête à la fois.
Si tu y tiens, il faudrait utiliser un composant d'éxécution de script, et terminer la première (généralement par un ";"). Mais à mon aivs le plus simple est généralement d'exécuter une requête puis l'autre.

[James64]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
chemin:=StatusBar1.Panels[0].Text+'\'+Label1.Caption+'\'+'Test.db';
query1.SQL.Text:='SELECT DISTINCT * FROM '+'"'+chemin+'"'+' T1 WHERE EXISTS (SELECT * FROM '+'"'+chemin+'"'+' T2 WHERE T1.Ninc <> T2.Ninc AND T1.Noticket = T2.Noticket AND T1.Date = T2.Date)';
    query2.SQL.Text:='DELETE FROM '+'"'+chemin+'"'+' T WHERE  T.Ninc < ANY (SELECT Ninc FROM '+'"'+chemin+'"'+' T2 WHERE  T.Ninc <> T2.Ninc AND T1.Noticket = T2.Noticket AND T1.Date = T2.Date)';
    query1.Open;
    query2.Open;

a l'execution pas à pas de delphi, g une erreur sur 'Query1.open' où on me dit : "Utilisation incorrecte du mot clé. ELEMENT : Date"

Pouvez vous m'aider ?

Merci bcp !!!

[rsc]

Une remarque : Présenté comme ça, c'est très difficiliement lisible. J'écrirais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Query1 .SQL .Text
   := 'SELECT DISTINCT *'#10
    + Format ('FROM %s T1'#10, [Chemin])
    + Format ....

NB : Les #10 sont des retours à la ligne qui me permettent, lorsque j'ai un pb sur une SQL, d'afficher ma SQL de manière lisible avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowMessage (SQL .Text)

A part ça , ton erreur doit venir de ce qu'un champ de ta table s'appelle "Date", qui est un mot réservé du SQL. Deux solutions : si c'est possible, change le nom de ton champ, sinon, écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

T1."Date"

[Cybher]

salut,

je pense que date est un mot clé utilisé dans ton sgbd. or date est aussi un champ de ta table non?
donc il doit faire une confusion entre ces 2 dates.

change le nom de ta colonne

PS: dsl javais pas vu rsc ma devancé...

[James64]

Merci !

L'erreur a disparu pour laisser la place à une autre .....
Elle se manifeste lors de Query2.open donc fait référence à la requete SQL de query2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
DELETE FROM "chemin" T 
WHERE  T.Ninc < ANY (SELECT Ninc 
                      FROM   "chemin" T2 
                      WHERE  T.Ninc <> T2.Ninc 
                      AND  T.NoTicket    = T2.NoTicket 
                      AND  T.DatP = T2.DatP)

L'erreur dit : "Erreur à la création du handle de curseur"

Comprend vraiment pas...

[rsc]

Je ne saisis pas toutes les finesses de ta requête, amis si tu veux utiliser l'alias "T" dans la clause SELECT, il faut le définir à l'intérieur de cette clause, puisque ta requête va d'abord exécuter le SELECT, et ensuite seulement de DELETE.

[James64]

Je n'ai fait que reprendre un code trouvé sur un site pour supprimer des doublons dans une table ...

[rsc]

Je ne suis pas sûr que ça marche, mais je ne suis pas expert SQL et c'est lundi .Toujours est-il que j'écrirais le SELECT comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
SELECT T2.Ninc
                      FROM   "chemin" T2, "chemin" T1 
                      WHERE  T1.Ninc <> T2.Ninc
                      AND  T1.NoTicket    = T2.NoTicket
                      AND  T1.DatP = T2.DatP)

Ce qui devrait te donner les doublons, mais j'ai l'impression que ça va te les donner en double
Pour le reste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DELETE FROM "chemin" T
WHERE  T.Ninc < ANY (SELECT...

va à mon avis t'effacer tous les enregistrements où Ninc est inférieur à un au moins des doublons renvoyés : : Alors sauvegarde ta table avant de faire l'expérience !

[SQLpro]

1) l'utilisation de " " n'est requis que si le nom d'objet est un mot clef de SQL et il vaut mieux eviter cela.

2) une table cible d'une mise à jour ne doit JAMAIS être alliassée :

La norme SQL interdit de donner un alias à une table cible d'une mise à jour (INSERT, UPDATE, DELETE).
Pour une bonne et simple raison : il ne peut absolument pas y avoir d'ambiguité car il ne peut jamais y avoir qu'une seule table cible dans les ordres SQL INSERT, UPDATE et DELETE, et que la table est toujours explicitement décrite :

UPDATE <LaTableCible>
...

DELETE FROM <LaTableCible>
...

INSERT INTO <LaTableCible>
...

En conclusion, la référence à une colonne de la table cible ne permet pas l'utilisation d'alias !

Ta requête doit donc s'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
DELETE FROM chemin
WHERE  Ninc < ANY (SELECT Ninc
                   FROM   chemin T2
                   WHERE  Ninc <> T2.Ninc
                     AND  NoTicket = T2.NoTicket
                     AND  DatP = T2.DatP)

A +

[James64]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
chemin:=.....+'Test2.db';
    query1.SQL.Text:=
    query2.SQL.Text:=    query1.Open;
    query2.Open;

[James64]

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
chemin:=...+'Test2.db';
query1.SQL.Text:=
 
SELECT DISTINCT * FROM "chemin" T1 
WHERE EXISTS (SELECT * 
              FROM "chemin" T2 
              WHERE T1.Ninc <> T2.Ninc 
              AND T1.NoTicket = T2.NoTicket 
              AND T1.DatPai = T2.DatPai) 
 
 
query2.SQL.Text:=
 
DELETE FROM "chemin"
WHERE Ninc < ANY (SELECT Ninc 
                      FROM   "chemin" T2 
                      WHERE Ninc <> T2.Ninc 
                      AND NoTicket    = T2.NoTicket 
                      AND DatPai = T2.DatPai)
 
query1.Open;
query2.Open;

Le première requête fonctionne et arrivé à "Query2.open", l'erreur apparait : "Erreur à la création du handle de curseur"

Comprend plus...

[Magnus]

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

query2.ExecSQL

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

query2.Open

pour les requêtes SQL qui n'effectuent pas des SELECT

[James64]

Enfin MERCI !!!!!

C ok comme ca. Ca tenait à pas grand chose.....

Merci encore

A+

[James64]

Par contre, SQL PRO, Ta solution n'a plus l'air de fonctionner dans ce cas. En effet, j'ai rajouté l'alias et ca fonctionne. Sans, la suppression des enregistrements ne fonctionnait pas. Aprés, je ne sais pas pourquoi?

Merci

donc mettre en 2ième requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
query2.SQL.Text:= 
 
DELETE FROM "chemin" T
WHERE T.Ninc < ANY (SELECT Ninc 
                      FROM   "chemin" T2 
                      WHERE T.Ninc <> T2.Ninc 
                      AND T.NoTicket    = T2.NoTicket 
                      AND T.DatPai = T2.DatPai) 
 
Query2.ExecSQL;
 
 
Voila !