loop dans recordset sqlserver [Résolu]

faamugol · 01/08/2006, 12h09

Salut,

Je traville sur une bdd sqlserver, voici la page ASP qui n'affiche rien et la table conteint 4.000.000 records environ.
Il me dit

Error Type:
Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Mais j'ai mis le parameter time out à 0 donc illimitée.

Est-ce que on doit peut utilisre Movefirst et MoveNext pour parcourir le recordset ?

Car des que je retire le code de la boucle je peux bien lire par exemple le contenu du premier record en utilisant
Response.write RS("champs1") & "<br>"
Response.write RS("champs2") & "<br>"
......
Response.write RS("champs8") & "<br>"

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
 
<%OPTION EXPLICIT%>
<!--#include file="conf/adovbs.inc" -->
<!-- #include file="conf/info.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>GEO</title>
 
</head>
 
<body>
 <%
        Dim SQL_query, str_boek
        Dim i
        on error resume next
		err.clear
		'call sub to open database
	    Call OpenDatabase() 'see in map conf/info.asp
 
		if err then
				Response.Write "<br>failed open databse in: index.asp <br> objConn=" & _
				objConn & "<br>Error number=" & err.number & "<br>Error description:" & err.description
				'Reset server objects
				Call CloseDatabase()'see in map conf/info.asp
		else
 
		  SQL_query = "SELECT * FROM T_Result"
					'Response.Write "<br>" & SQL_query 
		  Set RS = objConn.Execute(SQL_query)
	str_boek="<TABLE WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1>" 		
	RS.MoveFirst
	i = 0 
	do  while not RS.eof 
	if i mod 2  = 0 then
	rowcolor = "#990066"
	else
	rowcolor = "#055369"
	end if
	str_boek = str_boek & "<tr style bgcolor ='" & rowcolor & "'>" & _
	"<td>" & RS("ACC_ID") & "</td>" & _
	"<td>" & RS("ACC_FMC") & "</td>" & _
	"<td>" & RS("C_Date") & "</td>" & _
	"<td>" & RS("WkDay") & "</td>" & _
	"<td>" & RS("CMonth") & "</td>" & _
	"<td>" & RS("Chour") & "</td>" & _
	"<td>" & RS("Street") & "</td>" & _
	"</tr>"
	RS.movenext
	i = i+1
	loop
	str_boek = str_boek & "</table>"
	Call CloseDatabase()' see in map conf/info.asp
	Response.Write str_boek
  end if	
  %>
 
  </body>
</html>

Je ne vois pas le probleme.

Merci d'avance pour vos idées.

Poussy-Puce · 01/08/2006, 17h52

Bah, je suis pas pro dans ce genre d'erreur, mais moi je chercherais pas le problème dans ma boucle vu que ton message d'erreur est dans un timeout

Essaye de mettre ça dans ta page (après la déclaration de ton objet de connection) avec des valeurs en secondes que tu crois ne pas dépasser. Aussi fais seulement exécuter ta requête SQL vois si cela fonctionne! Une étape à la fois!!!

Code :

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

1
2
3
4
5
 
Session.Timeout = 240
Server.ScriptTimeout = 240
objConn.ConnectionTimeout = 240
objConn.CommandTimeout = 240

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email