Discussion :

[pitango]

Bonjour,

Je suis en train de passer une application de BDE en ADO.

Je rencontre le problème suivant : Lorsque j'accède aux données de type char, il me ramène tous les blancs derrières les données, ce qui me pose des problèmes en autre de centrage dans les DBgrid et dans les états.

Mon but est de trouver une solution sans avoir effectuer des trim dans chaque requête, ni sans avoir à revoir la structure des tables.(pour les passer en varchar)

Merci pour vos réponses

Pitango

-------------------------------------------------
[Delphi7.1 Entreprise][SQL SERVER 7][W2000/NT4]

[aityahia]

utilise le type VARCHAR dans ta table SQL, jai eu le meme problemes.

[pitango]

Merci aityahia pour ta réponse,

Je pensais effectivement emprunter ce voie, mais comme c'est une application
qui est déja en prod, cela m'embêtait un peu d'avoir à retoucher la structure des tâbles.

J'avais imaginé également la possibité de surchargé le open et dans le cas où on a à faire à un champ de type string, effectuer un trim de la chaine, mais cela ne fonctionne pas, les composants qui accêdent à ces données récupèrent toujours les blancs.

Cela ressemeblait à peu près à ça

Code :

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

1
2
3
4
5
6
7
8
 
Interface
 
type
 
  tmarequeteAdo = class(TADOQuery)
    procedure open;
  end;

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
 
implementation
....
{ tmarequeteAdo }
 
procedure tmarequeteAdo.open;
var
  i, j: integer;
  currentRequestLive: boolean;
begin
  self.DisableControls;
  try
    inherited;
    for j := 0 to self.RecordCount - 1 do
    begin
      self.Edit;
      for i := 0 to self.FieldCount - 1 do
      begin
        if self.Fields[i].DataType = ftString then
        begin
          (Self.Fields[i]).AsString := trim((Self.Fields[i]).AsString);
        end;
      end;
      self.Next;
    end;
  finally
    Self.EnableControls;
  end;
end;

Je laisse encore un peu le post ouvert au cas où.

[pitango]

Bonjour,

Bon je vais donc revoir la structure de ma base de données pour contourner ce problème et passer tous les champs char en varchar

Merci