Discussion :

[lotfi.lahcene]

Bonjour à tous (ou Bonsoir) "cela dépend du moment ou ce post sera lu...."

Delphi Tokyo en mode FMX
SQLite

J'ai un problème avec les dates sur une base de données SQLite lorsque j'ajout un enregistrement soit avec une TuniTable ou avec Tuniquery (composant UNIDAC) et composant Tdateedit lors du post la date enregistré sur la base de donnée n'est pas celle sélectionnée dans le composant mais une date très lointaine du genre (01/07/1896) ou (01/07/1970) et lorsque je jette un coup d'œil dans la table la date est genre 00/00/0000...meme chose lorsque je fait une modification (tunitable.edit) ou (update Table set ....)

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 datamodule3 do begin
    if not( Ver_ABM.State in [dsInsert,dsedit]) then begin
 
      if abm_r.State in [dsInsert] then begin
           abm.close;
           abm.SQL.Clear;
           if (date >= strtodate(dateedit1.text)) and (date <=strtodate(dateedit2.text)) then begin
             va:=true;
           end else begin
               va:=false ;
               end;
           abm.SQL.Add('BEGIN TRANSACTION; insert into abonnement(dated_abm,datef_abm,dure_abm,prix_abm,paiement_abm,tarification_abm,validite_abm,id_ab,rest_abm,remise_abm,prix_tarif_abm) ' );
           abm.SQL.Add( 'values('+FORMATDATETIME('yyyy-mm-dd',strtodate(dateedit1.text))+','+FORMATDATETIME('yyyy-mm-dd',strtodate(dateedit2.text))+','+quotedstr(comboedit1.Text)+','+quotedstr('0')+','+quotedstr('False')+','+quotedstr(ComboBox2.Items.Text)+','+va.ToString+','+quotedstr(ab.FieldByName('id_ab').asString)+','+quotedstr('0')+','+quotedstr(edit3.Text)+','+quotedstr(label25.Text)+'); commit;');
           abm.Execute;
 
      //   abm_r.Cancel;
 
 
      end;

Dans l'attente d'une aide de votre part.... cordialement .

[Paul TOTH]

ton code n'est pas bon

Code :

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

1
2
3
4
 
  ShowMessage('values('+FORMATDATETIME('yyyy-mm-dd',strtodate(dateedit1.text)) + ')');
 
  ShowMessage('values('''+FORMATDATETIME('yyyy-mm-dd',strtodate(dateedit1.text)) + ''')');

[SergioMaster]

Bonjour,
si vous utilisiez une requête paramétrée vous auriez beaucoup moins de problèmes et d'erreurs de syntaxe.
Bien sûr cela oblige à un peu plus de code, je ne connais pas toutes les subtilités d'Unidac donc il y a certainement quelques erreurs qui trainent

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
 
with datamodule3 do begin
    if (Ver_ABM.State in [dsInsert,dsedit]) then begin
abm.Close;
abm.SQL.Clear;
if abm_r.State in [dsInsert] then
begin
abm.SQL.Add('insert into abonnement(dated_abm,datef_abm,dure_abm,prix_abm,paiement_abm,tarification_abm,validite_abm,id_ab,rest_abm,remise_abm,prix_tarif_abm) ' );
abm.SQL.Add( ':date1,:date2,:combo1,0,'+quotedstr('False')+',:combo2,:va,:idab,0,:ed3,:lbl25');
abm.Prepare;
abm.ParamByName('date1').asDate:=dateedit1.Date;
abm.ParamByName('date2').asDate:=dateedit2.Date;
abm.ParamByName('combo1').asString:=ComboEdit1.text;
abm.ParamByName('combo2').asString:=ComboBox2.Items.text; // là je suis surpris !
abm.ParamByName('va').asFloat:=va; // ou asinteger ?
abm.ParambyName('idab').asString:=ab.FieldByName('id_ab').asString;
abm.parambyname('ed3').asString:=edit3.text;
abm.parambyname('lbl25').asString:=label25.text;
end 
else begin 
 // préparation requête Update selon le même principe (ne pas oublier la clause Where)  
end;
Connexion.StartTransaction;
Abm.Execute;
Connexion.Commit;
end; // if [dsinsert,dsEdit]

de même mettre les SQL en constante sera peut-être plus lisible
les strtodate et formatage me font tiquer surtout qu'il y a la propriété date pour un TDateEdit
bref il y a beaucoup à améliorer sans même parler des Livebindings

[lotfi.lahcene]

Merci à vous tous pour l'aide si précieuse que vous apportez...
j'ai exploré toutes vos suggestions mais entre temps j'ai du fouiner, googler et appeler a droite et a gauche...

la solution était dans l'utilisation du "QUOTEDSTR" ....

ce qui a doné un code qui ressemble à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
code...
code...
..
..
 if (date >= strtodate(dateedit1.text)) and (date <=strtodate(dateedit2.text)) then begin
             va:=true;
           end else begin
               va:=false ;
               end;
           abm.SQL.Add('BEGIN TRANSACTION; insert into abonnement(dated_abm,datef_abm,dure_abm,prix_abm,paiement_abm,tarification_abm,validite_abm,id_ab,rest_abm,remise_abm,prix_tarif_abm) ' );
           abm.SQL.Add( 'values('+quotedstr(FORMATDATETIME('yyyy-mm-dd',strtodate(dateedit1.text)))+','+quotedstr(FORMATDATETIME('yyyy-mm-dd',strtodate(dateedit2.text)))+','+quotedstr(comboedit1.Text)+','+quotedstr('0')+','+quotedstr('False')+','+quotedstr(ComboBox2.Items.Text)+','+va.ToString+','+quotedstr(ab.FieldByName('id_ab').asString)+','+quotedstr('0')+','+quotedstr(edit3.Text)+','+quotedstr(label25.Text)+'); commit;');
           abm.Execute;
...suite du code.

mais ceci dit et fait je trouve que l'utilisation des requêtes paramétrées est une meilleur structuration du code...
Merci à tous