all html : Le portail des webmaster

liste des forums liste des discussions Participer à la discussion

Message publié le mercredi 06 avril 2005 à 09 h 28 par manua.fr. manua.fr --------------------------------rooooo-----------------------

salut à tous,
Je cherche a compter le nombre de valeur DDExclu
mais je rame.
Voici le code

sql="select date from bce_date "
set RS=connexion.execute(sql)
do while not RS.eof
if RS("date")< Ddebut then
else
if RS("date")<Dfin then
DDExclu = RS("date")
else
end if
end if
RS.movenext
loop

Merci d'avance

• participer

Message publié le mercredi 06 avril 2005 à 13 h 29 par malbaladejo. [8)] malbaladejo

Je ne comprend pas très bien la question.
Est-ce que le code suivant t'aide ?

Dim lngNbDDExclu
lngNbDDExclu = 0

sql="select date from bce_date "
set RS=connexion.execute(sql)
do while not RS.eof
if RS("date")< Ddebut then

else
if RS("date")<Dfin then
DDExclu = RS("date")
lngNbDDExclu = lngNbDDExclu + 1
else

end if
end if
RS.movenext
loop

• participer

Message publié le mardi 12 avril 2005 à 12 h 02 par manua.fr. manua.fr --------------------------------rooooo-----------------------

merci beaucoup malbaladejo,
tu m'as vraiment bien aidé.
@+
Désolé pour cette réponse tardive...
trop de taff

• participer

Message publié le mardi 12 avril 2005 à 15 h 49 par manua.fr. manua.fr --------------------------------rooooo-----------------------

maintenant que je peux récupérer et trié mais données de ma base, comment les placer dans un array ? pour les pouvoir les identifiés avec un split par exemple?

• participer

Message publié le mardi 12 avril 2005 à 16 h 00 par malbaladejo. [8)] malbaladejo

Dim lngNbDDExclu
Dim arrDate
lngNbDDExclu = 0

Redim arrDate(0)

sql="select date from bce_date "
set RS=connexion.execute(sql)
do while not RS.eof
if RS("date")< Ddebut then

else
if RS("date")<Dfin then
DDExclu = RS("date")
lngNbDDExclu = lngNbDDExclu + 1
Redim Preserve arrDate(lngNbDDExclu)
arrDate(lngNbDDExclu) = DDExclu
else

end if
end if
RS.movenext
loop

• participer

Message publié le mardi 12 avril 2005 à 17 h 13 par manua.fr. manua.fr --------------------------------rooooo-----------------------

hum hum !
merci mais alors là va falloir que je potasse !
En fait je fais de ce script une fonction
Function DateG()
Dim lngNbDDExclu
lngNbDDExclu = 0

sql="select date from bce_date "
set RS=connexion.execute(sql)
do while not RS.eof
if RS("date")< Ddebut then

else
if RS("date")<Dfin then
DDExclu = RS("date")
lngNbDDExclu = lngNbDDExclu + 1
else

end if
end if
RS.movenext
loop
end Function

response.write DateG()
et ben c'est là que j'aimerais pouvoir mettre les données dans un Array.
Et le Redim Preserve qui est nouveau pour moi me perturbe, mais je me soigne, encore merci

• participer

Message publié le mardi 12 avril 2005 à 17 h 22 par malbaladejo. [8)] malbaladejo

Tu connais pas a l'avance le nombre de date que tu auras. Redim Preserve permet de redimensionner de ton tableau.
Chaque fois que tu as une nouvelle date, tu augmentes de 1 la taille du tableau et tu stockes la date dedans.

A la fin de mon algo si tu fais :

For i=1 To Ubound(arrDate)
Response.Write arrDate(i)
Next

Tu affiches toutes les dates qui sont dans ton tableau.

• participer

Message publié le jeudi 14 avril 2005 à 17 h 13 par manua.fr. manua.fr --------------------------------rooooo-----------------------

Bon ben c'est un grand merci que je t'adresse malbaladejo.
J'ai finalisé mon projet c'est nikel grace a toi.

• participer

Message publié le jeudi 14 avril 2005 à 17 h 16 par malbaladejo. [8)] malbaladejo

De rien. Bonne continuation. [:-)]

• participer

Message publié le lundi 29 janvier 2007 à 00 h 18 par phagege.

Bonjour,
Merci à vous, cette réponse m'a bien aidé
Patrick

• participer

liste des forums liste des discussions Participer à la discussion

Vous devez obligatoirement vous identifier en tant que membre pour participer à cette discussion.