zekabyle
|
c'est juste une erreur dans l'écriture du champ act_tac_codactPTF car act_tac_codact ne fait pas partie de la table que j'utilise c une erreur de recopiage de champ.
Mais ça rame énormément quand j'exécute mon code.
J'utilise des bases access avec plus de 20400 lignes dans les tables concernées activitePTF et aussi activite. Je suis sûr que mon morceau de code n'est pas optimisé mais ça rame tellement que ça dépasse le délai de connexion imposé.
Voici mon code :
<%@ Language=VBScript %> <%@ Language=VBScript %> <%@ Language=VBScript %> <%@ Language=VBScript %> <%
dim i,j,k
'variable me permettant de me connecter à la base DispoPTF
dim OBJdBportConn
'phase 0
dim OBJdBConnPTFU
dim OBJdBConnPTFL
dim RSPTFU
dim TabPTFU
dim RSPTFL
dim TabPTFL
dim RSIngPTFU
dim TabIngPTFU
dim SQLIngPTFU
dim RSupdatePTFU
dim test
dim SQL
dim TabMAJ
'3)partie mise à jour de la table activitePTF
Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau TabMAJ
redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau
'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
'TabMAJ(5,j) = TabPTFU(5,i)
'TabMAJ(6,j) = TabPTFU(6,i)
'TabMAJ(7,j) = TabPTFU(7,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'TabMAJ(5,i) = CStr(TabMAJ(5,i))
'TabMAJ(6,i) = CStr(TabMAJ(6,i))
'TabMAJ(7,i) = CStr(TabMAJ(7,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF
SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
%><%
dim i,j,k
'variable me permettant de me connecter à la base DispoPTF
dim OBJdBportConn
'phase 0
dim OBJdBConnPTFU
dim OBJdBConnPTFL
dim RSPTFU
dim TabPTFU
dim RSPTFL
dim TabPTFL
dim RSIngPTFU
dim TabIngPTFU
dim SQLIngPTFU
dim RSupdatePTFU
dim test
dim SQL
dim TabMAJ
'3)partie mise à jour de la table activitePTF
Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau TabMAJ
redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau
'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
'TabMAJ(5,j) = TabPTFU(5,i)
'TabMAJ(6,j) = TabPTFU(6,i)
'TabMAJ(7,j) = TabPTFU(7,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'TabMAJ(5,i) = CStr(TabMAJ(5,i))
'TabMAJ(6,i) = CStr(TabMAJ(6,i))
'TabMAJ(7,i) = CStr(TabMAJ(7,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF
SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
%><%
dim i,j,k
'variable me permettant de me connecter à la base DispoPTF
dim OBJdBportConn
'phase 0
dim OBJdBConnPTFU
dim OBJdBConnPTFL
dim RSPTFU
dim TabPTFU
dim RSPTFL
dim TabPTFL
dim RSIngPTFU
dim TabIngPTFU
dim SQLIngPTFU
dim RSupdatePTFU
dim test
dim SQL
dim TabMAJ
'3)partie mise à jour de la table activitePTF
Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau TabMAJ
redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau
'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
'TabMAJ(5,j) = TabPTFU(5,i)
'TabMAJ(6,j) = TabPTFU(6,i)
'TabMAJ(7,j) = TabPTFU(7,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'TabMAJ(5,i) = CStr(TabMAJ(5,i))
'TabMAJ(6,i) = CStr(TabMAJ(6,i))
'TabMAJ(7,i) = CStr(TabMAJ(7,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF
SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
%><%
dim i,j,k
'variable me permettant de me connecter à la base DispoPTF
dim OBJdBportConn
'phase 0
dim OBJdBConnPTFU
dim OBJdBConnPTFL
dim RSPTFU
dim TabPTFU
dim RSPTFL
dim TabPTFL
dim RSIngPTFU
dim TabIngPTFU
dim SQLIngPTFU
dim RSupdatePTFU
dim test
dim SQL
dim TabMAJ
'3)partie mise à jour de la table activitePTF
Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau TabMAJ
redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau
'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
'TabMAJ(5,j) = TabPTFU(5,i)
'TabMAJ(6,j) = TabPTFU(6,i)
'TabMAJ(7,j) = TabPTFU(7,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'TabMAJ(5,i) = CStr(TabMAJ(5,i))
'TabMAJ(6,i) = CStr(TabMAJ(6,i))
'TabMAJ(7,i) = CStr(TabMAJ(7,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF
SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
%>
<%@ Language=VBScript %><%
dim i,j,k
'variable me permettant de me connecter à la base DispoPTF
dim OBJdBportConn
'phase 0
dim OBJdBConnPTFU
dim OBJdBConnPTFL
dim RSPTFU
dim TabPTFU
dim RSPTFL
dim TabPTFL
dim RSIngPTFU
dim TabIngPTFU
dim SQLIngPTFU
dim RSupdatePTFU
dim test
dim SQL
dim TabMAJ
'3)partie mise à jour de la table activitePTF
Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau TabMAJ
redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau
'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
'TabMAJ(5,j) = TabPTFU(5,i)
'TabMAJ(6,j) = TabPTFU(6,i)
'TabMAJ(7,j) = TabPTFU(7,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'TabMAJ(5,i) = CStr(TabMAJ(5,i))
'TabMAJ(6,i) = CStr(TabMAJ(6,i))
'TabMAJ(7,i) = CStr(TabMAJ(7,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF
SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
%>Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau
TabMAJ redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau 'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
je suis désolé de mettre autant de lignes
merci
<%@ Language=VBScript %><%@ Language=VBScript %><%
dim i,j,k
'variable me permettant de me connecter à la base DispoPTF
dim OBJdBportConn
'phase 0
dim OBJdBConnPTFU
dim OBJdBConnPTFL
dim RSPTFU
dim TabPTFU
dim RSPTFL
dim TabPTFL
dim RSIngPTFU
dim TabIngPTFU
dim SQLIngPTFU
dim RSupdatePTFU
dim test
dim SQL
dim TabMAJ
'3)partie mise à jour de la table activitePTF
Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau TabMAJ
redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau
'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
'TabMAJ(5,j) = TabPTFU(5,i)
'TabMAJ(6,j) = TabPTFU(6,i)
'TabMAJ(7,j) = TabPTFU(7,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'TabMAJ(5,i) = CStr(TabMAJ(5,i))
'TabMAJ(6,i) = CStr(TabMAJ(6,i))
'TabMAJ(7,i) = CStr(TabMAJ(7,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF
SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
%><%
dim i,j,k
'variable me permettant de me connecter à la base DispoPTF
dim OBJdBportConn
'phase 0
dim OBJdBConnPTFU
dim OBJdBConnPTFL
dim RSPTFU
dim TabPTFU
dim RSPTFL
dim TabPTFL
dim RSIngPTFU
dim TabIngPTFU
dim SQLIngPTFU
dim RSupdatePTFU
dim test
dim SQL
dim TabMAJ
'3)partie mise à jour de la table activitePTF
Set OBJdBConnPTFU = Server.CreateObject("ADODB.Connection")
OBJdBConnPTFU.Open cheminbaseDispoPTF_U
Set RSPTFU = OBJdBConnPTFU.Execute ("SELECT * FROM activite WHERE act_con_codcon <> 0;")
if not RSPTFU.EOF then
TabPTFU = RSPTFU.GetRows
end if
RSPTFU.Close
Set RSPTFU = nothing
OBJdBConnPTFU.Close
Set OBJdBConnPTFU = nothing
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'redimension du tableau TabMAJ
redim TabMAJ(8,1)
'initialisation du tableau TabMAJ
TabMAJ(0,0) = ""
TabMAJ(1,0) = ""
TabMAJ(2,0) = ""
TabMAJ(3,0) = ""
TabMAJ(4,0) = ""
TabMAJ(5,0) = ""
TabMAJ(6,0) = ""
TabMAJ(7,0) = ""
k = 1
'stockage dans un tableau
'DispoPTF et dispo
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabPTFU,2)
if RSIngPTFU("act_moi_moisPTF") = TabPTFU(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabPTFU(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabPTFU(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabPTFU(3,i) then
if RSIngPTFU("act_nbjourpPTF") <> TabPTFU(4,i) then
TabMAJ(0,j) = TabPTFU(0,i)
TabMAJ(1,j) = TabPTFU(1,i)
TabMAJ(2,j) = TabPTFU(2,i)
TabMAJ(3,j) = TabPTFU(3,i)
TabMAJ(4,j) = TabPTFU(4,i)
'TabMAJ(5,j) = TabPTFU(5,i)
'TabMAJ(6,j) = TabPTFU(6,i)
'TabMAJ(7,j) = TabPTFU(7,i)
redim preserve TabMAJ(8,k)
k = k + 1
j = j + 1
end if
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
'fermeture de la table INGENIEUR de la base dispo
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
'désalloue le tableau TabIngPort pour libérer de la mémoire
erase TabPTFU
'ouverture de la base DispoPTF
Set OBJdBportConn = Server.CreateObject("ADODB.Connection")
OBJdBportConn.Open cheminbaseDispoPTF
'ouverture de la table activitePTF de la base DispoPTF
Set RSIngPTFU = OBJdBportConn.Execute ("SELECT * FROM activitePTF WHERE act_con_codconPTF <> 0;")
'mise à jour de la table activitePTF
do while not RSIngPTFU.EOF
for i = 0 to ubound(TabMAJ,2)
if RSIngPTFU("act_moi_moisPTF") = TabMAJ(0,i) then
if RSIngPTFU("act_tac_codactPTF") = TabMAJ(1,i) then
if RSIngPTFU("act_ing_codingPTF") = TabMAJ(2,i) then
if RSIngPTFU("act_con_codconPTF") = TabMAJ(3,i) then
TabMAJ(4,i) = CStr(TabMAJ(4,i))
'TabMAJ(5,i) = CStr(TabMAJ(5,i))
'TabMAJ(6,i) = CStr(TabMAJ(6,i))
'TabMAJ(7,i) = CStr(TabMAJ(7,i))
'on utilise la requête SQL de mise à jour dans la table activitePTF de la base dispoPTF
SQLIngPTFU = "UPDATE activitePTF SET act_nbjourpPTF = '"& test &"' WHERE act_moi_moisPTF = '"& TabMAJ(0,i) &"' AND act_tac_codactPTF = "& TabMAJ(1,i) &" AND act_ing_codingPTF = "& TabMAJ(2,i) &" AND act_con_codconPTF = "& TabMAJ(3,i) &";"
Set RSupdatePTFU = OBJdBportConn.Execute(SQLIngPTFU)
Set RSupdatePTFU = nothing
i = 0
exit for
end if
end if
end if
end if
next
RSIngPTFU.movenext
loop
erase TabMAJ
'fermeture de la table activitePTF de la base DispoPTF
RSIngPTFU.Close
Set RSIngPTFU = nothing
'fermeture de la base DispoPTF
OBJdBportConn.Close
Set OBJdBportConn = nothing
%>
|