Convertir Date sous Delphi vers Date sous MySQL

**forzaxelah** · 20/07/2006, 16h33

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 :

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

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,???

**Rayek** · 20/07/2006, 16h38

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

**forzaxelah** · 20/07/2006, 16h46

Donc l'utilisateur doit taper YYYY-MM-DD

ou bien je dois le faire par prog

Code :

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

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?

**Rayek** · 20/07/2006, 16h53

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

Code :

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

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;

**forzaxelah** · 20/07/2006, 17h09

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
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é...

**Rayek** · 21/07/2006, 08h22

Essai comme ca :

Code :

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

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

**forzaxelah** · 21/07/2006, 08h55

Ok mais Date1 et et Date2 correspondent directement aux edits?

genre:

Code :

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

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

?????

avec:

Code :

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

Date1,Date:  string  ?????

**Rayek** · 21/07/2006, 09h17

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 ?

**forzaxelah** · 21/07/2006, 09h37

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....

**Rayek** · 21/07/2006, 09h54

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 :

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

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

**forzaxelah** · 21/07/2006, 10h50

Voila mon nouveau code! :-)

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
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...

**Rayek** · 21/07/2006, 11h07

au lieu de DateTimePicker1.Date mets DateTimePicker1.DateTime et fait pareil avec l'autre.

**forzaxelah** · 21/07/2006, 12h06

merci bcp

Convertir Date sous Delphi vers Date sous MySQL

Bases de données Delphi

Discussions similaires

Partager

Partager