Discussion :

[ahage4x4]

Bonjour a tous,
Voila un code très simple, il est sensé me compter le nombre de photos uploadés au jour même du lancement du script.
Ca fait un mois qu'il marche et depuis le premier octobre il me dit Zeros photos même s'il y a N photos uploadés. Ca m'affole !!!

Voila le code qui est dans un fichier include:

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
Public function GetStats
'Get the number of pics uploaded by day
borne_sup = Cdate (date & " 23:59:59")
borne_inf = Cdate (date & " 00:00:01" )
ouvrir
SQL = "SELECT COUNT(IDfile) FROM T_OFFROAD WHERE Uploaddate>#" & borne_inf & "# AND Uploaddate<#" & borne_sup &"#"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.OPEN SQL , CN 
OR_count = RS(0)
SQL = "SELECT COUNT(IDfile) FROM T_SKIDOO WHERE Uploaddate>#" & borne_inf & "# AND Uploaddate<#" & borne_sup &"#"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.OPEN SQL , CN 
SM_count = RS(0)
response.write  OR_count  & " Off Road pics & <br>"
response.write  SM_count  & " Snowmobile pics <br>uploaded today."
Set RS = nothing
fermer
 
End Function

Le seul truc qui peut clocher c'est les conditions dans les requetes.
PS: J'ai fait des response write des requetes SQL, ca donne comme prevu.

J'espère que vous pourriez m'aider pour ce comportement bizarre.
Merci d'avance

Anthony

[Immobilis]

Salut,

T'as pas de message d'erreur?
Qu'est-ce qu'il fait là lui?

Set RS = nothing
fermer

End Function

De maniere générale, une fonction renvoi une valeur.

Code :

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

1
2
3
4
5
Function mafonction()
     Dim mavariable
     (...)
     mafonction = mavariable
End function

Sinon, fais nous un response.write de ta requete SQL.
A+

[ahage4x4]

Salut immobilis,
Fermer et Ouvrir font fermer et ouvrir la connection a une BD access, j'ai oublié de preciser!!

PS: Un truc bizarre; sur mon serveur iis , (mon pc) ca a toujours marché et ca continue de marcher, et chez l'hebergeur jusqu'au premier octobre. Aucun message d'erreur n'apparait, et les variables ont une valeurs = Zero , ce qui veut dire que la connection se fait ainsi que les requetes qui bizarement retournent zero.

SELECT COUNT(IDfile) FROM T_OFFROAD WHERE Uploaddate>#02/11/2005 00:00:01# AND Uploaddate<#02/11/2005 23:59:59#

Merci pour ton aide et j'espere résoudre cet enigme.

[Immobilis]

Ben,...
J'ai fait une requete du meme style sur mon PC et ça marche aussi. Malheureusement, je vois pas.
Affiche tes resultats. Plutôt qu'un count fait un SELECT IDFile FROM... et ecris tous tes résultats pour voir.

A+

[ahage4x4]

Ok immobilis, Je vais tester les requetes, mais il y a un comportement bizarre quand même !!
Je te tiens au courant, merci quand meme.

Anthony

[ahage4x4]

Salut Immobilis,
Comme je te disais sur mon PC tout marchait nickel, maintenant j'ai telechargé la base access de mon serveur net, et j'ai fait les requetes dessus.
Il faut savoir que sur la Base de mon localhost ou ca marchait il y a avait 30 Records, mais sur celle du net ou il y a 100 records ca ne marchait pas.
J'etais donc obligé de changer mes requetes et non pas compter sur le Count qui apparement n'est pas efficace?! quand le nombre de records est elevé??:

Je te remercie de toute facon.
cordialement
Anthony

[Immobilis]

J'ai une table avec plus de 250 000 lignes et ça marche très bien.
Je crois que le pb se trouve dans ton code:

SQL = "SELECT COUNT(IDfile) FROM T_OFFROAD WHERE Uploaddate>#" & borne_inf & "# AND Uploaddate<#" & borne_sup &"#"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.OPEN SQL , CN
OR_count = RS(0)
RS.CLOSE
SQL = "SELECT COUNT(IDfile) FROM T_SKIDOO WHERE Uploaddate>#" & borne_inf & "# AND Uploaddate<#" & borne_sup &"#"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.OPEN SQL , CN
SM_count = RS(0)
RS.CLOSE

Tu ne fermes pas ton recordset avant de faire ta deuxième requete.
Qd je fais pareil je reçois cette erreur:

252532 Premier résultat ok mais ensuite
ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/mcmdb/template.asp, line 34

Quand je le ferme ça fonctionne.
Fais les modifs et tu verras. D'une façon générale, qd tu ouvres un recordset, pense toujours à le fermer
A+

[ahage4x4]

Ah !!
Moi par contre je n'ai pas eu d'erreurs, meme si je ne ferme pas mon premier RS.
Je penserai a tester ron code, car la methode que j'ai faite est de calculer pour chaque date le temps ecoulé avec la date dur jour , pour savoir si la date est du jour ou pas, bref je pense que ma methode prends bcp de temps de calcul surtout pour des milliers de records.

Je te tiens au courant.
Merci bcp !!!