Discussion :

[CaNiBaLe]

Bonjour à tous,

C'est la première fois que je poste dans un forum. J'ai pris soin de lire les règles qui régissent la rédaction d'un post, donc je vais essayer de les respecter

Je suis en train de migrer la base de donnée d'un site web qui était sous Access à MySQL.
J'ai donc modifié le code de connexion à la base de donnée. Jusque là tout va bien, je peux me connecter à la base de donnée et afficher correctement les résultats des requêtes.
Cependant l'erreur suivante apparait (oui il en faut bien une ):

Code :

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

1
2
3
4
5
6
 
Microsoft VBScript runtime error '800a000d'
 
Type mismatch
 
/OfficeBuzz/Admin/default.asp, line 155

Si je comprends bien, l'erreur me dit que je suis en train de comparer deux variables qui ne sont pas du même type. Le problème est que auparavant cela fonctionné avant que je migre la base de donnée. Je ne sais pas du tout d'où cela peut venir. Je précise également que je n'avais jamais fait d'ASP auparavant.

J'ai bien entendu rechercher sur internet et dans votre forum mais je ne trouve rien qui corresponde à mon problème...

Voici le code correspondant à l'erreur:

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
 
</table>
<table align="center" class="listTable">
	<tr>
		<td align="center">
			Entries <%=((pageNumber - 1) * rsPerPage + 1)%> -
<%
	If (pageNumber * rsPerPage) > rsCount Then 'ligne 155
		Response.Write(rsCount)
	Else
		Response.Write((pageNumber * rsPerPage))
	End If
 
%>
			of <%=rsCount  %>
 
		</td>
	</tr>
</table>

Et voici le code où les varaibles sont initialisées:

Code :

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

1
2
3
4
5
 
	'Count the records
 	Set rs = OpenRs(dbConn, "SELECT count(*) AS rs_count" & sqlStmt)
 	rsCount = rs("rs_count")
   	Call CloseRs(rs)

Si vous avez besoin de plus de détails, faites le moi savoir

Merci de votre aide

[pc75]

Bonjour,

Peut-être ?

Code :

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

1
2
 
If (cInt(pageNumber) * cInt(rsPerPage)) > cInt(rsCount) Then

[CaNiBaLe]

C'était exactement ça !
J'en reviens pas
Si tu savais l'épine que tu m'enlèves du pied
Je te remercie vraiment d'avoir pris le temps de me répondre et de m'aider

Passes une excellente journée !

[aureliendana]

Merci !

Juste un petit détails si quelqu'un tombe dans le même cas que moi.

cLng au lieu de cInt (dans le cas ou vous avez des valeurs supérieurs à -32768 et 32767)

En tout cas merci pc75.