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 |
Partager