TDBMaskEdit.DataChange [Résolu]

Messages postés
9
Date d'inscription
jeudi 14 février 2019
Dernière intervention
6 mars 2019
- - Dernière réponse : Excalibur_56
Messages postés
9
Date d'inscription
jeudi 14 février 2019
Dernière intervention
6 mars 2019
- 19 févr. 2019 à 15:34
Bonjour à tous;
j'utilise le composant TDBMaskEdit, mais il a un problème , lorsque la base de donnée est vide, un message d'erreur s'affiche
procedure TDBMaskEdit.DataChange(Sender : TObject);
begin
if (fDataLink.Field = nil) then
Text := ''
else
Text := FDataLink.Field.asVariant;
end

Qui pourrais m'aider à modifier la procédure ???.
En vous remercient pour votre aide
Cordialement
Afficher la suite 

Votre réponse

2 réponses

Messages postés
167
Date d'inscription
samedi 15 novembre 2003
Dernière intervention
21 février 2019
5
0
Merci
Salut
quelle base de donnée ?
ensuite qu'est-ce-qui est vide la base ?? ou la table ??
si c'est la table teste
if  DataModule.TableName.IsEmpty then

Commenter la réponse de papyvore
Messages postés
9
Date d'inscription
jeudi 14 février 2019
Dernière intervention
6 mars 2019
0
Merci
bonjour Papyvore,
Merci pour ta réponse
Ma base de donnée est une base access: Base Acces.mdb
ADOTable1. TableName:= table1: , DBEdit.DataField: = champ1,
DBMaskEdit.DataField:= champ2,
j'ai le message d'erreur lorsque je crée la base, à la conception du projet, je renseigne le DBMaskEdit: datasource , puis, datafield' champ2' et c'est là que j'ai le message d'erreur "ne peux convertir un type null en string" , uniquement dans le dbmasedit
mais, lorsque je lance le projet, avec mon bouton je n'ai pas ce message d'erreur, même si la table est vide,
Si la table est renseignée, champ1 et champ2, dans le dbmaskedit, il n'y à rien .
il fonctionne pas comme le DBEdit.
Lorsque je click sur une ligne du DBGrid, dans leDBEdit, il y a bien le texte de champ1, mais le DBMaskEdit reste vide ???.

type
  TForm1 = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    ADOConnection1: TADOConnection;
    DBMaskEdit1: TDBMaskEdit;
    ADOTable1: TADOTable;
    DBNavigator1: TDBNavigator;
    procedure DBMaskEdit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.Connected:= True;
ADOTable1.Active:= True;
end;
Commenter la réponse de Excalibur_56

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.