Discussion :

[celine33]

Bonjour,
Je tente de modifier la couleur d'une ligne d'un DBDataGrid. Je repère cette ligne à l'aide du Dataset de la grille (qui est une ADOQuery). Une fois l'élément sélectionné, je le trace avec un BookMark.
Je code sur le OnDrawColumnCell de la grille le changment de couleur à effectuer... sans succès et avec une erreur sur msado15.dll?!

Code :

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

1
2
3
4
5
6
7
 
// Définition du bookmark
  BookMarkCmd := ADOQry.GetBookmark;
  if ADOQry.BookmarkValid(BookMarkCmd) then
  begin
     ADOQry.GotoBookmark(BookMarkCmd);
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
// Modification de la couleur de fond de la ligne
procedure TFForm.DBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if ADOQry.BookmarkValid(BookMarkCmd) then
  begin
    DBGrid.Canvas.Brush.Color := clGreen;
    ADOQry.FreeBookmark(BookMarkCmd);
  end;
end;

[Rayek]

Que veux tu faire exactement ? Mettre en couleur une ligne que tu as sélectionné ?

Sinon quel est l'erreur exacte que tu as avec msado15.dll ?

[celine33]

En fait, je souhaite sélectionner une ligne d'un DBDataGrid au clic sur une autre DBDataGrid. Le principe : au clic sur un élément d'une liste de choix dans une datagrid, le choix en question s'insère dans une autre dbdatagrid (ou s'il y existe déjà, voit sa quantité incrémentée) et la sélection se fasse sur l'élément inséré ou modifié (pour qu'on le repère). J'ai laissé de côté le fait de colorer le fond de la ligne, je veux déjà le sélectionné.
En fait, je n'ai plus l'erreur sur la dll, mais je n'arrive pas à faire fonctionner le bookmark.
Je suis en train de voir le problème. En fait, à l'insertion d'un élément, la sélection revient toujours sur le premier élément de la grille!

[celine33]

J'ai testé le code trouvé au post
suivant : http://www.developpez.net/forums/sho...light=bookmark

Ca ne fonctionne pas sur ma grille!
Le dataset de ma grille était une ADOQuery (un select sur une table) que j'ai modifié pour un ADOTable. Ca ne change rien au problème du bookmark, ça m'interroge seulement sur le choix à effectuer : utiliser les ADOQuery ou les ADOTable. Mais ça fera l'objet d'un autre post!?
Je ne suis pas plus avancée!

[PadawanDuDelphi]

Bonjour,

Je suis en train de voir le problème. En fait, à l'insertion d'un élément, la sélection revient toujours sur le premier élément de la grille!

C'est normal, lors de certaines fonctions appelées par le DBGrid (append, insert...)replace le curseur en début (voir en fin..) de ton dataset.

J'ai eu le même problème avec les bookmarks, je pouvais pas le replacer après avoir modifier la table par un insert. Alors je les utilisent plus...A la place je stock dans une variable la ligne du DBGrid

Code :

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

marqueue := TDrawGrid(nom).Row

Et quand je veux le repositionner, je fais:

Code :

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

1
2
3
4
5
6
Data.Dataset.DisableControls;
Data.DataSet.First; if ( i<>1) then
  begin
    for i:=2 to marqueur do Data.DataSet.Next;
  end;
Data.Dataset.EnableControls;

Mais quelqu'un de plus expérimenter doit surement avoir une méthode plus propre...

@+.

[Rayek]

Considère :

AdoQ1 -> Ds1 -> DbGrid1
AdoQ2 -> Ds2 -> DbGrid2

dans le OnClick de la DbGrid1

Code :

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

1
2
3
4
5
6
7
8
9
10
 
if Adoq2.locate('MonChampDeRecherche',AdoQ1.FieldByName('MonchampDeRecherche').aSString,[loCaseInsensitive]) then
begin
  // L'enregistrement a été trouvé.
end
else
begin
  // L'enregistrement n'exsite pas
  // La tu créés ton enregisterment.
end;

Pour la couleur de la ligne dans la DbGrid2 :

- Tu mets l'options, dgAlwaysShowSelection à True;
- Tu codes comme ci dessous

Code :

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

1
2
3
4
5
6
7
8
 
procedure TfrmMain.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  // Si la ligne est sélectionnée on la met en rouge
 If gdSelected In State Then
   TDBGrid(Sender).Canvas.Brush.Color := clRed;
end;

[Rayek]

Mais quelqu'un de plus expérimenter doit surement avoir une méthode plus propre...

@+.

Pour pas mal de personne vous n'arrivez pas encore à comprendre qu'un DbGrid ne contient pas de données, un dbGrid c'est vide ^^
C'est la source de données qui possède les enregistrements, en l'occurence, la c'est les AdoQuery ou AdoTable.

De plus ta méthode ne fonctionne que sur une petite table, imagine que c'est le 1 000 000 em enregistrement que tu sélectionnes, combien de temps ca va mettre pour faire le for et les next ?

[celine33]

@PadawanDuDelphi : Eh oui, donc je ne suis pas la seule à galérer avec les bookmark! Mais je rejoins l'idée de Malatar en terme de rapidité d'exécution avec l'emploi des ADOTables.
@Malatar : J'ai testé ton code sur une table, mais ça plante au locate. Faut-il parcourir la table et tester l'existence avec le locate ou bien le locate se localise-t'il directement sur l'enregistrement s'il existe?

[Rayek]

@Malatar : J'ai testé ton code sur une table, mais ça plante au locate. Faut-il parcourir la table et tester l'existence avec le locate ou bien le locate se localise-t'il directement sur l'enregistrement s'il existe?

Le Locate s'il trouve, positionne le curseur du DataSet (Query ou Table) sur l'enregistement.

un petit sur le locate te donnera plus d'informations

Sinon fait voir ton code complet du onclick, ca permettra de voir ou est l'erreur.

[celine33]

Je n'utilise pas de boucle (j'ai vérifié l'aide de Delphi), mais le locate n'entraine pas le repositionnement sur mon champ. Que faire? Est ce que le fait que je teste sur une ADOTable et non une ADOQuery est en jeu??

[Rayek]

Je n'utilise pas de boucle (j'ai vérifié l'aide de Delphi), mais le locate n'entraine pas le repositionnement sur mon champ. Que faire? Est ce que le fait que je teste sur une ADOTable et non une ADOQuery est en jeu??

Fait voir la partie du code qui utilise le locate, ca sera plus simple de voir l'erreur que de spéculer sur l'erreur possible qu'il y a dans ton code ^^

[celine33]

Voilà la structure de mon code :

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
  if not tarifispresent(coderef) then // TARIF A INSERER
  begin
    Qte := 1;
    if DM.ADOTab_detailResa.Active = false then
      DM.ADOTab_detailResa.Active := true;
    DM.ADOTab_detailResa.Insert;
 
    with pdaDataModule do
    begin
      ADOTab_detailResaDET_CODRESA.AsFloat := valCodresa;
      ADOTab_detailResaDET_CODETARIF.AsString := codeRef; // coderef du tarif
      // ...
      //ADOTab_detailResa.Recordset.MoveLast; // ne fonctionne pas
    end;
  end
  else // TARIF DEJA EXISTANT => METTRE A JOUR LA QTE 
  begin
    //... requête de sélection de la QTE à modifier   
    DM.ADOQry.locate('DET_CODETARIF',codeRef,[loCaseInsensitive]);
    Qte := Qte + 1;
    // update de l'enregistrement 
  end;

J'ai lu sur la doc des ADO Delphi de Developpez.com que le locate pouvait ne pas marcher dans certans cas...

[Rayek]

ADOQry est bien relié à la deuxieme dbgrid par un datasource ?

[celine33]

Oui, le Dataset du 2ème DBGrid est ADOQry relié via un DataSource à la grille.
J'ai réussi à gérer la sélection à la modification d'un élément en utilisant à la fois le LOCATE et un BOOKMARK. Je planche encore sur l'insertion. Je posterai mon code en temps voulu!