comment faire une verification sur une date

**alexF** · 09/01/2007, 21h15

Bonjour,
Je realise un programme dans lequel je rentres une date dans une DBEdit dont la valeur est renvoyee dans une base de donnees (dans un champ de type date), et evidement si je rentre une mauvaise date (du texte ou n'importe quoi qui n'est pas du style dd/mm/yyyy, le programme plante.
j'ai essayer de rechercher sur le net, mais je ne trouve rien

je suppose que le code doit etre quele chose du genre

if DBEdit1.Text <> ???? je ne sais pas comment exprimer ???
then showmessage('mauvais format')
else ??ok pour l'insertion dans la bd...????

ma question doit etre assez bete, mais je suis tres debutant

donc si quenlq'un peut m aider ou me dire ou trouver un exemple, je le remercie d'avance

**slimjoe** · 09/01/2007, 21h38

Cherche du côté de TryStrToDate.

**Gaadek** · 09/01/2007, 22h32

Sinon, pourquoi ne pas utiliser le composant TDateTimePicker?

**slimjoe** · 09/01/2007, 23h04

Envoyé par Gaadek

Sinon, pourquoi ne pas utiliser le composant TDateTimePicker?

+1

**alexF** · 09/01/2007, 23h08

merci pour les info je vais tester ca dés demain

**alexF** · 10/01/2007, 11h46

je vais utiliser DateTimePicker
mais comment faire pour renvoyer la date dans une DBEdit ?

j'ai essaye

procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin
Form2.Tbl_PatientsDdn.Value := form2.DateTimePicker1.DateTime;
end;

pour inserer la valeur dans ma base de donnee, mais cela me met le message d erreur Nom : erreur.JPG
Affichages : 104
Taille : 14,9 Ko

quelqu'un peut il m'expliquer ?
merci davance

**Cl@udius** · 10/01/2007, 12h05

Salut

Tu as ce message car ta table (ou requête) n'est pas en mode édition.

Code :

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

1
2
3
4
5
6
7
 
procedure TForm2.DateTimePicker1Change(Sender: TObject);
begin
  if not (Form2.Tbl_PatientsDdn.State in [dsEdit, dsInsert] then
    Form2.Tbl_PatientsDdn.Edit;
  Form2.Tbl_PatientsDdn.Value := form2.DateTimePicker1.DateTime;
end;

@+ Claudius

**e-ric** · 10/01/2007, 12h15

Salut

Si mes souvenirs sont bons, il faut surcharger l'événement OnValidate de l'objet DBEdit. Vérifie à l'aide de F1, je ne peux pas faire de test car je n'ai pas Delphi sur mon poste de travail.

L'emploi du composant TDateTimePicker interdit la connexion à une source de données, mais tu peux initialiser la valeur du composant DateTimePicker en surchargeant l'événement OnDataChange du composant TDataSource. Dans l'autre sens, ce doit l'événement OnChnage du DateTimePicker mais atention aux appels récursifs : appel implicite à l'évt OnDataChange du composant DataSource à l'affectation du champ de base de données.

Si cette solution te semble acceptable, tiens-moi au courant. Fais des tests.

Cdlt

e-ric

**Rayek** · 10/01/2007, 12h45

Plus simple encore, dans la JVCL il y a le composant TJvDBDateEdit qui permet de connecter le composant directement au composant table et de faire comme avec un TDateTimePicker

**e-ric** · 10/01/2007, 14h44

Envoyé par Malatar

Plus simple encore, dans la JVCL il y a le composant TJvDBDateEdit qui permet de connecter le composant directement au composant table et de faire comme avec un TDateTimePicker

Dans ce cas...

cdlt

e-ric