Programación General > Visual Basic 6.0 e inferiores

 Los Top 10 Pero....

(1/1)

Bluebird:
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("5")  If creditos = 0 Then        frametop10.Visible = True        Dim Reco As ADODB.Recordset  Dim rk  Set Reco = New ADODB.Recordset        Reco.Open "SELECT TOP 10 Tema, Autor, NúmeroDeDuplicados FROM Reproducidos ORDER BY NúmeroDeDuplicados DESC;", Constri, adOpenStatic, adLockReadOnly        rk = 1        If Reco.RecordCount <> 0 Then  List4.Clear        Do While Not Reco.EOF         List4.AddItem Format$(rk, "  00") & " ---> " & Reco!Tema & "  ( " & Reco!Autor & " )"         List4.ItemData(List4.NewIndex) = Reco!NúmeroDeDuplicados  rk = rk + 1     Reco.MoveNext  Loop  End If  ' Reco.Close         End IfEnd SelectEnd Sub   

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

--- Código: Text --- If Reco.RecordCount <> 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... :comp:

Un abrazo :hola:

Navegación

[0] Índice de Mensajes