Discussion :

[nezhaaem]

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 :

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

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

[getz85]

Bonjour nezhaaem!

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

Code :

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

1
2
 
Edit_matricule->Text.FormatString("dd/mm/yyyy")

Tu peux bien sur modifier le format de la date selon ta base.

[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

[totoche76]

Hello,

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

Code :

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

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();

[nezhaaem]

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

Code :

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

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

[totoche76]

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 :

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

ADOQuery2->Prepared = true;