problème d'actualisation avec la pagination

**momov** · 25/06/2006, 20h48

salut tt le monde et voila je ss de retour mon problème cette fois c'est la pagination j'ai des enregistrement, quand je veus les lister sur une page asp tout va b1 voila mon 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
 
<html>
<body>
<%
Select Case Request.QueryString("Direction")
Case ""
Session("CurrentPage") = 1
Case "Next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "Prev"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
Const adOpenKeyset = 1
Set objConnection = Server.CreateObject("ADODB.Connection")
OBJConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bendi.mdb;Persist Security Info=False"
Dim strSQL
strSQL = strSQL & "SELECT * FROM tblClient order by codeClient"
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.PageSize = 5
objRecordset.Open strSQL, objConnection, adOpenKeyset
objRecordset.AbsolutePage = CLng(Session("CurrentPage"))
%>
 
<%
Dim i
For i = 1 To objRecordset.PageSize
%>
<% =objRecordset("nomClient") %>&nbsp;<% =objRecordset("prenomClient") %><br>
<% objRecordset.MoveNext
If objRecordset.EOF then
exit for
End If
Next
%>
 
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="modifier_client.asp?Direction=Prev">Enregistrements précédents</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < objRecordset.Pagecount Then %>
<a href="modifier_client.asp?Direction=Next">Enregistrements suivants</a>
<% End If %>
 
 
<%
objRecordset.Close
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
%> 
 
 
</body>
</html>

voila mon prob
quand je liste tout les enregistrement de ma table j'obtient ce que je veus quand j'actualise dans la première page pas de problème mais quand je passe a la seconde et j'actualise la page suivante s'affiche donc a chaque actualistaion je me suit conduit vers la page suivante et quand j'arrive a la dernière voila l'erreur qui s'affiche :

ADODB.Field error '80020009'

BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.

/avant/modifier_client.asp, line 0

si vous m'aidez je serais reconnaissant

MERCI d'avance

**Immobilis** · 26/06/2006, 22h37

Plutôt que

Code :

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

For i = 1 To objRecordset.PageSize

Pourquoi pas

Code :

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

1
2
 
WHILE NOT objRecordset.EOF and i <= objRecordset.PageSize

A+

**momov** · 27/06/2006, 00h56

bsr et merci pour votre reponse

je suis encore débutant et je n'utilse pas trop la boucle while not

alors est ce que vous pouvez me récrire la boucle compléte plz

merci

**Immobilis** · 28/06/2006, 09h51

Code :

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

1
2
3
4
5
6
7
8
9
 
i = 0
WHILE NOT objRecordset.EOF and i <= objRecordset.PageSize
 
    (...TRAITEMENT ...)
 
    i = i + 1
    objRecordset.movenext
WEND

A+

**momov** · 28/06/2006, 16h15

le meme prob

voila l erreur
ADODB.Field error '80020009'

BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.

/avant/modifier_client.asp, line 0

quand j'affiche les résultats pour la première fois c'est bien mais quand je passe a la deuxième et j'acctualise je passe a la 3éme automatiqement et comme ça jusqua la fin puis il m'afiche l'erreur précédente.

**Immobilis** · 28/06/2006, 23h34

Montre le morceau de code avec ta correction STP.

**momov** · 29/06/2006, 13h57

bjr
le voila

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
 
<html>
<body>
 
 
 
 
<%
Select Case Request.QueryString("Direction")
Case ""
Session("CurrentPage") = 1
Case "Next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "Prev"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
Const adOpenKeyset = 1
Set objConnection = Server.CreateObject("ADODB.Connection")
OBJConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bendi.mdb;Persist Security Info=False"
Dim strSQL
strSQL = strSQL & "SELECT * FROM tblClient order by codeClient"
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.PageSize = 3
objRecordset.Open strSQL, objConnection, adOpenKeyset
objRecordset.AbsolutePage = CLng(Session("CurrentPage"))
%>
 
 
 
 
 
<%
 
dim i
 
i = 0
while not objRecordset.EOF AND i<= objRecordset.PageSize %>
<% =objRecordset("nomClient") %>&nbsp;<% =objRecordset("prenomClient") %><br>
<% 
i=i+1
objRecordset.MoveNext
wend
 
%>
 
 
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="modifier_client.asp?Direction=Prev">Enregistrements précédents</a>
<% End If %>
<%If CLng(Session("CurrentPage")) < objRecordset.Pagecount Then %>
<a href="modifier_client.asp?Direction=Next">Enregistrements suivants</a>
<% End If %>
 
 
<%
objRecordset.Close
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
%> 
 
 
</body>
</html>

**Immobilis** · 30/06/2006, 22h18

Ton code fonctionne bien chez moi.
J'ai corrigé des trucs, regarde bien. En passant, evite de mélanger le code HTML avec l'ASP. C'est sale...

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
<%
Dim strSQL
 
Const adOpenKeyset = 1
 
Set objConnection = Server.CreateObject("ADODB.Connection")
OBJConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bendi.mdb;Persist Security Info=False"
 
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.PageSize = 3
objRecordset.Open "SELECT * FROM tblClient order by codeClient", objConnection, adOpenKeyset
 
dim i, PageNum
i = 0
 
IF request.QueryString("PageNum") <> "" THEN
	IF objRecordset.AbsolutePage <= objRecordset.pagecount THEN
		objRecordset.AbsolutePage = request.QueryString("PageNum")
		PageNum = request.QueryString("PageNum")
	END IF
ELSE
	PageNum = 1
END IF
 
IF NOT objRecordset.EOF AND NOT objRecordset.BOF THEN
	while not objRecordset.EOF AND i<= objRecordset.PageSize
		response.Write(objRecordset("nomClient") & "&nbsp;" & objRecordset("prenomClient") &"<br>")
		i=i+1
		objRecordset.MoveNext
	wend
ELSE
	response.Write("Pas d'enregistrements")
END IF
response.Write("You are page " & PageNum & " of " & objRecordset.Pagecount & "<br>")
If cint(PageNum) > 1 Then
	response.Write("<a href='Untitled-2.asp?Direction=Prev&PageNum=" & PageNum - 1 & "'>Enregistrements précédents</a>&nbsp;")
End If
If cint(PageNum) < objRecordset.Pagecount Then
	response.Write("<a href='Untitled-2.asp?Direction=Next&PageNum=" & PageNum + 1 & "'>Enregistrements suivants</a>")
End If
 
objRecordset.Close
objConnection.Close
Set objRecordset = Nothing
Set objConnection = Nothing
%>

A+

**momov** · 03/07/2006, 02h23

resalut
maintenant il maffiche les résultats mais quand je click sur le lien enregistrement suivant

il maffiche

La page est introuvable
Il se peut que la page que vous recherchez ait été supprimée, ait changé de nom ou soit momentanément indisponible.