date s'enregistre en nombre malgré le StrToDate!?

Version imprimable

bonsoir
Dans une application je me sert d'un bouton pour faire la mise à jour des champs d'une base de données access,le PROBLEME est dans la donnée D_retour_IDS qui est de type Date/heure(dans access). la valeur du champs est prise d'un TEdit.
Lorsque j'affiche les champs de l'enregistrement je m'aperçie que la date s'enregistre sous forme d'un nombre( 72512....)
j'ai essayé avec la fonction StrToDate en incluant DateUtils.hpp mais le probleme persiste!!
Voici le code du bouton:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 void __fastcall Tfrmum::Btok2Click(TObject *Sender) { ADOConnection1->Open(); ADOTable1->Open(); ADOQuery2->SQL->Clear(); ADOQuery2->SQL->Add("update Mutations"); ADOQuery2->SQL->Add("set D_retour_IDS=" +Edit3->Text+",Avis_IDS=" +QuotedStr(ComboBox2->Text)+ " where Matricule=" +StrToInt(Edit_matricule->Text)); ADOQuery2->Prepared; ADOQuery2->ExecSQL(); Btok2->Enabled=false; }
comment faire pour avoir le format date???
Merci pour tt renseignement

19/07/2010, 09h51
getz85
Bonjour nezhaaem!

Personnellement pour enregistrer une date dans ma base de données, j'utilise la méthode FormatString comme ceci :
Code:

1 2 Edit_matricule->Text.FormatString("dd/mm/yyyy")
Tu peux bien sur modifier le format de la date selon ta base.
19/07/2010, 10h40
nezhaaem

bonjour,
merci pour ton aide
j'ai fait ceci mais un message d'erreur me dit que FormatString n'est pas un membre de AnsiString.
en cherchant dans l'aide j'ai trouvé que c'est une propriété de TDateTime.
j'ai alors fait la conversion :
StrToDate(Edit3->Text).FormatString("dd/mm/yyyy")
MAIS ça donne cette fois : 30/12/1899 00:01:43

LA QUESTION: comment faire pour declarer le contenu d'un Edit comme Date??

j'espere que je ne raconte pas n'importe quoi!
Merci encore

Hello,

Une pratique plus sympathique consiste à utiliser dans paramètres dans les requètes:

Code:

1
2
3
4
5
6
7
8
9
10
11
ADOConnection1->Open();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("update Mutations");
ADOQuery2->SQL->Add("set D_retour_IDS=:PARAM_D_RETOUR_IDS, Avis_IDS=:PARAM_AVIS_IDS where Matricule=:PARAM_MATRICULE");
ADOQuery2->Prepare();  // <------ Et pas ->Prepared;  
 
ADOQuery2->ParamByName("PARAM_D_RETOUR_IDS")->AsDateTime = TDateTime(Edit3->Text, TDateTime::Date);
ADOQuery2->ParamByName("PARAM_AVIS_IDS")->AsString = ComboBox2->Text;
ADOQuery2->ParamByName("PARAM_MATRICULE")->AsInteger = StrToInt(Edit_matricule->Text);
 
ADOQuery2->ExecSQL();

Merciiiiiiiiiiiiiiiiiiiiiiiiii totoche67
j'ai resolu le probleme avec de petites modification de ton code(difference de version!?)
voilà le code qui fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall Tfrmum::Btok2Click(TObject *Sender)
{
ADOConnection1->Open();
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("update Mutations");
ADOQuery2->SQL->Add("set D_retour_IDS=:PARAM_D_RETOUR_IDS, Avis_IDS=:PARAM_AVIS_IDS where Matricule=:PARAM_MATRICULE");
ADOQuery2->Prepared;
 
ADOQuery2->Parameters->ParamByName("PARAM_D_RETOUR_IDS")->Value= TDateTime(Edit3->Text, TDateTime::Date);
ADOQuery2->Parameters->ParamByName("PARAM_AVIS_IDS")->Value= ComboBox2->Text;
ADOQuery2->Parameters->ParamByName("PARAM_MATRICULE")->Value= StrToInt(Edit_matricule->Text);
 
ADOQuery2->ExecSQL();
Btok2->Enabled=false;
}

encore merci
à tous :D

19/07/2010, 13h34
totoche76

Citation:

j'ai resolu le probleme avec de petites modification de ton code(difference de version!?)

Ah ben ouaih, j'utilise des TQuery, pas des TADOQuery...
J'avais pas fait gaffe que Prepare() n'existait pas dans TADOQuery... Donc c'est

Code:

ADOQuery2->Prepared = true;