Discussion :

[kavinsky31]

Bonsoir,

j'ai deux requetes Insert et Update qui fonctionnent a merveille mais affiche malgré tout une erreur de violation d'accés qui ressurgit et ça fait tache pour l'utilisateur
comment faire? merci d'avance.

1ere req:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Close;
          SQL.Clear; 
           SQL.Add('INSERT INTO Depenses (debutsemaine, finsemaine, Dep)');
           SQL.Add('VALUES (=:debutsemaine1, =:finsemaine1, =:Dep)');
      Parameters.ParamByName('debutsemaine1').DataType:=ftDate;
     Parameters.ParamByName('finsemaine1').DataType:=ftDate;
      if DayOfWeek(PlannerCalendar7.Date)=1 then
    begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)+6;
          Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)+5; end
    else begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)-1;
    Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)-2;end;
           Parameters.ParamByName('Dep').Value:=MoneyEdit1.Text;
           ExecSQL;

2eme req:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
          Close;
          SQL.Clear;
          SQL.Add('UPDATE Depenses set Dep=:Dep');
          SQL.Add('where FORMAT(debutsemaine,"dd/mm/yyyy") =:debutsemaine1 and FORMAT(finsemaine,"dd/mm/yyyy") =:finsemaine1');
      Parameters.ParamByName('debutsemaine1').DataType:=ftDate;
     Parameters.ParamByName('finsemaine1').DataType:=ftDate;
      if DayOfWeek(PlannerCalendar7.Date)=1 then
    begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)+6;
          Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)+5; end
    else begin Parameters.ParamByName('debutsemaine1').Value:=StartOfTheWeek(PlannerCalendar7.date)-1;
    Parameters.ParamByName('finsemaine1').Value:=EndOfTheWeek(PlannerCalendar7.date)-2;end;
          Parameters.ParamByName('Dep').Value:=MoneyEdit1.Text;
          ExecSQL;

[SergioMaster]

Bonjour,

il me semble que c'est plus un problème de structure de table qu'autre chose mais le SQL UPDATE est faux à mon avis pas besoin d'utiliser le format

Code SQL :

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

1
2
3
 
SQL.Add('UPDATE Depenses set Dep=:Dep');
SQL.Add('where debutsemaine=:debutsemaine1 and finsemaine =:finsemaine1');

[kavinsky31]

Bonjour,

Dois-je changer Quelque chose dans la struc. table depenses? ma table contient 3 champs debutsemaine finsemaine dep!
Sinon pour l'update marche super et détrompe toi si j’enlève le format yaura pas de update carrément c dingue access je galère

[SergioMaster]

Bonjour,

Dois-je changer Quelque chose dans la struc. table depenses? ma table contient 3 champs debutsemaine finsemaine dep!

Je n'ai pas toutes les informations, mais si il n'y a qu'une seule dépense par semaine, s'il s'agit par exemple d'un carnet de dépense individuel et si on ne veut pas le détail des dépenses (en bref beaucoup de si) deux colonnes suffirait : Période (autrement écrit semaine) sous la forme aaaaww et dépense ou encore Debutsemaine,dépense avec un clé primaire sur la première colonne.
Inutile d'avoir la colonne findesemaine toujours égale à débutsemaine+7

Sinon pour l'update marche super et détrompe toi si j’enlève le format yaura pas de update carrément c dingue access je galère

Peut être parce que tu utilises value au lieu de typer, mais bon, ADO+Access c'est loin d'être, pour moi, une combinaison gagnante

Code :

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

 Parameters.ParamByName('debutsemaine1').asDate:=uneDate;