SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Bluebird en Martes 22 de Noviembre de 2005, 21:55

Título: Los Top 10 Pero....
Publicado por: 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
  1. Case Asc("5")
  2.   If creditos = 0 Then
  3.         frametop10.Visible = True
  4.         Dim Reco As ADODB.Recordset
  5.   Dim rk
  6.   Set Reco = New ADODB.Recordset
  7.         Reco.Open "SELECT TOP 10 Tema, Autor, NúmeroDeDuplicados FROM Reproducidos ORDER BY NúmeroDeDuplicados DESC;", Constri, adOpenStatic, adLockReadOnly
  8.         rk = 1
  9.         If Reco.RecordCount <> 0 Then
  10.   List4.Clear
  11.         Do While Not Reco.EOF
  12.          List4.AddItem Format$(rk, "  00") & " ---> " & Reco!Tema & "  ( " & Reco!Autor & " )"
  13.          List4.ItemData(List4.NewIndex) = Reco!NúmeroDeDuplicados
  14.   rk = rk + 1
  15.      Reco.MoveNext
  16.   Loop
  17.   End If
  18.   ' Reco.Close
  19.  
  20.         End If
  21. End Select
  22. End Sub
  23.  
  24.  
  25.  
Título: Re: Los Top 10 Pero....
Publicado por: jodijo5 en Miércoles 23 de Noviembre de 2005, 21:16
copachay,me parece que el problema radica en esta parte de tu codigo:
Código: Text
  1.  
  2. If Reco.RecordCount <> 0 Then
  3.   List4.Clear
  4.  
  5.  

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
  1.  
  2. if not Reco.eof then
  3.    List4.Clear
  4.    .
  5.    .
  6.    .
  7.  
  8.  
Título: Re: Los Top 10 Pero....
Publicado por: Bluebird en Viernes 16 de Diciembre de 2005, 14:41
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... :comp:

Un abrazo :hola: