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
|
'Concaténation de l'énoncé SQL, dépendant de la présence ou non de l'enregistrement, on débute par INSERT ou UPDATE
if rsEnregistrementPresent.EOF THEN
SQL1 = "INSERT INTO Inspections ID_INSPECTEUR, ANNEE, MOIS, EXPEDITEUR_NB, EXPEDITEUR_PREVU, EXPEDITEUR_IMPREVU, EXPEDITEUR_SURTEMPS, TRANSPORTEUR_NB, TRANSPORTEUR_PREVU, TRANSPORTEUR_IMPREVU, TRANSPORTEUR_SURTEMPS, DESTINATAIRE_NB, DESTINATAIRE_PREVU, DESTINATAIRE_IMPREVU, DESTINATAIRE_SURTEMPS, PRESENTATIONS_NB, PRESENTATIONS_PREVU, PRESENTATIONS_IMPREVU, PRESENTATIONS_SURTEMPS, AVIS_NB, AVIS_PREVU, AVIS_IMPREVU, AVIS_SURTEMPS, ACTIVITES_NB, ACTIVITES_PREVU, ACTIVITES_IMPREVU, ACTIVITES_SURTEMPS, SENSIBILISATION_NB, SENSIBILISATION_PREVU, SENSIBILISATION_IMPREVU, SENSIBILISATION_SURTEMPS, HYDRO_NB, HYDRO_PREVU, HYDRO_IMPREVU, HYDRO_SURTEMPS, FUTS_NB, FUTS_PREVU, FUTS_IMPREVU, FUTS_SURTEMPS, VISUELLES_NB, VISUELLES_PREVU, VISUELLES_IMPREVU, VISUELLES_SURTEMPS, CITERNES_NB, CITERNES_PREVU, CITERNES_IMPREVU, CITERNES_SURTEMPS, WAGONS_NB, WAGONS_PREVU, WAGONS_IMPREVU, WAGONS_SURTEMPS, INTERVENTIONS_NB, INTERVENTIONS_PREVU, INTERVENTIONS_IMPREVU, INTERVENTIONS_SURTEMPS, OBSERVATEURS_NB, OBSERVATEURS_PREVU, OBSERVATEURS_IMPREVU, OBSERVATEURS_SURTEMPS, RETENUE_NB, RETENUE_PREVU, RETENUE_IMPREVU, RETENUE_SURTEMPS, DIRECTIVE_NB, DIRECTIVE_PREVU, DIRECTIVE_IMPREVU, DIRECTIVE_SURTEMPS, POURSUITE_NB, POURSUITE_PREVU, POURSUITE_IMPREVU, POURSUITE_SURTEMPS, FORMELLE_NB, FORMELLE_PREVU, FORMELLE_IMPREVU, FORMELLE_SURTEMPS, AUTODIDACTE_NB, AUTODIDACTE_PREVU, AUTODIDACTE_IMPREVU, AUTODIDACTE_SURTEMPS, TERRAIN_NB, TERRAIN_PREVU, TERRAIN_IMPREVU, TERRAIN_SURTEMPS, CONFERENCE_NB, CONFERENCE_PREVU, CONFERENCE_IMPREVU, CONFERENCE_SURTEMPS, OTTAWA_NB, OTTAWA_PREVU, OTTAWA_IMPREVU, OTTAWA_SURTEMPS, REGIONALE_NB, REGIONALE_PREVU, REGIONALE_IMPREVU, REGIONALE_SURTEMPS, CLIENTELE_NB, CLIENTELE_PREVU, CLIENTELE_IMPREVU, CLIENTELE_SURTEMPS, TACHES_NB, TACHES_PREVU, TACHES_IMPREVU, TACHES_SURTEMPS, ENTRETIEN_NB, ENTRETIEN_PREVU, ENTRETIEN_IMPREVU, ENTRETIEN_SURTEMPS, NORMES_NB, NORMES_PREVU, NORMES_IMPREVU, NORMES_SURTEMPS, INTERIMAIRE_NB, INTERIMAIRE_PREVU, INTERIMAIRE_IMPREVU, INTERIMAIRE_SURTEMPS, SPECIAUX_NB, SPECIAUX_PREVU, SPECIAUX_IMPREVU, SPECIAUX_SURTEMPS, CONGES_NB, CONGES_PREVU, CONGES_IMPREVU, CONGES_SURTEMPS, DEPLACEMENT_NB, DEPLACEMENT_PREVU, DEPLACEMENT_IMPREVU, DEPLACEMENT_SURTEMPS, AUTRES_NB, AUTRES_PREVU, AUTRES_IMPREVU, AUTRES_SURTEMPS, STOTAL_PREVU, STOTAL_IMPREVU, STOTAL_SURTEMPS, TOTAL) VALUES ("
SQL1 = SQL1 & "'"& Session("inspecteurChoisi")& "', " & "'"&Session("annee_temp") & "', " & "'" & Session("mois_temp")& "'"
FOR i=1 TO 30
'Retirer l'array(136) total mois - à rajouter parcontre.
IF NOT i = 136 THEN
IF NOT Request.Form("Text"&i) = "" THEN
SQL1 = SQL1 & ", '"& Request.Form("Text"&i)& "'"
ELSE
SQL1 = SQL1 & ", '0'"
END IF
END IF
NEXT
SQL1 = SQL1 & ";"
ELSE
SQL1 = "UPDATE Inspections SET EXPEDITEUR_NB=" & "'" & Request.Form("Text1") & "'"
m = 5
FOR i=1 TO 30
'Retirer l'array(136) total mois - à rajouter parcontre.
IF NOT m = 136 THEN
SQL1 = SQL1 & ", " & nomColonne(m)& "=" & "'" & Request.Form("Text"&i) & "'"
m = m+1
END IF
NEXT
SQL1 = SQL1 & " WHERE INSPECTEUR_ID=" & "'"& Session("inspecteurChoisi")& "'" & " AND MOIS=" & "'" & Session("annee_temp") & "'" & " AND ANNEE=" & "'" & Session("mois_temp") & "';"
END IF |
Partager