Discussion :

[Cthulhu_RLyeh]

J'ai une base de donnée, et je voudrais effacer la ligne que selectionne l'utilisateur. C'est donc l'évenement oncellclick pour détecter la séléction, mais le probléme, c'est que j'ai un champs, et pas forcément celui qui m'interréssent, en l'occurence la clé primaire.
Est-ce qu'il faudrait que je passe par TDrawGrid(DBG_table).row puis croiser ça avec le numéro de ma colonne (la premiére en l'occurence, notée à 0 sauf erreur !) et que j'utilise le résultat de tout ceci dans une belle requete commençant par DELETE ?

[MedGIR]

Bonjour, pour te repondre, tu devrais nous dire dans quel composant grille tu affiche ta base de données... Et si elle est liées dynamiquement à tes données, donc si elle possede une propriete de type "tdatasource".

[Cthulhu_RLyeh]

J'affiche dans un TDBGrid, lié à un datasource via une table, une transaction et un database.

[MedGIR]

C'est la solution la plus simple, le fais de cliquer sur une ligne te positionne directement sur l'enregistrement associé, tu n'a donc juste qu'a saisir ceci:

nomTable.delete. Cela devrait fonctionner...Pas besoin de SQL...

[ShaiLeTroll]

Normalement, MedGIR a raison, tu as la ligne selectionnée dans la grille qui est accessible via le record en cours du DataSet ... il faut que dans ta requête dans la grille, que tu es mis la colonne ID (caché en runtime, via
"DataSet.FieldByName('ChampClé').Visible := False", cela fonctionne la plupart du temps avec les Grilles Delphi)

tout tourne autour de

Code :

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

Grid.DataSource.DataSet.FieldByName('ChampClé').AsVariant;

si tu utilise un TIBQuery
maintenant LiveMode, t'indiquera si tu peux delete ... ensuite regarde CachedUpdates

si tu utilise un TQuery (BDE)
vérifie le RequestLive pour le Delete ...

mais tu peux faire un truc du genre

Code :

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

1
2
3
4
5
DeleteQuery.SQL.Text := 'Delete :TableName where :IDName = :IDValue';
...
DeleteQuery.ParamByName('TableName').AsString := '...';
DeleteQuery.ParamByName('IDName').AsString := 'ChampClé';
DeleteQuery.ParamByName('IDValue').AsVariant := Grid.DataSource.DataSet.FieldByName('ChampClé').AsVariant;

si cela ne fonctionne pas avec les Params (ça me supprendrait pas), tu peux faire avec Format

Code :

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

DeleteQuery.SQL.Text := Format('Delete %s where %s =%s', ['...', 'ChampClé', Grid.DataSource.DataSet.FieldByName('ChampClé').AsInteger]);

DeleteQuery.SQL.Text := 'Delete :TableName where :IDName = :IDValue';

[Cthulhu_RLyeh]

Ben, j'ai trouvé une solution pas propre.
Un BDEdit non visible sur la colonne de la clé primaire.
Quand je clique sur une lignr, le BDEdit se met automatiquement à jour. Il ne me reste plus qu'à faire le delte avec la valeur de ce DBEdit.

Mais je vais installer vos réponses, largement plus propre que mno bidoullage à moi !!

Merci !