Convertir Date sous Delphi vers Date sous MySQL

Version imprimable

J'ai regardé un peu mais j'ai rien trouvé de bien précis me concernant.

En effet, je crée des données avec des dates. ( format Date sous MySQL)

Et je dois mettre dans mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Date1:= StrToDate(date1.text); Date2:= StrToDate(date2.text); WITH DataModule1.MyQMC DO BEGIN SQL.Clear; SQL.Add('INSERT INTO ID_MC_D'); SQL.Add('(ID_Engin_FK6,ID_Gamme_FK1,Depot_Titulaire_FK1,Numero_FI,Km_Defaut,Date_Defaut,Date_Sortie,Libelle_Origine,Libelle_Cause,Libelle_Solution,Module_N6_FK1)'); SQL.Add(format('values(''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'')',[EnginPrDefaut_ComboBox.Text,GammeprDefaut_ComboBox.Text,Depot2_ComboBox.Text,NumFI_Edit.Text,KmDefaut_Edit.Text,Date1,Date2,LibelleOrigine_Edit.Text,LibelleCause_Edit.Text,LibelleSolution_Edit.Text,MN6_Edit.Text])); Execute; END;
Mas je ne sais pas si c'est bon

en gros l'utlisateur doit entre mm/dd/yyyy ....

Quand j'ai mis juste Date1_edit.text et date2_edit.text dans le VALUEs, il ne les prend pas en consideration.

Dans le cas ce idessus , cela ne marche pas du tout, car je ne sais pas quoi mettre comme type pour les variables Date1 et Date2.

POuvez vous m'aider,???

20/07/2006, 17h38
Rayek

Le format de date sous MySQL est : YYYY-MM-DD

Donc l'utilisateur doit taper YYYY-MM-DD

ou bien je dois le faire par prog

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Date1,Date2 : DateTime;

Date1:= FormatdateTime('yyyy-mm-dd', StrToDate(date1_Edit.text));
Date2:= FormatdateTime('yyyy-mm-dd', StrToDate(date2_Edit.text));

WITH DataModule1.MyQMC DO
  BEGIN
    SQL.Clear;
    SQL.Add('INSERT INTO ID_MC_D');
    SQL.Add('(ID_Engin_FK6,ID_Gamme_FK1,Depot_Titulaire_FK1,Numero_FI,Km_Defaut,Date_Defaut,Date_Sortie,Libelle_Origine,Libelle_Cause,Libelle_Solution,Module_N6_FK1)');
    SQL.Add(format('values(''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'')',[EnginPrDefaut_ComboBox.Text,GammeprDefaut_ComboBox.Text,Depot2_ComboBox.Text,NumFI_Edit.Text,KmDefaut_Edit.Text,Date1,Date2,LibelleOrigine_Edit.Text,LibelleCause_Edit.Text,LibelleSolution_Edit.Text,MN6_Edit.Text]));
    Execute;
  END;

Comme ça?

PAsse par des paramètres, tu n'as pas besoin de faire la conversion c'est le composant qui s'en charge

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
WITH DataModule1.MyQMC DO
  BEGIN
    SQL.Clear;
    SQL.Add('INSERT INTO ID_MC_D');
    SQL.Add('(ID_Engin_FK6,ID_Gamme_FK1,Depot_Titulaire_FK1,Numero_FI,Km_Defaut,Date_Defaut,Date_Sortie,Libelle_Origine,Libelle_Cause,Libelle_Solution,Module_N6_FK1)');
    SQL.Add(format('values(:IDFK6, ..., :DATE1)');
  ParamCheck := True;
  ParamByName('IDFK6').Value := EnginPrDefaut_ComboBox.Text;
  ...
  ParamByName('DATE1').Value := Date1;
  ...
    Execute;
  END;

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
procedure TForm1.EnregFiche(Sender: TObject);
var
Date1,Date2 : DateTime;
begin
 
Date1 := StrToDate(DateDefaut_Edit.Text);
Date2 := StrToDate(DateSortie_Edit.Text);
 
 
  WITH DataModule1.MyQMC DO
  BEGIN
    SQL.Clear;
    SQL.Add('INSERT INTO ID_MC_D');
    SQL.Add('(ID_Engin_FK6,ID_Gamme_FK1,Depot_Titulaire_FK1,Numero_FI,Km_Defaut,Date_Defaut,Date_Sortie,Libelle_Origine,Libelle_Cause,Libelle_Solution,Module_N6_FK1)');
    SQL.Add(format('values(:ID_Engin_FK6,:ID_Gamme_FK1,:Depot_Titulaire_FK1,:Numero_FI,:Km_Defaut,:Date_Defaut,:Date_Sortie,:Libelle_Origine,:Libelle_Cause,:Libelle_Solution,:Module_N6_FK1)'));
    ParamCheck := True;
    ParamByName('ID_Engin_FK6').Value := EnginPrDefaut_ComboBox.Text;
    ParamByName('ID_Gamme_FK1').Value := GammeprDefaut_ComboBox.Text;
    ParamByName('Depot_Titulaire_FK1').Value := Depot2_ComboBox.Text;
    ParamByName('Numero_FI').Value := NumFI_Edit.Text;
    ParamByName('Km_Defaut').Value := KmDefaut_Edit.Text;
    ParamByName('Date_Defaut').Value := Date1;
    ParamByName('Date_Sortie').Value := Date2;
    ParamByName('Libelle_Origine').Value := LibelleOrigine_Edit.Text;
    ParamByName('Libelle_Cause').Value := LibelleCause_Edit.Text;
    ParamByName('Libelle_Solution').Value := LibelleSolution_Edit.Text;
    ParamByName('Module_N6_FK1').Value := MN6_Edit.Text;
    Execute;
  END;
  Beep;
  ShowMessage('Enregistrement réussi');
 
end;

Il semble y avoir une erreur au niveau de values (pb d'arguments visiblement)

par contre Date en format DateTime dans la VAR , n'est pas accepté...

Essai comme ca :

Code:

1
2
3
 
    ParamByName('Date_Defaut').Value := FormatDateTime('YYYY-MM-DD',Date1);
    ParamByName('Date_Sortie').Value := FormatDateTime('YYYY-MM-DD',Date2);

21/07/2006, 09h55
forzaxelah
Ok mais Date1 et et Date2 correspondent directement aux edits?

genre:
Code:

1 2 Date1 := StrToDate(DateDefaut_Edit.Text); Date2 := StrToDate(DateSortie_Edit.Text);
?????

avec:

Code:

Date1,Date: string ?????
21/07/2006, 10h17
Rayek

Tu convertis bien tes edit en datetime (voir ton code)
Donc après il faut formatter la date pour quelle soit compatible avec MySQL.

Sinon au lieu d'utiliser des edit pour tes dates, ca serait pas mieux d'utiliser des datetimepicker ?
21/07/2006, 10h37
forzaxelah

tu sais je me suis mis dans les dates hier, mais une chose est sûr, il n'accepte pas le TDateTime que j'ai mis dans le VAR....
21/07/2006, 10h54
Rayek
Ca vient peut être que tes dates des edits sont fausses ou mal ecrite.

Utilise les datetimepicker c'est plus simple après il te restera plus qu'à ecrire
Code:

1 2 3 ParamByName('Date_Defaut').Value := FormatDateTime('YYYY-MM-DD',DateTimePicker1.Date); ParamByName('Date_Sortie').Value := FormatDateTime('YYYY-MM-DD',DateTimePicker2.Date);

Voila mon nouveau code! :-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
WITH DataModule1.MyQMC DO
  BEGIN
    SQL.Clear;
    SQL.Add('INSERT INTO ID_MC_D');
    SQL.Add('(ID_Engin_FK6,ID_Gamme_FK1,Depot_Titulaire_FK1,Numero_FI,Km_Defaut,Date_Defaut,Date_Sortie,Libelle_Origine,Libelle_Cause,Libelle_Solution,Module_N6_FK1)');
    SQL.Add(format('values(:ID_Engin_FK6,:ID_Gamme_FK1,:Depot_Titulaire_FK1,:Numero_FI,:Km_Defaut,:Date_Defaut,:Date_Sortie,:Libelle_Origine,:Libelle_Cause,:Libelle_Solution,:Module_N6_FK1)'));
    ParamCheck := True;
    ParamByName('ID_Engin_FK6').Value := EnginPrDefaut_ComboBox.Text;
    ParamByName('ID_Gamme_FK1').Value := GammeprDefaut_ComboBox.Text;
    ParamByName('Depot_Titulaire_FK1').Value := Depot2_ComboBox.Text;
    ParamByName('Numero_FI').Value := NumFI_Edit.Text;
    ParamByName('Km_Defaut').Value := KmDefaut_Edit.Text;
    ParamByName('Date_Defaut').Value := FormatDateTime('YYYY-MM-DD',DateTimePicker1.Date);
    ParamByName('Date_Sortie').Value := FormatDateTime('YYYY-MM-DD',DateTimePicker2.Date);
    ParamByName('Libelle_Origine').Value := LibelleOrigine_Edit.Text;
    ParamByName('Libelle_Cause').Value := LibelleCause_Edit.Text;
    ParamByName('Libelle_Solution').Value := LibelleSolution_Edit.Text;
    ParamByName('Module_N6_FK1').Value := MN6_Edit.Text;
    Execute;
  END;

J'ai une erreur encore au niveau des quotes je pense dans le Values c'est du type :
"[Erreur] Unit1.pas(3548): Aucune version surchargée de 'Format' ne peut être appelée avec ces arguments"

Et là (comme tjs) je ne comprend pas j'ai bien relu la ligne, mais je trouve pas d'erreurs...

21/07/2006, 12h07
Rayek

au lieu de DateTimePicker1.Date mets DateTimePicker1.DateTime et fait pareil avec l'autre.
21/07/2006, 13h06
forzaxelah

merci bcp