Discussion :

[Chonchon]

Bonjour
j'ai un souci pour inserer un enregistrement quand la date de fin de garantie n'est pas rempli.
voici 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
14
15
16
17
18
19
Req := 'INSERT INTO produits';
         Req := Req + (' (Code_produit,Observations,Code_Caserne,Date_Maj,code_hierarchie,Code_tei');
         Req := Req + (' ,code_etat,Code_Apsi,Num_Serie,Date_Garantie,affectation,cto,Code_TypeProduit,reseau )');
         Req := Req + (' VALUES('+QuotedStr(IntToStr(prochain_numero))+',');
         Req := Req + (''+Quotedstr(M_Obs.Text)+')');
         Req := Req + (''+IntToStr(Integer(Cb_Caserne.items.objects[Cb_Caserne.itemindex])) +',');
         Req := Req + ('' +Quotedstr(convertsqlDate(DateDuJour))+',');
         Req := Req + (''+IntToStr(Integer(Cb_Hierarchie.items.objects[Cb_Hierarchie.itemindex])) +',');
         Req := Req + (''+ quotedstr(Edt_Tei.text) +',');
         Req := Req + (''+IntToStr(Integer(CB_Etat.items.objects[CB_Etat.itemindex])) +',');
         Req := Req + ('' +QuotedStr(Edt_Apsi.Text)+','+QuotedStr(Edt_Serie.text)+',');
         if Edt_DateGarantie.Text <>  '  /  /    '
         then       Req := Req + ('' +Quotedstr(convertsqlDate(Edt_DateGarantie.Text))+',')
         else       Req := Req + ('' +''+',') ;
         Req := Req + ('' +QuotedStr(Edt_Affectation.Text)+',');
         Req := Req + ('' +QuotedStr(Edt_cto.Text)+',');
         Req := Req + (''+IntToStr(Integer(CB_ClProduit.items.objects[CB_ClProduit.itemindex])) +')');
 
         ExecuteQuery;

C'est à la ligne else que se produit l'erreur au moment de l'execution.
j'ai bien une solution faire un insert sans la date
et refaire un update sur le meme enregistrement car ca fonctionne pour une modification
partie du code en update

Code :

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

1
2
3
 if (Edt_DateGarantie.Text =  '  /  /    ') or  (Edt_DateGarantie.Text = '01/01/1900')
           then Req := Req + ',Date_garantie = null'
           else   Req := Req + ',Date_garantie =' +  Quotedstr(convertsqlDate(Edt_DateGarantie.Text));

mais je trouve cela un peu lourd

merci

[Chonchon]

j'ai resolu le problème

Code :

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

1
2
3
 if Edt_DateGarantie.Text <>  '  /  /    '
         then       Req := Req + ('' +Quotedstr(convertsqlDate(Edt_DateGarantie.Text))+',')
         else       Req := Req + ('NULL'+',') ;

[Chonchon]

la solution précédente n'est pas bonne pour insert
voici le code

Code :

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

1
2
3
 if Edt_DateGarantie.Text <>  '  /  /    '
         then       Req := Req + ('' +Quotedstr(convertsqlDate(Edt_DateGarantie.Text))+',')
         else       Req := Req + ('NULL'+',') ;