Discussion :

[pmboutteau]

Voici mon problème je rentre bien dans la partie pour les updates mais seulement il n'update rien dans ma base.
J'ai plus d'erreur mais il fait rien c'est pas mieux.

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
<%@ 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 engData2
 
 
	engData2=CDate(data2)
	engData2=Month(engData2)&"/"&Day(engData2)&"/"&Year(engData2)
 
 
 
	data1=Request.Form("data1")
	data2=Request.Form("data2")
	data3=Request.Form("data3")
	data4=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"),".",",")
 
 
.....
 
 
	strMiseajour="INSERT INTO OperationCasing (NumCommande,DateSaisie,poste,NomPoste,TempsPresence,BoutsTraites,BoutsBons,Rebuts,TauxRebut,Arrets,NombreRebuts,Outils,TRS) Values ('"&data1&"','"&data2&"','"&data3&"','"&data4&"','"&data5&"','"&data6&"','"&data7&"','"&Rebut&"','"&TauxRebut&"','"&data8&"','"&data9&"','"&data10&"','"&TRS&"')"
 
	Dim MiseAJour5,MiseAJour6,MiseAJour7,MiseAJour8,MiseAJour9,MiseAJour10,MiseAJour11,MiseAJour12,MiseAJour13
 
	MiseAJour5="UPDATE OperationCasing SET TempsPresence='"&data5&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour6="UPDATE OperationCasing SET BoutsTraites='"&data6&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour7="UPDATE OperationCasing SET BoutsBons='"&data7&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour8="UPDATE OperationCasing SET Rebuts='"&Rebut&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour9="UPDATE OperationCasing SET TauxRebut='"&TauxRebut&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour10="UPDATE OperationCasing SET Arrets='"&data8&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour11="UPDATE OperationCasing SET NombreRebuts='"&data9&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour12="UPDATE OperationCasing SET Outils='"&data10&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
	MiseAJour13="UPDATE OperationCasing SET TRS='"&TRS&"' WHERE NumCommande='"&data1&"' AND DateSaisie=#"&engData2&"# AND poste='"&data3&"' AND NomPoste='"&data4&"'"
 
'test si modif ou insert'
 
	Dim objRS
	set objRs=Server.CreateObject("ADODB.Recordset")
	Dim test
	test=0
	Dim AutreDate
	AutreDate=CDate(data2)
 
	objRs.Open "SELECT * From OperationCasing", cnBD
 
	Do While (test = 0 And Not objRs.EOF)
	   If data1= objRs("NumCommande") Then
	      If AutreDate = objRs("DateSaisie") Then
	         If data3= objRs("poste") Then
	      		If data4 = objRs("NomPoste") Then
		   			test = 1
	       	     End If
	   		End If
	      End If
	   End If
	objRs.movenext
    Loop
 
	if test=1 Then
		cnBD.Execute(MiseAJour5)
		cnBD.Execute(MiseAJour6)
		cnBD.Execute(MiseAJour7)
		cnBD.Execute(MiseAJour8)
		cnBD.Execute(MiseAJour9)
		cnBD.Execute(MiseAJour10)
		cnBD.Execute(MiseAJour11)
		cnBD.Execute(MiseAJour12)
		cnBD.Execute(MiseAJour13)
	else
		cnBD.Execute(strMiseajour)
	End if
 
	objRs.Close
	set objRs=nothing
	test=0

[pmboutteau]

Quand je fais afficher les dates pour voir il me met 00:00:00 pour la date normale et 31/12/1899 en version anglaise