Autor Tema: Los Top 10 Pero.... (Leído 1321 veces)

Bluebird · « **en:** Martes 22 de Noviembre de 2005, 21:55 »

Hice este código para que me muestre una pantalla con el Top 10 de los mas escuchados...cuando presiono "5" y el crédito es de 0 (Cero)....Lo que pasa es que me sigue sumando y mostrando después del 10º tema...

Código: Text

Case Asc(&#34;5&#34;)
  If creditos = 0 Then
        frametop10.Visible = True
        Dim Reco As ADODB.Recordset
  Dim rk
  Set Reco = New ADODB.Recordset
        Reco.Open &#34;SELECT TOP 10 Tema, Autor, NúmeroDeDuplicados FROM Reproducidos ORDER BY NúmeroDeDuplicados DESC;&#34;, Constri, adOpenStatic, adLockReadOnly
        rk = 1
        If Reco.RecordCount &#60;&#62; 0 Then
  List4.Clear
        Do While Not Reco.EOF
         List4.AddItem Format&#036;(rk, &#34;  00&#34;) & &#34; ---&#62; &#34; & Reco!Tema & &#34;  ( &#34; & Reco!Autor & &#34; )&#34;
         List4.ItemData(List4.NewIndex) = Reco!NúmeroDeDuplicados
  rk = rk + 1
     Reco.MoveNext
  Loop
  End If
  ' Reco.Close
 
        End If
End Select
End Sub
 
 
 

jodijo5

copachay,me parece que el problema radica en esta parte de tu codigo:

Código: Text

 
If Reco.RecordCount &#60;&#62; 0 Then
  List4.Clear

eh tenido problemas muchas veces con esto, a pesar que tenia registros, pues el recordcount me marcaba como si no hubiese registros.
porque no haces esto:

en ves de eso pones:

Código: Text

 
if not Reco.eof then
   List4.Clear
   .
   .
   .
 
 

Bluebird

Jodijo5 :

Perdon que no respondi antes...pero estoy con problemas de salud y recién ahora puedo empezar a "caminar" de nuevo...

Gracias por responder...yo creo que lo resolvi...luego te paso el código..ahora no estoy en mi maquina...

Un abrazo

SoloCodigo

Autor Tema: Los Top 10 Pero.... (Leído 1321 veces)

Bluebird

Los Top 10 Pero....

jodijo5

Re: Los Top 10 Pero....

Bluebird

Re: Los Top 10 Pero....