Delete d'une ligne dans un DBGrid

Bonjour à tous,

J'utilise Firebird comme base de donnée avec Delphi 7.

J'ai une DBGrid dans laquelle j'ai plusieurs champs affichés avec des données, il est possible d'avoir deux lignes ou plus; complètemenet identique dans cette DBGrid.

Le problème est que quand je veux effacer une ligne, si cette ligne existe plusieurs fois, elles seront toutes effacer, or moi j'aimerai faire en sorte que seul la ligne que j'ai sélectionné soit effacer.

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

with DataModule1 do begin IBQueryXPresta.Close; IBQueryXPresta.SQL.Clear; IBQueryXPresta.SQL.Add('DELETE FROM XPRESTA'); IBQueryXPresta.SQL.Add('WHERE XNUMCO = :NUMCO'); IBQueryXPresta.SQL.Add('AND XLIBELLE = :LIBELLE'); IBQueryXPresta.SQL.Add('AND XCODE = :CODE'); IBQueryXPresta.ParamByName('NUMCO').AsString := frmMain.dbtxtAVNUM.Field.Text; IBQueryXPresta.ParamByName('LIBELLE').AsString := XPrestaLibelle; IBQueryXPresta.ParamByName('CODE').AsString := XPrestaCode;   IBQueryXPresta.Open; IBtrsXPresta.CommitRetaining; end;

---

J'ai essayer de faire quelque chose avec l'instruction DECLARE ... CURSOR en SQL, mais ça ne marche pas.

Quelqu'un aurait-il une solution à me proposer?

Jeankiki

Tu dis que 2 lignes peuvent être completement identiques...

Mais tu devrais normalement avoir un champ (typiquement nommé 'Idxxx' ou 'Code' ) qui est unique (style clef incrémentale).

-> auquel cas il vaut faire intervenir ce champs dans ta clause Where.

Sinon, hors requete SQL, tu peux également te positionner sur la bonne ligne est faire

Code:

---

Dataset.Delete

---

bon code

En fait, j'ai un numéro de contrat qui est unique dans lequel il y a des prestations.
Les prestations peuvents être sous forme de chèque repas, de jours férier à récupérer, etc...
Chaque prestation possède un code qui lui est aussi unique, mais il est possible par exemple de récupérer deux jours férié dans une même prestation, donc, le code, le nom, le montant, etc..., tout est identique.

Le dataset.delete ne fonctionne pas non plus pour d'autre raison lié au programme.

Je sais qu'il y a moyen de faire un DECLARE ... CURSOR, mais honnêtement, je n'arrive pas à l'utiliser en delphi.

Quand je fais le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

with DataModule1 do begin IBQueryXPresta.Close; IBQueryXPresta.SQL.Clear; IBQueryXPresta.SQL.Add('DECLARE C CURSOR FOR'); IBQueryXPresta.SQL.Add('(SELECT XNUMCO, XLIBELLE, XCODE FROM XPRESTA)'); IBQueryXPresta.SQL.Add('DO'); IBQueryXPresta.SQL.Add('BEGIN'); IBQueryXPresta.SQL.Add('DELETE FROM XPRESTA'); IBQueryXPresta.SQL.Add('WHERE XNUMCO = :NUMCO'); IBQueryXPresta.SQL.Add('AND XLIBELLE = :LIBELLE'); IBQueryXPresta.SQL.Add('AND XCODE = :CODE'); IBQueryXPresta.SQL.Add('END'); IBQueryXPresta.ParamByName('NUMCO').AsString := frmMain.dbtxtAVNUM.Field.Text; IBQueryXPresta.ParamByName('LIBELLE').AsString := XPrestaLibelle; IBQueryXPresta.ParamByName('CODE').AsString := XPrestaCode;   IBQueryXPresta.Open; IBtrsXPresta.CommitRetaining; end;

---

il me dit qu'il ne reconnait pas C

Auriez-vous une autre solution à me proposer