Bonjour

Je vais une requête de mise à jour en passant des paramètres via 'create parameter'
Tous mes paramètres sont bien renseignés (j'ai vérifier via un espion dans le debugger) mais lors de la mise, le champ mis à jour dans ma requête a toujours pour valeur "128".... J'ai modifié l'ordre des champs et c'est toujours parel...
Je ne sais pas plus où chercher...un peu d'aide svp

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
47
Set cmdMaj = New ADODB.Command
                Set cmdMaj.ActiveConnection = cnx.getCnx
 
                requete = "UPDATE " & cnx.getBase & ".MACHINEFL"
                requete = requete & " SET ZPLAEXE_0=?"      'Exercice iExercice
                'requete = requete & " ,ZPLADEB_0=?"         'Date debut de la tâche ActiveProject.Tasks(i).Start
                'requete = requete & " ,ZPLAFIN_0=?"         'Date de fin de la tâche ActiveProject.Tasks(i).Finish
                If pValide Then
                    requete = requete & ",ZPLAVALINT_0 = 2"
                End If
                requete = requete & " WHERE LOT_0=?"            'Lot ActiveProject.Tasks(i).Text2
                requete = requete & " AND YNUMLIG_0=?"          'N° de ligne ActiveProject.Tasks(i).Text3
                requete = requete & " AND ZPLAVALINT_0 <> 2 "
 
                With cmdMaj
                    .CommandText = requete
 
                    'Date de début
                    'Set pm = .CreateParameter("dateDebut", adDBTimeStamp, adParamInput, 20)
                    'pm.Value = Format(ActiveProject.Tasks(i).Start, "dd/mm/yyyy") 'ActiveProject.Tasks(i).Start
                    'pm.Value = ActiveProject.Tasks(i).Start 'ActiveProject.Tasks(i).Start
                    '.Parameters.Append pm
 
                    'Date de fin
                    'Set pm = .CreateParameter("dateFin", adDBTimeStamp, adParamInput, 20)
                    'pm.Value = Format(ActiveProject.Tasks(i).Finish, "dd/mm/yyyy")
                    'pm.Value = ActiveProject.Tasks(i).Finish
                    '.Parameters.Append pm
 
                    'Exercice
                    Set pm = .CreateParameter("exercice", adVarChar, adParamInput, 10)
                    pm.Value = iExercice
                    .Parameters.Append pm
 
                    'Lot
                    Set pm = .CreateParameter("lot", adVarChar, adParamInput, 15)
                    pm.Value = ActiveProject.Tasks(i).Text2
                    .Parameters.Append pm
 
                    'N° de ligne
                    Set pm = .CreateParameter("ligne", adVarChar, adParamInput, 15)
                    pm.Value = ActiveProject.Tasks(i).Text3
                    .Parameters.Append pm
                End With
 
                On Error GoTo erreurrequete
                cmdMaj.Execute iAffected, adCmdText & adExecuteNoRecords