Discussion :

[BuzzLeclaire]

Bonjour à tous,

J'ai fait cette procédure qui fonctionne bien sauf pour mon champs de type mémo.
J'ai un table Access 97, j'utilise ADO, j'ai un DBRGrig lié à une une ADOTAble

Le but.
Je clique sur le titre de la colonne et cela classe par ordre de cette colonne

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
procedure TFListeDevis.DBGridDevisTitleClick(Column: TColumn);
begin
  JvEdit1.Text := ''; // On vide le champs de recherche
  With ModuleDeDonneeSecondaire.ADODevis Do
  Begin
    if (FieldByName(Column.FieldName) is TMemoField) then
    Begin
// ICI cela ne fonctionne pas
      showmessage(Column.Field.AsString);
      JvEdit1.Visible := True;
      JvDateEdit1.Visible := False;
      Label1.Caption := Column.Title.Caption + ' :';
// 
    end
    else
    Begin
      Close;
      IndexFieldNames := Column.FieldName;
      if (FieldByName(Column.FieldName) is TStringField) then
      Begin
        JvEdit1.Visible := True;
        JvDateEdit1.Visible := False;
        Label1.Caption := Column.Title.Caption + ' :';
      end;

      if (FieldByName(Column.FieldName) is TIntegerField) then
      Begin
        JvEdit1.Visible := True;
        JvDateEdit1.Visible := False;
        Label1.Caption := Column.Title.Caption + ' = ';
      end;
      if (FieldByName(Column.FieldName) is TFloatField) then
      Begin
        JvEdit1.Visible := True;
        JvDateEdit1.Visible := False;
        Label1.Caption := Column.Title.Caption + ' >= ';
      end;

      if (FieldByName(Column.FieldName) is TDateField) Then
      Begin
        JvEdit1.Visible := False;
        JvDateEdit1.Left := JvEdit1.Left;
        JvDateEdit1.Visible := True;
        Label1.Caption := Column.Title.Caption + ' >= ';
      end;
      Open;
    end;
  end;
end;

En rouge où cela me pose problème.
A l'issu du clique donc, Open; ou plutot delphi m'envoi un message 'Le tri ne peut pas être réalisé' patati patata, j'ai essayé de contourner le problème je n'y arrive pas.

Précision le champs de Type Mémo subi un traitement avant affichage pour n'afficher que la première ligne du mémo.
Voici le traitement : (le adotable c'est ADODevis)

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
23
24
25
26
27
28
 
Procedure TModuleDeDonneeSecondaire.MemoGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
  i : integer;
begin
  try
    Text := sender.AsString;
    if displayText then
    begin
      i := pos(#13,Text); // On récupère la position du retour à la ligne
      if i > 0 then
        Text := copy(Text,1,i-1) + '...'; // Text étant la valeur à afficher pour un TMemo on aura 1 ligne si il y a plusieur ligne dans le Tmemo
    end;
  except
    on e: Exception do
      Text := e.message;
  end;
end;
 
procedure TModuleDeDonneeSecondaire.ADODevisAfterOpen(DataSet: TDataSet);
var
  i : integer;
begin
  // on redirige les zones memo vers memoGetText
  for i := 0 to DataSet.FieldCount - 1 do
    if (DataSet.Fields[i] is TMemoField) then
      DataSet.Fields[i].OnGetText := memoGetText;
end;

MErci de vos remarques et suggestion.

[JustMe]

Juste une suggestion bidon : tu crée un champs ou tu stock la première ligne du mémo cela t'évitera le traitement et te permettra de trier ta table sur ce champ.

[BuzzLeclaire]

Bonjour justeMe,

Je ne peux pas faire cela je ne uis pas le créateur de cette table, je la lie uniquement.

Merci.

[BuzzLeclaire]

J'ai résolu mon probleme en passant par un Tquery et des procédures totalement différentes.

[SergioMaster]

Bonjour, j'arrive un peu tard puisque tu as résolu ton problème , mais je peux au moins fournir des explications . Je ne connais pas Access mais le principe doit être le même que pour Firebird.

Le système de BDD ne stocke pas dans la table la valeur du mémo mais un indice unique pointant sur le mémo (en remarque subsidiaire cela veux également dire que pour lire un mémo il y a deux lectures dans la BDD) .
Tu remarqueras que j'ai mis unique en gras . En effet pour deux enregistrement ayant la même valeur dans le mémo si tu compare ceux-ci , par égalité, surprise les deux enregistrements seront considéré différents
(du moins est-ce le cas sous Firebird) . Implication : Faire un index sur u mémo c'est comme indiquer un index UNIQUE.

Comment contourner le problème, en créant une colonne fantôme en varchar(n) contenant la valeur du mémo (dans ton cas tout ou partie de la première ligne) et en lui mettant une valeur via un trigger .Ainsi pas de problème pour faire un index
Dans le cas d'une requête plus besoin de colonne fantôme un 'simple CAST' en VARCHAR suffira , c'est également une astuce pour ne faire qu'une lecture au lieu de 2 dans la BDD . A noter cependant qu'une erreur type 'string troncation' peut arriver , la taille du mémo peut être supérieure à celle de la varchar utilisée . On pourra en venir a bout via un SUBSTR ou un équivalent

@+