Discussion :

[juju1988]

Bonjour à nouveau !!

Encore une petite question delphi :

J'ai deux champs TmaskEdit où l'utilisateur saisit une date de départ et une date de retour...
Malheureusement si je prend un masque de saisie Date Longue jj/mm/aaaa cela me met une erreur : "ORA 01858 caractère non numérique trouvé à la place d'un caractère numérique" au moment de mon ajout :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    oqAjoutSav.Close;
    oqAjoutSav.SQL.Clear;                                                                                             // SEQ_NUMSUIVI permet de récupérer le numéro de suivi suivant relatif à la table SUIVISAV
    // on ajoute un SAV                                                                                              // mais possible grâce à une séquence Oracle SEQ_NUMSUIVI qui s'auto-incrémente
    oqAjoutSav.SQL.Add('INSERT INTO suivisav (numsuivi, numrma, datedepart, dateretour, nomscan, commentaire) VALUES (SEQ_NUMSUIVI.NEXTVAL, :numerorma, :datededepart, :datederetour, :lenomscan, :com)');
    oqAjoutSav.DeclareAndSet('numerorma', otString, uppercase(zsNumRma.Text));
    oqAjoutSav.DeclareAndSet('datededepart', otString, zsDateDep.Text);
    oqAjoutSav.DeclareAndSet('datederetour', otString, zsDateRetour.Text);
    oqAjoutSav.DeclareAndSet('lenomscan', otString, nomDuScan);
    oqAjoutSav.DeclareAndSet('com', otString, zsCommentaires.Text);
    oqAjoutSav.Execute;
    oqAjoutSav.Session.Commit;

Cependant cela me permettrait d'empêcher l'utilisateur de saisie des caractères non numériques.
Et deuxième partie de mon problème je veux pouvoir comparer deux dates pour alerter l'utilisateur si la date de retour est inférieure ou égale à la date de départ :

Code :

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

1
2
3
4
5
6
    testDates := CompareText(zsDatedep.Text, zsDateRetour.Text);
    if (testDates > 0) or (testDates = 0) then
      begin
      ShowMessage('Date de retour inférieure ou égale à la date de départ');
      erreurDate := True;
      end

Cependant ce code ne fonctionne pas cela fait qu'une comparaison jours donc si
Date Départ = 15/01/2011
Date Retour = 01/02/2011
Cela me déclenche le message d'erreur via le ShowMessage...

Help please je sais plus quoi faire après avoir démonter et remonter plusieurs fois mon code..

Merci d'avance

[dehorter olivier]

pourquoi changer les dates en texte ?

les dates sont des valeurs numériques. Aussi en comparant directement ces dates on a cette information.

NB : pourquoi avoir dans le SGBD les colonnes de date dans un format alphanumérique et non pas un format date (plus facilement manipulable) ?

[BuzzLeclaire]

Ah les formats Date tout un programme..

Bonjour à nouveau !!

Code :

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

1
2
3
4
5
6
    testDates := CompareText(zsDatedep.Text, zsDateRetour.Text);
    if (testDates > 0) or (testDates = 0) then
      begin
      ShowMessage('Date de retour inférieure ou égale à la date de départ');
      erreurDate := True;
      end

SI tu compare des dates au format TEXT tu ne pourras que tester l'égalité Date1 = Date2.

Maintenant si tu compare des dates le mieux serais d'avoir des TDateTime et non des String, si tu persisite avec le text il y a une solution tout bête tu inverse ta date.

au lieu de comparer jj/mm/aaaa compare aaaa/mm/jj et tu n'auras aucun problème.

a+

[GoustiFruit]

Un TMaskEdit pour gérer des dates, c'est un peu tordu. Passe par un DateTimePicker et tu n'auras plus de problème avec tes dates.

[juju1988]

Ok merci pour vos réponses je suis entrain de mettre en place des TDateTimePicker mais comment faire pour n'avoir que la date ?? J'utilise pourtant des .Date

[GoustiFruit]

Je ne comprends pas ?

Avec ça...

Code :

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

1
2
if DateTimePicker.Date > Now then
 ... // Retour vers le futur

...tu n'as que la date !

Après si c'est dans la BDD, ça dépend du type de la BDD et du type de champ que tu as déclaré !?

[juju1988]

Ben oui j'utilise zsDateDepart.Date mais ça m'ajoute la date + heure dans mon dbgrid et ma base de données.
C'est une base de données Oracle et mon champ est de type Date...

[ShaiLeTroll]

ComCtrls.TDateTimePicker.Kind
et ComCtrls.TDateTimeKind
ou
ComCtrls.TDateTimePicker.DateFormat

Pour ORACLE, tu as DATE pour le stockage qui est un format numérique totalement spécifique !
utilise TO_DATE et TO_CHAR pour les conversions !
Oracle est surement LA db la plus pénible pour ce type !
Lors d'une migration BDE\Paradox vers ADO\Oracle, la gestion des Dates a été la plus chiante surtout que paradox pouvait stocker 00/00/0000 qui plante totalement ORACLE !

Pour le Champ, tu as TDateTimeField qui fourni DisplayFormat, tu peux par exemple dans le AfterOpen affecté un DisplayFormat 'dd/mm/yyyy' ainsi la DBGrid n'affichera que la Date !

Dans le BeforePost, tu peux tronquer le Champ en faisant

Code :

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

Field.AsDateTime := DateOf(Field.AsDateTime);

DateOf de DateUtils

[juju1988]

Le Kind est bien à dtkDate et le DateFormat à dfShort...

Et voici ma requête :

Code :

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

1
2
3
4
5
6
7
8
9
    oqAjoutSav.Close;
    oqAjoutSav.SQL.Clear;                                                                                             // SEQ_NUMSUIVI permet de récupérer le numéro de suivi suivant relatif à la table SUIVISAV
    // on ajoute un SAV                                                                                              // mais possible grâce à une séquence Oracle SEQ_NUMSUIVI qui s'auto-incrémente
    oqAjoutSav.SQL.Add('INSERT INTO suivisav (numsuivi, numrma, datedepart, nomscan, commentaire) VALUES (SEQ_NUMSUIVI.NEXTVAL, :numerorma, :datededepart, :lenomscan, :com)');
    oqAjoutSav.DeclareAndSet('numerorma', otString, uppercase(zsNumRma.Text));
    oqAjoutSav.DeclareAndSet('datededepart', otDate, zsDateDep.Date);    oqAjoutSav.DeclareAndSet('lenomscan', otString, nomDuScan);
    oqAjoutSav.DeclareAndSet('com', otString, zsCommentaires.Text);
    oqAjoutSav.Execute;
    oqAjoutSav.Session.Commit;

Comment puis-je gérer ? Je vais tester avec le DateOf

EDIT : ça fonctionne avec le DateOf SUPER merci Shai !!