Discussion :

[jakouz]

bonjour,

avez vous déjà rencontré cette erreur -> EIBClientError 'Update Failed'
cela se produit lors d'une instruction Post d'un composant IBQuery relié à un IBUpdateSQL

Code :

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

1
2
3
4
5
6
 
    with qyListe do
    begin
      Edit;
      FieldByName('DPT_QTEDPT1').AsFloat := ed5.Value;
      Post; //<- plantage ici

[Cl@udius]

Salut

Quelle instruction SQL a été définie pour la propriété ModifySQL du composant TIBUpdateSQL ?

@+

[jakouz]

Code sql :

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
34
35
36
37
38
39
40
41
update CSHDEPOT
set
  DEV_LIB = :DEV_LIB,
  CAL_DTACTIVITE = :CAL_DTACTIVITE,
  DPT_MTCOMPTE = :DPT_MTCOMPTE,
  DPT_NOSACHET = :DPT_NOSACHET,
  DEV_TXCHANGE = :DEV_TXCHANGE,
  DPT_MTDEPOSE = :DPT_MTDEPOSE,
  DPT_NO = :DPT_NO,
  DPT_ACTIF = :DPT_ACTIF,
  DPT_MTPTCAISSE1 = :DPT_MTPTCAISSE1,
  DPT_LIBENCAISEXCEP = :DPT_LIBENCAISEXCEP,
  DPT_MTENCAISEXCEP = :DPT_MTENCAISEXCEP,
  DPT_ECART = :DPT_ECART,
  DPT_MTDPT1 = :DPT_MTDPT1,
  DPT_MTDPT2 = :DPT_MTDPT2,
  DPT_MTDPT3 = :DPT_MTDPT3,
  DPT_MTDPT4 = :DPT_MTDPT4,
  DPT_MTDPT5 = :DPT_MTDPT5,
  DPT_MTDPT6 = :DPT_MTDPT6,
  DPT_MTDPT7 = :DPT_MTDPT7,
  DPT_MTDPT8 = :DPT_MTDPT8,
  DPT_MTDPT9 = :DPT_MTDPT9,
  DPT_QTEDPT1 = :DPT_QTEDPT1,
  DPT_QTEDPT2 = :DPT_QTEDPT2,
  DPT_QTEDPT3 = :DPT_QTEDPT3,
  DPT_QTEDPT4 = :DPT_QTEDPT4,
  DPT_QTEDPT5 = :DPT_QTEDPT5,
  DPT_QTEDPT6 = :DPT_QTEDPT6,
  DPT_QTEDPT7 = :DPT_QTEDPT7,
  DPT_QTEDPT8 = :DPT_QTEDPT8,
  DPT_QTEDPT9 = :DPT_QTEDPT9,
  DPT_VFCIN = :DPT_VFCIN, 
  DPT_VFCOUT= :DPT_VFCOUT, 
  DPT_HRVALID = :DPT_HRVALID,
  UTI_LOGIN_DPT = :UTI_LOGIN_DPT,
  UTI_LOGINVALID = :UTI_LOGINVALID
where
  DEV_LIB = :OLD_DEV_LIB and
  CAL_DTACTIVITE = :OLD_CAL_DTACTIVITE and
  DPT_NO = :OLD_DPT_NO

[Cl@udius]

Bon, cette requête semble correcte.
Est-ce tous les champs de cette requête sont bien présents dans le SELECT du IBQuery ?

@+

[jakouz]

oui il me semble

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
34
35
36
37
38
39
40
41
42
43
44
45
46
Select 
   f_ifthenelse('=',ASCII_VAL(dv.DEV_COD),
   0,
   0,
   ASCII_VAL(dv.DEV_COD)),
   dp.DEV_LIB,
   CAL_DTACTIVITE,
   DPT_MTCOMPTE,
   DPT_NOSACHET,
   cast(dp.DEV_TXCHANGE as real) as DEV_TXCHANGE,
   DPT_MTDEPOSE,
   DPT_NO,
   DPT_ACTIF,
   DPT_MTPTCAISSE1,
   DPT_LIBENCAISEXCEP,
   DPT_MTENCAISEXCEP,
   (DPT_MTPTCAISSE1 - DPT_MTENCAISEXCEP) AS EXCEPT,
   DPT_ECART,
   DPT_MTDPT1,
   DPT_MTDPT2,
   DPT_MTDPT3,
   DPT_MTDPT4, 
   DPT_MTDPT5, 
   DPT_MTDPT6, 
   DPT_MTDPT7, 
   DPT_MTDPT8, 
   DPT_MTDPT9, 
   DPT_QTEDPT1, 
   DPT_QTEDPT2, 
   DPT_QTEDPT3, 
   DPT_QTEDPT4, 
   DPT_QTEDPT5, 
   DPT_QTEDPT6, 
   DPT_QTEDPT7, 
   DPT_QTEDPT8,
   DPT_QTEDPT9, 
   DPT_VFCIN, 
   DPT_VFCOUT, 
   DPT_HRVALID, 
   UTI_LOGIN_DPT, 
   UTI_LOGINVALID 
from 
   CSHDEPOT dp left join CSHDEVISEETR dv on (dp.DEV_LIB = dv.DEV_LIB and dv.DEV_ETAT = 'E') 
where CAL_DTACTIVITE = :Date
and DPT_NO = :NoDepot
order by 1

[dehorter olivier]

bonjour

si tu utilises Firebird (2.5), ce ne pourrait etre un conflit en la base et les composants utilises ?

a+
olivier