Discussion :

[wkhead]

Bonjour, j'ai un petit problème depuis quelque temps déjà et j'aimerais bien le résoudre.

Il s'agît d'un formulaire avec des champs textes. La seule chose qu'il me reste à faire, c'est de soumettre le formulaire à la BD située sur le serveur. J'ai déjà mon RecordSet et mon énoncé SQL tout bâti.

Pour l'instant, la syntaxe que j'ai est la suivante (présentement en test intense pour faire fonctionner tout ça):

Code :

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

1
2
3
 
<form name="formInspecteurs" onsubmit="<%rsEnregistrementPresent.????
%>" method="post" ID="Form1">

[Maxi-môme]

Que veux tu faire exactement, dis nous en plus !

[wkhead]

ok, à la demande générale;

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
 
if rsEnregistrementPresent.EOF THEN
  if NOT Request.Form("TEXT132") = 0 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 132
    SQL1 = SQL1 & ", "& Request.Form("Text"&i)
   NEXT
   SQL1 = SQL1 & ");"
  END IF
 ELSE
  SQL1 = "UPDATE Inspections SET EXPEDITEUR_NB=" & Request.Form("Text1")
  m = 5
  FOR i=2 TO 133
   SQL1 = SQL1 & ", " & nomColonne(m)& "=" & Request.Form("Text"&i)
   m = m+1
  NEXT  
  SQL1 = SQL1 & " WHERE INSPECTEUR_ID=" & Session("inspecteurChoisi") & ", " & " AND MOIS=" & Session("annee_temp") & ", " & " AND ANNEE=" & Session("mois_temp") 
  SQL1 = SQL1 & ");"
 END IF

c'est ce qui rempli ma requête.

Il y a aussi l'initialisation du RS fait en haut de la page suivit du code ci-haut qui est lui-même suivi de

Code :

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

1
2
 
<form name="formInspecteurs" onsubmit="<%conn.Execute(SQL)%>" method="post" ID="Form1">

Je crois que c'est pas mal tous les détails que j'utilise pour la connexion.

Pour me répéter, j'aimerais tout simplement être capable de, lors du OnSubmit, rendre cet énoné au serveur.

[Maxi-môme]

ça me semble bizarre:

Code :

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

1
2
 
<form name="formInspecteurs" onsubmit="<%conn.Execute(SQL)%>" method="post" ID="Form1">

ça serait pas plutot

Code :

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

1
2
<form name="formInspecteurs" onsubmit="<%conn.Execute(SQL1)%>" method="post" ID="Form1">

[wkhead]

ouais maxi! T'as tout à fait raison, mais ce n'est pas là le plus important.. j'étais en test au moment du copy-paste. J'ai dû copier le mauvais essais

c'est maintenant remplacé par une page ASP dans laquelle je fais la mise à jour de la BD...

Code :

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

1
2
 
<form name="formInspecteurs" method="post" action="pages/pousser.asp" ID="Form1">

Et la page appellée :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
 
<html>
<head>
<title>Index</title>
<script language="javascript">
function centrer(){
largeur = screen.availWidth - 400; 
hauteur = screen.availHeight - 200; 
pointx = (largeur) / 2; 
pointy = (hauteur) / 2;  
window.moveTo(pointx,pointy); 
}
</script>
</head>
<body>
<%
 Dim conn    'objet Connexion DB
 Dim rsEnregistrementPresent 'rs = RecordSet
 Dim rsAjouter   'rs = RecordSet
 Dim SQL1    'Contient la requête SQL
 Dim SQL     'Contient la requête SQL
 Dim msg     'Message à l'utilisateur afin de confirmer l'entrée de données.
 Dim nomColonne(145) 'Tableau contenant les noms des colonnes
 nomColonne(0) = "ID_RAPPORT"
 nomColonne(1) = "ID_INSPECTEUR"
 nomColonne(2) = "ANNEE"
 nomColonne(3) = "MOIS"
[...]
 nomColonne(130) = "AUTRES_IMPREVU"
 nomColonne(131) = "AUTRES_SURTEMPS"
 nomColonne(132) = "STOTAL_PREVU"
 nomColonne(133) = "STOTAL_IMPREVU"
 nomColonne(134) = "STOTAL_SURTEMPS"
 nomColonne(135) = "TOTAL"
 nomColonne(136) = "DETAILS_MOIS"
 nomColonne(137) = "ACTIF"
 '#############  Connexion BD  ############
 Set conn = Server.CreateObject("ADODB.Connection")
 conn.Provider = "Microsoft.Jet.OLEDB.4.0"
 set rsInspecteurs = Server.CreateObject("ADODB.RecordSet")
 conn.ConnectionString ="Persist Security Info=False;Data Source=D:\wwwdatabases\tableauNS.mdb"
 conn.Open 
 '############# /Connexion BD #############
 
'RS déterminant si l'inspecteur a soumis ou non son rapport pour le mois et l'année actif
 SQL = "SELECT * FROM Inspections WHERE ID_INSPECTEUR = "&Session("inspecteurChoisi")&" AND MOIS="&Session("mois_temp")&" AND ANNEE="&Session("annee_temp")&""
 Set rsEnregistrementPresent = Server.CreateObject("ADODB.Recordset") 
 rsEnregistrementPresent.Source= SQL
 rsEnregistrementPresent.ActiveConnection = conn
 rsEnregistrementPresent.CursorType = 3
 rsEnregistrementPresent.LockType = 3
 rsEnregistrementPresent.Open
 
 SQL = "SELECT * FROM Inspections"
 Set rsAjouter = Server.CreateObject("ADODB.Recordset") 
 rsAjouter.Source= SQL
 rsAjouter.ActiveConnection = conn
 rsAjouter.CursorType = 3
 rsAjouter.LockType = 3
 rsAjouter.Open
 rsAjouter.AddNew
 
 
'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, [...]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 ID_INSPECTEUR=" & Session("inspecteurChoisi") & " AND MOIS=" & Session("annee_temp") & " AND ANNEE=" & Session("mois_temp") & ";"
 END IF
 
 Response.Write(SQL1)
 conn.Execute SQL1
 SQL1 = "commit"
 conn.Execute SQL1
 
 
 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=31 TO 60
    '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 SENSIBILISATION_SURTEMPS=" & Request.Form("Text31")
  m = 36
  FOR i=32 TO 60
   'Retirer l'array(136) total mois - à rajouter parcontre.
   IF NOT i = 133 THEN
    SQL1 = SQL1 & ", " & nomColonne(m)& "=" & Request.Form("Text"&i)
    m = m+1
   END IF
  NEXT  
  SQL1 = SQL1 & " WHERE ID_INSPECTEUR=" & Session("inspecteurChoisi") & " AND MOIS=" & Session("annee_temp") & " AND ANNEE=" & Session("mois_temp") & ";"
 END IF
 
 Response.Write(SQL1)
 conn.Execute(SQL1)
 'SQL1 = "commit"
 'conn.Execute(SQL1)
 
 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=61 TO 90
    '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 RETENUE_PREVU=" & Request.Form("Text61")
  m = 66
  FOR i=62 TO 90
   'Retirer l'array(136) total mois - à rajouter parcontre.
   IF NOT i = 133 THEN
    SQL1 = SQL1 & ", " & nomColonne(m)& "=" & Request.Form("Text"&i)
    m = m+1
   END IF
  NEXT  
  SQL1 = SQL1 & " WHERE ID_INSPECTEUR=" & Session("inspecteurChoisi") & " AND MOIS=" & Session("annee_temp") & " AND ANNEE=" & Session("mois_temp") & ";"
 END IF
 
 Response.Write(SQL1)
 conn.Execute(SQL1)
 'SQL1 = "commit"
 'conn.Execute(SQL1)
 
 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=91 TO 133
    '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 OTTAWA_SURTEMPS=" & Request.Form("Text91")
  m = 96
  FOR i=92 TO 133
   'Retirer l'array(136) total mois - à rajouter parcontre.
   IF NOT i = 133 THEN
    SQL1 = SQL1 & ", " & nomColonne(m)& "=" & Request.Form("Text"&i)
    m = m+1
   END IF
  NEXT  
  SQL1 = SQL1 & " WHERE ID_INSPECTEUR=" & Session("inspecteurChoisi") & " AND MOIS=" & Session("annee_temp") & " AND ANNEE=" & Session("mois_temp") & ";"
 END IF
 
 
 Response.Write(SQL1)
 conn.Execute(SQL1)
 SQL1 = "commit"
 conn.Execute(SQL1)
 
 rsAjouter.Close
 rsEnregistrementPresent.Close
 conn.Close
 'Response.Write(compteur)
 'Reset server objects
 Set conn = Nothing
 Set rsEnregistrementPresent = Nothing
 Set rsAjouter = Nothing
 
%>
</body>
</html>

NB: je suis en test sur le UPDATE présentement. Il a fallu que je tronque les requêtes par 30 au lieu de faire une seule mise à jour de 132 champs.

[Immobilis]

132 Champs!!
J'espère que ton formulaire les garde en mémoire en cas d'erreur, sinon, l'utilisateur va te maudire!!
Plus simplement
Page1.HTML

Code :

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

1
2
3
4
5
 
<form name='form' action='page2.asp' method='post'>
<input type='text' name='txt'>
<input type='submit' name='submit' value='submit'>
</form>

Page2.ASP

Code :

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

1
2
3
 
conn.commandtext = "INSERT INTO MATABLE (MONCHAMP) VALUES ('" & request.form("txt") & "')"
conn.execute

C'est tout.
http://www.w3schools.com/sql/sql_insert.asp
http://www.w3schools.com/ADO/met_rs_addnew.asp
A+

[wkhead]

132 Champs!!
J'espère que ton formulaire les garde en mémoire en cas d'erreur, sinon, l'utilisateur va te maudire!!
Plus simplement
Page1.HTML

Code :

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

1
2
3
4
5
 
<form name='form' action='page2.asp' method='post'>
<input type='text' name='txt'>
<input type='submit' name='submit' value='submit'>
</form>

Page2.ASP

Code :

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

1
2
3
 
conn.commandtext = "INSERT INTO MATABLE (MONCHAMP) VALUES ('" & request.form("txt") & "')"
conn.execute

C'est tout.
http://www.w3schools.com/sql/sql_insert.asp
http://www.w3schools.com/ADO/met_rs_addnew.asp
A+

Je te remercie infiniment immo. Toutefois, pour une raison que j'ignore, le server a des problèmes avec le .execute.. les UPDATE ne fonctionnent pas.

Ce matin, j'ai tout de même réussi à complété mon problème.. J'ai dû tout passer dans une deuxième page, page dans laquelle
rsEnregistrementPresent("TOTAL").Value = Request.Form("Text132")
était roi.

J'ai fait fonctionner le tout en deux temps trois mouvements

Merci encore!

ps: si vous êtes curieux de connaître mon code, demandez-le

Altération: Oui immo, ne t'en fait pas! Pour ce faire, j'ai tout simplement remplacé les boutons de type 'submit' par des boutons de type 'button' afin d'éviter le rafraîchissement bête même lorsque la validation ne passe pas.