Discussion :

[pmboutteau]

bonjour voilà mon problème.

J'ai un formulaire avec 5 champs à remplir par exemple, je voudrais, dans le cas où l'utilisateur n'entre que 2 champs, il n'y ai pas une erreur à cause du non remplissage des 3 autres champs! Lors d'une mise à jour il n'y a pas de pb c'est lors de l'Insert.

Voici le début du code:

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
<%@ Language="VBScript"%>
<% option explicit%>
<%	Dim data1
	Dim data2
	Dim data3
	Dim data4
	Dim data5
	Dim data6
	Dim data7
	Dim data8
	Dim data9
	Dim data10
	Dim data11
 
	Dim mois
	Dim annee
	Dim cum
	Dim ant
	cum="cum"
	ant="A-1"
 
 
	data1=replace(Request.Form("data1"),".",",")
	data2=replace(Request.Form("data2"),".",",")
	data3=replace(Request.Form("data3"),".",",")
	data4=replace(Request.Form("data4"),".",",")
	data5=replace(Request.Form("data5"),".",",")
	data6=replace(Request.Form("data6"),".",",")
	data7=replace(Request.Form("data7"),".",",")
	data8=replace(Request.Form("data8"),".",",")
	data9=replace(Request.Form("data9"),".",",")
	data10=replace(Request.Form("data10"),".",",")
	data11=replace(Request.Form("data11"),".",",")
 
	mois=Request.Form("mois")
	annee=Request.Form("année")
 
 
 
 
	if (mois="") then
						Response.Write("<script language='javascript'>")
				    	Response.Write("alert('Choisissez un mois');")
    					Response.Write("</script>")
%><META HTTP-EQUIV=REFRESH CONTENT="0;URL=tableSoudDelai2.html">
<%	else if (annee="") then
							Response.Write("<script language='javascript'>")
							Response.Write("alert('Choisissez une année');")
    						Response.Write("</script>")
 
    			'----------------------------On relance la page d acceuil'
 
%><META HTTP-EQUIV=REFRESH CONTENT="0;URL=tableSoudDelai2.html">
 
<%
		 else
 
 
				Dim str
				Dim cnBD
				Dim strInsere
				Dim strMiseajourData1
				Dim strMiseajourData2
				Dim strMiseajourData3
				Dim strInsere2
				Dim strMiseajourData4
				Dim strMiseajourData5
				Dim strMiseajourData6
				Dim strInsere3
				Dim strMiseajourData7
				Dim strMiseajourData8
				Dim strInsere4
				Dim strMiseajourData9
				Dim strMiseajourData10
				Dim strMiseajourData11
				Dim strInsere5
				Dim strMiseajourData12
				Dim strMiseajourData13
				Dim strInsere6
				Dim strMiseajourData14
				Dim strMiseajourData15
				Dim strInsere7
				Dim strMiseajourData16
				Dim strMiseajourData17
				Dim strMiseajourData18
				Dim strMiseajourData19
				Dim strMiseajourData20
				Dim strMiseajourData21
				Dim strMiseajourData22
				Dim strMiseajourData23
				Dim strMiseajourData24
				Dim strMiseajourData25
				Dim strMiseajourData26
				Dim strMiseajourData27
				Dim strMiseajourData28
				Dim strMiseajourData29
				Dim strMiseajourData30
				Dim strMiseajourData31
				Dim strMiseajourData32
				Dim strMiseajourData33
 
				Dim objRs
				Dim test
				test=0
 
 
				'Choix du DSN pour se connecter à la base de données'
 
 
                 str = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(".") &"\BdAchat.mdb"
 
 
				strInsere="INSERT INTO SoudDelai (Mois,Année,CSI,Ret,QAAUTTH,QAACMA,QAATub,QAAGIAT) VALUES ('"&mois&"','"&annee&"','"&data1&"','"&data3&"','"&data4&"','"&data6&"','"&data8&"','"&data10&"')"
				strMiseajourData1="UPDATE SoudDelai SET CSI='"&data1&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
				strMiseajourData2="UPDATE SoudDelai SET Ret='"&data3&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
				strMiseajourData3="UPDATE SoudDelai SET QAAUTTH='"&data4&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
				strMiseajourData4="UPDATE SoudDelai SET QAACMA='"&data6&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
				strMiseajourData5="UPDATE SoudDelai SET QAATub='"&data8&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
				strMiseajourData6="UPDATE SoudDelai SET QAAGIAT='"&data10&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
 
 
				'Créer la connection à la base de données'
 
				set cnBD =Server.CreateObject("ADODB.Connection")
 
				'Ouvrir la connexion'
 
				Set objRs = Server.CreateObject("ADODB.Recordset")
 
				cnBD.Open str
				objRs.Open "SELECT Mois,Année From SoudDelai", cnBD
				Do While (test = 0 And Not objRs.EOF)
								        If mois= objRs("Mois") Then
								            If annee = objRs("Année") Then
								                test = 1
								            End If
								        End If
								        objRs.movenext
    			Loop
 
    			if test = 1 Then
    					if data1<>"" then
				cnBD.Execute(strMiseajourData1)
						End If
						if data3<>"" then
				cnBD.Execute(strMiseajourData2)
						End if
						if data4<>"" then
				cnBD.Execute(strMiseajourData3)
						End if
						if data6<>"" then
				cnBD.Execute(strMiseajourData4)
						End If
						if data8<>"" then
				cnBD.Execute(strMiseajourData5)
						End if
						if data10<>"" then
				cnBD.Execute(strMiseajourData6)
						End if
    			else
    				cnBD.Execute (strInsere)
				End if
				objRs.Close
				set objRs=nothing
				test=0

[philippe123]

moi, lors d'un insert avec des champs non renseignés je fais ce test la

ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
req = "insert into database(champs1"
 
if valeur2 <> "" then
   req = req + ",champs2"
end if
 
req = req + ") values(valeur1"
 
if valeur2 <> "" then
   req = req + ",valeur2"
end if
 
req = req + ");"

comme ca j'ai pas de probleme avec les champs non renseignés et les valeurs null ...