Discussion :

[paulfr]

Bonjour,

Dans une DB j'ai un champ de 2 caractéres qui à la création contient soit le numéro du mois ('01'..'12') ou 2 espaces (' ').

Il semblerait que dans certaines circonstances, à la copie d'un enregistrement, à la lecture du champ ...,
il y ait confusion entre les 2 espaces et une chaine vide ('').

Comment résoudre ce problème qui est génant quand on utilise un filtre ... ?

Il me semble que sous Delphi 3 je n'avais pas ce problème.


PL

[ShaiLeTroll]

Tu ne précises pas la DB ? bon avec BDE et Delphi3, je suppose Paradox !

Ton problème d'espace non géré me rappelle, une expérience en 2002 !
C'est par contre en InterBase, on avait changé Paradox à InterBase, le problème est apparu à ce moment !

J'ai des Locate qui ne passait pas car il me considérait des espaces qui n'existait pas dans mon champ, c'était l'inverse pour lui, par défaut une chaine était rempli d'espace !
Cela venait du mauvais choix du type CHAR dans IB pour remplacer le type A de Paradox, VARCHAR lui ne posait pas ce problème !

Si tu utilises IB, c'est peut-être une copie d'un champ CHAR dans un champ VARCHAR directement en SQL, je crois qu'il ne copie pas les espaces dans ce cas ???

Si tu utilises Paradox, c'est bien étrange, en général, j'évite l'utilisation de l'espace comme bourrage, je préfère la valeur NULL bien plus fiable !
D'ailleurs, j'utiliserais plutôt un entier pour stocker 1 à 12, 0 ou NULL indiquant une valeur vide !
Ensuite, dans l'affichage, avec Format('%.2d', ...);, tu ajoutes les 0

Comment copies-tu les champs ?
AsString ? AsVariant ? Value ?
Pas de Trim qui traine ?

[paulfr]

Réponse à ST.

La DB est dBase (je l'utilisais sous DOS avant de passer à Delphi 3).

Le champ indique le mois où l'enregistrement est complété, d'où rien ou l'indication du mois en caractères.
En fait la confusion se produit quand avec la procédure ci-dessous je complète un fichier existant "vidé" :

Code :

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

1
2
3
4
5
6
7
8
 procedure TfichSt.AjoutFichDB(TableSource, TableDestination : Ttable; NomFDest : string);
begin
  TableDestination.TableName := NomFDest;  
  TBM.Destination := TableDestination;     
  TBM.Source := TableSource;               
  TBM.Mode := batAppend;
  TBM.Execute;                            
end;

Je n'utilise pas de Trim dans ce contexte.

Après exécution de la procédure "AjoutFichDB" avec une procédure "Extraction" qui filtre les enregistrements
si je configure le filtre DBQ=' ' aucun enregistrement n'est affiché,
par contre en faisant DBQ=Null la liste correcte des enregistrements est affichée.

Merci à Shaile Troll pour son intérêt et ses indications.

[paulfr]

En définitive pour résoudre mon problème aprés mise à jour du fichier j'utilise un SetFields(....,' ') pour corriger les valeurs du champ DBQ.