[VB] solo gli ultimi 8!!!

[Thyplosion]

sono di nuovo io
stavolta ho un altro problema con lo stesso programma:
per prendere i messaggi dal database io uso

    [COLOR="Navy"]While[/COLOR] rs.EOF = [COLOR="Navy"]False[/COLOR]
        messaggi.Text = messaggi.Text _
        & rs("nick") _
        & " dice:" _
        & vbCrLf _
        & rs("messaggi") _
        & vbCrLf _
        & vbCrLf
        data.Text = rs("data")
        rs.MoveNext
    [COLOR="Navy"]Wend[/COLOR]

ma così prendo tutti i messaggi.
io vorrei scegliere solo gli ultimi 8!
qualcuno mi può aiutare?
grazie

 

[Thyplosion]

ho risolto:

'dichiaro variabili x funzione
Dim k As Integer
Dim testo(8) As String

'spostamento a posizione iniziale del conteggio degli 8
If Not rs.EOF Then
  rs.MoveLast
  k = 8
  data.Text = rs("data")
  
  'ciclo x assegnare i valori all'array contenente i msg
  Do
      testo(k) = rs("nick") & " dice:" & vbCrLf & rs("messaggi") & vbCrLf & vbCrLf
      k = k - 1
      rs.MovePrevious
      If rs.BOF Or k = 0 Then Exit Do
  Loop
  
  'stampo msg
  For k = 0 To 8
      messaggi.Text = messaggi.Text & testo(k)
  Next
End If
End If

 

[lukeonweb]

complimenti, la soluzione tecnicamente è ineccepibile, ma non mi piace... io preferisco demandare il compito al dbms, non ad ado, semplicemente con questa stringa sql

select top 8 * from tabella order by id desc

:byebye:

 

[Cforever]

complimenti, la soluzione tecnicamente è ineccepibile, ma non mi piace... io preferisco demandare il compito al dbms, non ad ado, semplicemente con questa stringa sql

select top 8 * from tabella order by id desc

:byebye:

Questo mi pare un chiaro esempio sul come si distruggono ore e ore di duro lavoro....:evil: :evil: :evil: :evil: :evil:

 

[lukeonweb]

Questo mi pare un chiaro esempio sul come si distruggono ore e ore di duro lavoro....:evil: :evil: :evil: :evil: :evil:

L'ho fatto senza cattiveria...