Discussion :

[forzaxelah]

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]

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

[forzaxelah]

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]

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]

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]

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