Discussion :

[Nzs26]

Bonjour,

J'utilise actuellement un composant TDatimePickerdont la propriété Kind est sur Time. Je souhaite intégrer la valeur de ce composant dans ma base de données, le champ d'accueil étant en format smalldate time.

Je procède ainsi :

Code :

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

 timetostr(self.TimepickerReception.Time)

J'ai alors un message qui m'indique que le projet a déclanché une classe d'exception EDATABASERROR sur le paramètre '53:21' qui correspond à l'heure tronqué de mon datetime picker ( 14:53:21).

J'aurai pu croire que la conversion était mal réalisée, or, j'effectue le même procédé pour insérer une date dans ma base de donnée :

Code :

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

datetostr(self.datepickerRech.date)

Est-ce que le problème vient de la base de donnée ( champ de réception ) ou à votre avis de mon application ( conversion ?) ?

Merci par avance de votre participation

Nzs

[DashRendar]

Pourquoi est-ce que tu convertis ton type date en string ? Si dans ta Table le champ que tu veux remplir est de type date, il risque de ne pas aimer une chaine de caractères

Enfin bon c'est qu'une remarque hein, jme gourre ptet mais c'est ce qui m'a sauté aux yeux en voyant ton code.

(EDIT : oh ptin j'avais pas vu ton pseudo XD jte dis pas qui je suis mais on se connait )

[qi130]

Est-ce que le problème vient de la base de donnée ?

Evidemment, d'où le libellé de l'exception EDATABASEERROR ...

Quel SGBD utilises-tu ?
Quels composants d'accès ?

[Nzs26]

Et oui, j'ai mes galons en MCD mais pas en delphi

Alors je convertit en chaîne toutes mes requêtes sql car c'est une fonction qui les exécutes et cette dernière ne gère donc que les chaîne de caractères.

Donc pour les composants, je passe par l'ensemble : TSqlQuery, TDataSetProvider, TClientDataSet, TDataSource,

Mais j'insère mes dates, entiers et floats par l'intermédiaire de ma requête sql convertis en string et je n'ai aucun problème de ce côté là ...

Sinon le SGBD utilisé est SQL Server Entreprise Manager V 8.0 voila !

[ShaiLeTroll]

Transmets-lui la Date via

Code :

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

FormatDateTime('HH:NN', TimePickerReception.Time)

mais c'est surprenant, tu devrais consulter la Doc de SQL Server au sujet des fonctions encodage des Dates dans le SQL (en oracle c'est nécessaire par exemple)

[Nzs26]

Bonjour,

Alors ShaiLeTroll j'ai suivis tes conseils et effectivement, je peux ainsi insérer mon heure dans ma base de données, je me suis rendue compte par la même occassion qu'il fallait que je mette des guillemets avant ma chaîne pour que la date ne reste pas fixée à 01/01/1900 :

Ancien code d'insertion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
strquery := 'insert into PROCESS_LABO_MP_TARRIVEE '
                                   +'( date, heure, datefab, Numlot, Residu, Qterecep, Id_CTRLMP , Id_MAGACUVE, Operateur) ' 
                                   +'values '
                                   +'( ' + datetostr(self.datepickerRech.Date) + ', '
                                   + FormatDateTime('HH:NN', self.timepickerReception.Time) + ''', '
                                   + datetostr(self.datepickerFab.Date) + ', '
                                   + '''' + self.zsNumlot.Text + ''', '
                                   + self.zsIdResidu.Text + ', '
                                   + self.zsQte.Text + ', '
                                   + self.zsIdCtrlMp.Text + ', '
                                   + self.zsIdMaga.Text + ', '
                                   + '''' + self.zsOperatr.Text + ''')';
                        _frmData.prRequete(self.cdsInsert, self.sqlInsert, strQuery, 'e');

Nouveau code d'insertion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
strquery := 'insert into PROCESS_LABO_MP_TARRIVEE '
                                   +'( date, heure, datefab, Numlot, Residu, Qterecep, Id_CTRLMP , Id_MAGACUVE, Operateur) ' 
                                   +'values '
                                   +'( ''' + datetostr(self.datepickerRech.Date) + ''', '
                                   + '''' + FormatDateTime('HH:NN', self.timepickerReception.Time) + ''', '
                                   + ''''+ datetostr(self.datepickerFab.Date) + ''', '
                                   + '''' + self.zsNumlot.Text + ''', '
                                   + self.zsIdResidu.Text + ', '
                                   + self.zsQte.Text + ', '
                                   + self.zsIdCtrlMp.Text + ', '
                                   + self.zsIdMaga.Text + ', '
                                   + '''' + self.zsOperatr.Text + ''')';
                        _frmData.prRequete(self.cdsInsert, self.sqlInsert, strQuery, 'e');

Alors pour l'annecdote, la date est stockée ainsi dans la base de donnée : jj/mm/aaaa et l'heure ainsi : jj/mm/aaaa hh:mm:ss ( la date restant fixée à 01/01/1900) alors que mes deux champs sont en smalldatetime, ma précision dans ma convertion HH:NN aurait du régler ce léger 'soucis' mais apparemment non, si quelqu'un avait des informations là dessus, je suis preneuse !

En tous les cas, merci pour la rapidité de réponse et la solution apportée !

NZs