Saisie des dates avec delphi 7 et oracle 9

Bonjour à tous,

J'ai un sérieux problème avec mon application que j'ai développée avec delphi 7 et oracle 9i en utlisant les composants Dbexpess pour l'accèes à la base de données.
Voici la structure d'une de mes tables.

Nom NULL ? Type
----------------------------------------- -------- -------------
ESSENCE_ID NOT NULL VARCHAR2(30)
SITE_ID NOT NULL VARCHAR2(30)
PRODUCTEUR_ID NOT NULL VARCHAR2(30)
TAUX_TAXE NOT NULL NUMBER
DATE_ACHAT DATE
MARTEAU VARCHAR2(10)
DATE_PV_COMP DATE
NUM_PIECE VARCHAR2(10)
CHOIX_ESSENCE VARCHAR2(10)
DEFRAIS_ESSENCE VARCHAR2(10)
VOLUME_ACHAT NUMBER(10,2)
NBRE_RONDINS NUMBER(4).


Lorsque je saisis DATE_ACHAT et DATE_PV_COMP je reçois le message : ORA-01861 : le littéral ne concorde pas avec le format chaine de caractères.

Mon code est le suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TFMAJACHATS_OK_OZ.ValiderClick(Sender: TObject); begin with SqlQuery1 do begin Close; with Sql do begin //DateAchat.Format:=FormatDateTime('yyyy/mm/dd', Date) ;   Clear; Add('INSERT INTO ACHATS_ESSENCES'); Add(' (SITE_ID,ESSENCE_ID,PRODUCTEUR_ID,DATE_ACHAT,TAUX_TAXE,NUM_PV_ACHAT,CHOIX_ESSENCE' +',VOLUME_ACHAT,MARTEAU,DEFRAIS_ESSENCE,NBRE_RONDINS,TYPE_ACHAT)'); DateSeparator:='/'; DecimalSeparator:='.'; Add(' VALUES ('''+ Site.Text+''','''+ Essence.text+''','''+Producteur.text +''','''+FormatDatetime('yyyy/mm/dd',DateAchat.Date)+''','''+Taux.text //FormatDateTime('yyyy/mm'ddd',DateAchat.Date) +''','''+NumPV.Text+''','''+Choix.Text+''','''+Volume.Text+''','''+Marteau.Text +''','''+Defraichis.Text+''','''+NbreRond.Text+''','''+TypeAchat.text+''')'); DecimalSeparator:=','; DateSeparator:='/'; end;   Try //if not Module_Stock.SQLconnect.InTransaction then // Module_Stock.SQLconnect.StartTransaction(gTD); ExecSql; //Module_Stock.SQLconnect.Commit(gTD); ShoWmessage('Enregistrement bien effectué...'); Module_stats.ClientDACHATS_OK_OZ.Refresh; except on e:exception do MessageDlg(e.Message,mtInformation,[mbOk],0); end; end; end;

---

Quelqu'un peut-il m'aider?
end;

Mon dieu que c'est laid cette écriture ;)

Dans un cas comem le tient, je te conseil de passer par les paramètres (ca sera largement plus lisible en plus

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Clear; Add('INSERT INTO ACHATS_ESSENCES'); Add(' (SITE_ID,ESSENCE_ID,PRODUCTEUR_ID,DATE_ACHAT,TAUX_TAXE,NUM_PV_ACHAT,CHOIX_ESSENCE'); Add(',VOLUME_ACHAT,MARTEAU,DEFRAIS_ESSENCE,NBRE_RONDINS,TYPE_ACHAT)'); Add(' VALUES (:SITE,:ESSENCE,:PRODUCT,:DACHAT,:TAUX,:NPV,:CHOIX,:VOLUME,:MARTO,:DEFRAIC,:NBROND,:TYPEACHAT)'); DateSeparator:='/'; DecimalSeparator:='.'; ParamCheck := True; ParamByName('SITE').value := Site.Text; ParamByName('ESSENCE').value := Essence.text; ParamByName('PRODUCT').value := Producteur.text; ParamByName('DACHAT').value := FormatDatetime('yyyy/mm/dd',DateAchat.Date); ParamByName('TAUX').value := Taux.text; ParamByName('NPV').Value := NumPV.Text; ParamByName('CHOIX').Value := Choix.Text; ParamByName('VOLUME').Value := Volume.Text; ParamByName('MARTO').Value := Marteau.Text; ParamByName('DEFRAIC').Value := Defraichis.Text; ParamByName('NBROND').Value := NbreRond.Text; ParamByName('TYPEACHAT').Value := TypeAchat.text; DecimalSeparator:=',';

---

Je ne suis pas sûr de la syntaxe pour l'appel de paramètres avec DbExpress, donc il te faut vérifier (un petit coups de :f1: ^^)
Ca devrait régler pas mal de tes problèmes (lecture et date ^^)

Je suis d'accord (j'ai le droit) mais quitte à passer par des parmètres il faut en uutiliser toute la substance.


Donc on remplace

Code:

---

1 2	ParamByName('DACHAT').value := FormatDatetime('yyyy/mm/dd',DateAchat.Date);

---

par

Code:

---

1 2	ParamByName('DACHAT').asDateTime := DateAchat.Date;

---

a+

Citation:

---

Envoyé par Yurck

Je suis d'accord (j'ai le droit) mais quitte à passer par des parmètres il faut en uutiliser toute la substance.


Donc on remplace

Code:

---

1 2	ParamByName('DACHAT').value := FormatDatetime('yyyy/mm/dd',DateAchat.Date);

---

par

Code:

---

1 2	ParamByName('DACHAT').asDateTime := DateAchat.Date;

---

a+

---

Je l'ai laissé comme cela, car selon les SGBD il est nécessaire de formater quand même le champs comme il faut (Du moins avec Ado j'ai du le faire plusieurs fois, je n'utilise que très rarement DbExpress donc je n'ai aps trop de recul dessu ^^).

Moi je suis un partisant de

Citation:

---

Envoyé par Yurck

Code:

---

ParamByName('DACHAT').asDateTime := DateAchat.Date;

---

---

L'histoire d'utiliser FormatDateTime pour ADO ca doit etre encore que les composants pour ADO n'aiment pas les champs DATE en parametre... m'enfin si ca marche...

Citation:

---

Envoyé par giltonic

Moi je suis un partisant de



L'histoire d'utiliser FormatDateTime pour ADO ca doit etre encore que les composants pour ADO n'aiment pas les champs DATE en parametre... m'enfin si ca marche...

---

Non, c'est que les composants ADO n'ont pas de asDateTime, AsInterger, etc... avec ParamByName, on doit passer obligatoirement avec Value et selon le SGBD il traduiera correctement la date pour la base de données. (Ca dependra des drivers utilisés : ODBC, JET, natif, etc ...)

J'ai essayé de mettre la synthaxe indiquée par Malatar mais j'ai eu le message d'erreur suivant: DBExpress: handle incorrect.

J'ai donc modifié comme ceci :

ParamByName('DACHAT').value := DateAchat1.Text;

Et ça marche

Merci pour l'aide.

Cependant j'ai un autre soucis. Lorsque je veux supprimer un enregistrement avec le DBNavigator, celui ne supprime rien du tout et le DBGrid relié à la table ne se rafraîchit pas. Comment faire?

:cry:

Citation:

---

Envoyé par miwbath2007

J
Cependant j'ai un autre soucis. Lorsque je veux supprimer un enregistrement avec le DBNavigator, celui ne supprime rien du tout et le DBGrid relié à la table ne se rafraîchit pas. Comment faire?

:cry:

---

Tu es allé voir les tutoriels sur DBExpress ou fait une recherche sur le forum ?

Vu que tu utilises un DbNavigator et un DbGrid, je pense que tu as du les connecter à un ClientDataSet (Ne connaissant pas ton logiciel je me base sur un schéma classique d'utilisation de DbExpress), si tu modifies la base de données, normalement tu dois aussi penser à rafraichir ce dernier pour que cela se répercute sur ton affichage.