Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3228 connectés 

  FORUM HardWare.fr
  Programmation

  [ASP] Updates multiples!!!

 
 


Dernière réponse
Sujet : [ASP] Updates multiples!!!
krill voici mon code:  
 

Code :
  1. <% If Request.QueryString("OK" ) = 1 Then %>
  2. <%
  3. Set Conn1 = Server.CreateObject("ADODB.Connection" )
  4. Set Conn2 = Server.CreateObject("ADODB.Connection" )
  5. Conn1.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database" ) & "\calendrier.mdb;"
  6. Conn2.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database" ) & "\classement.mdb;"
  7. Set RS = Server.CreateObject("ADODB.RecordSet" )
  8. %>
  9. <%
  10. j = 1
  11. While Request.QueryString("Visite_"&j) <> ""
  12. %>
  13. <%
  14. RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  15. RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  16. RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  17. RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  19. If Request.QueryString("Score_visite_"&j) > Request.QueryString("Score_visiteur_"&j) Then
  20. RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  21. RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  22. End If
  24. If Request.QueryString("Score_visite_"&j) = Request.QueryString("Score_visiteur_"&j) Then
  25. RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  26. RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  27. End If
  29. If Request.QueryString("Score_visite_"&j) < Request.QueryString("Score_visiteur_"&j) Then
  30. RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  31. RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  32. End If
  34. If (Request.QueryString("Visite_"&j) = "R.E. Virton" ) Or (Request.QueryString("Visiteur_"&j) = "R.E. Virton" ) Then
  35. RS.Open "UPDATE Calendrier SET Score_visite=" & Request.QueryString("Score_visite_"&j) & " WHERE Visite='" & Request.QueryString("Visite_"&j) & "' AND Visiteur='" & Request.QueryString("Visiteur_"&j) & "'", Conn1, adOpenStatic
  36. RS.Open "UPDATE Calendrier SET Score_visiteur=" & Request.QueryString("Score_visiteur_"&j) & " WHERE Visiteur='" & Request.QueryString("Visiteur_"&j) & "' AND Visite='" & Request.QueryString("Visite_"&j) & "'", Conn1, adOpenStatic
  37. End If
  38. %>
  39. <%= j %>
  40. <%
  41. j = j + 1
  42. Wend
  43. %>
  44. <% Conn1.Close %>
  45. <% Conn2.Close %>
  46. <% RS.Close %>
  47. <% End If %>


 
j'ai un formulaire avec 9 lignes. je le remplis completement, ce qui fait que la boucle doit avoir 9 iterations. or, a chaque fois, je n'ai que 5 iterations. si mon formulaire est vide, j'ai bien mes 9 iterations.  
donc que dois-je faire? peut-etre est-ce mon code qui n'est pas bien optimise...?

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse
[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 
Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
krill voici mon code:  
 

Code :
  1. <% If Request.QueryString("OK" ) = 1 Then %>
  2. <%
  3. Set Conn1 = Server.CreateObject("ADODB.Connection" )
  4. Set Conn2 = Server.CreateObject("ADODB.Connection" )
  5. Conn1.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database" ) & "\calendrier.mdb;"
  6. Conn2.Open "Driver={Microsoft ACCESS Driver (*.mdb)}; DBQ=" & Server.MapPath("../../database" ) & "\classement.mdb;"
  7. Set RS = Server.CreateObject("ADODB.RecordSet" )
  8. %>
  9. <%
  10. j = 1
  11. While Request.QueryString("Visite_"&j) <> ""
  12. %>
  13. <%
  14. RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  15. RS.Open "UPDATE Classement SET Buts_marques=Buts_marques+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  16. RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visiteur_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  17. RS.Open "UPDATE Classement SET Buts_encaisses=Buts_encaisses+" & Request.QueryString("Score_visite_"&j) & " WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  19. If Request.QueryString("Score_visite_"&j) > Request.QueryString("Score_visiteur_"&j) Then
  20. RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  21. RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  22. End If
  24. If Request.QueryString("Score_visite_"&j) = Request.QueryString("Score_visiteur_"&j) Then
  25. RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  26. RS.Open "UPDATE Classement SET Nuls=Nuls+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  27. End If
  29. If Request.QueryString("Score_visite_"&j) < Request.QueryString("Score_visiteur_"&j) Then
  30. RS.Open "UPDATE Classement SET Victoires=Victoires+1 WHERE Nom_equipe='" & Request.QueryString("Visiteur_"&j) & "'", Conn2, adOpenStatic
  31. RS.Open "UPDATE Classement SET Defaites=Defaites+1 WHERE Nom_equipe='" & Request.QueryString("Visite_"&j) & "'", Conn2, adOpenStatic
  32. End If
  34. If (Request.QueryString("Visite_"&j) = "R.E. Virton" ) Or (Request.QueryString("Visiteur_"&j) = "R.E. Virton" ) Then
  35. RS.Open "UPDATE Calendrier SET Score_visite=" & Request.QueryString("Score_visite_"&j) & " WHERE Visite='" & Request.QueryString("Visite_"&j) & "' AND Visiteur='" & Request.QueryString("Visiteur_"&j) & "'", Conn1, adOpenStatic
  36. RS.Open "UPDATE Calendrier SET Score_visiteur=" & Request.QueryString("Score_visiteur_"&j) & " WHERE Visiteur='" & Request.QueryString("Visiteur_"&j) & "' AND Visite='" & Request.QueryString("Visite_"&j) & "'", Conn1, adOpenStatic
  37. End If
  38. %>
  39. <%= j %>
  40. <%
  41. j = j + 1
  42. Wend
  43. %>
  44. <% Conn1.Close %>
  45. <% Conn2.Close %>
  46. <% RS.Close %>
  47. <% End If %>


 
j'ai un formulaire avec 9 lignes. je le remplis completement, ce qui fait que la boucle doit avoir 9 iterations. or, a chaque fois, je n'ai que 5 iterations. si mon formulaire est vide, j'ai bien mes 9 iterations.  
donc que dois-je faire? peut-etre est-ce mon code qui n'est pas bien optimise...?

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)