Discussion :

[Jean-Jacques Engels]

Hi,

Voici mon problème : j'ai défini un champ d'une de mes tables comme suit :

Etudiant boolean not null default 0

Lorsque j'associe un TDBCheckbox à ce champ et que j'essaye à l'exécution de modifier la valeur du DBCheckbox, j'obtiens le message d'erreur suivant :

Impossible d'accéder au champ 'Etudiant' comme type Text.

Quelqu'un comprend-t-il ce message ? Que devrais-je corriger ?

Merci.



JJE

[Jean-Jacques Engels]

Précision :

Apparemment, TDBCheckbox n'a rien à voir dans le message d'erreur. Je l'ai remplacé par un TDBEdit et le même message d'erreur apparaît.

Par contre, après réflexions, j'ai constaté que les problèmes sont apparus lorsque j'ai migré ma petite application construite sur base du BDE vers un environnement multi-niveaux avec serveur d'application DataSnap et composants DBExpress.

Je ne suis pas sorti de l'auberge !

Toujours personne pour me filer un tuyau ?

JJE

[chaplin]

Comment est déclaré le champ "Etudiant" dans l'éditeur de champ du Dataset ?

[Jean-Jacques Engels]

Voici :

Fieldkind: fkData
FieldName: Etudiant
Name : cdsINTERIMAIREEtudiant (cdsINTERIMAIRE étant le nom du ClientDataSet)

dans le fichier .pas :

cdsINTERIMAIREEtudiant: TVarBytesField;

JJE

[Jean-Jacques Engels]

Hi,

Bon... j'ai trouvé une solution en utilisant le TDBCheckBox. Alors, pour ceux que cela intéressent...

1) Au niveau du TDBCheckBox, il faut attribuer aux deux propriétés ValueChecked et ValueUnchecked les valeurs respectives 1 et 0.
2) Définir ensuite l'évènement OnSetText de Etudiant (ou de tout champs booléen) comme suit :

procedure TfrmInterimaire.cdsINTERIMAIREEtudiantSetText(Sender: TField; const Text: string);
begin

Sender.AsString:=Text;

end;

On a beau dire que BDE est un vieux truc complètement obsolète, n'empêche qu'il nous épargnait ce genre de farce qui nous coûte un temps précieux !



JJE