[VB6] Paginazione RecordSet

[logan78]

potresti indicarmi come integrare in questo codice pagine da 10 record.

Private Sub Command2_Click()
Dim i As Integer
Dim Sposta As Integer
S = 1200
i = 1

Call connetti

Rs.Open "SELECT * FROM u_89", Cn

Do While Not Rs.EOF

 Load Me.Text1(i)

    With Me.Text1(i)

        .Left = 3000

        .Top = i * Me.Text1(i - 1).Height

        .Visible = True

    End With

    

    If Rs.State <> 0 Then 'se non si sono verificati errori
        If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Me.Text1(i).Text = Rs("CodForn")
        End If
    Else
        MsgBox "Errore durante l'apertura della tabella", vbCritical
    End If
    i = i + 1
    S = S + 10
    

Loop

Cn.Close
Set Cn = Nothing


End Sub

[Jupy64]

prova così... non ho controllato sintassi, ne dichiarazione di variabili.. vedi tu.

Private Sub Command2_Click()
  Dim i As Integer
  Dim Sposta As Integer
  S = 1200
  i = 1

  Call connetti

  Rs.Open "SELECT * FROM u_89", Cn

	RS.PageSize=10
	totPage=cLng(RS.PageCount)

  RS.AbsolutePage = numPage 'questo valore lo devi impostare prima.. è il numero di pagina che vuoi leggere..
  'non deve essere maggiore del totale delle pagine..

   For idxpage = 1 To RS.PageSize		

      Load Me.Text1(i)
      With Me.Text1(i)
        .Left = 3000
        .Top = i * Me.Text1(i - 1).Height
        .Visible = True
      End With

      If Rs.State <> 0 Then 'se non si sono verificati errori
        If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
            Me.Text1(i).Text = Rs("CodForn")
        End If
      Else
        MsgBox "Errore durante l'apertura della tabella", vbCritical
        exit for
      End If
      i = i + 1
	   
           RS.MoveNext
	   If RS.EOF Then Exit For    
   next

  Cn.Close
  Set Cn = Nothing
End Sub

Io ti ho messo il codice che dovresti usare...ma logicamente non è corretto mettere tutto in quella maniera dentro un evento click!! devi rivedere il codice e ottimizzarlo con richiamo di sub a parte...

[Jupy64]

anche se lo so, dall'altra discussione, non hai specificato il tipo di linguaggio!!

[logan78]

Grazie,
Specifica linguaggio dimenticata ERRORE

Vedo di ottimizzare il codice Grazie

[logan78]

lo ho provato funziona benissimo.

Grazie

[logan78]

Come faccio ad associare i pulsanti avanti ed indietro per scorrere le pagine

[Jupy64]

esempio di pseudo codice

Private Sub LeggiPagina(scorriPag as string)
   dim numPag as long
   numPag= RS.AbsolutePage
   if scorriPag="avanti" then
      if numPag<RS.PageCount then
         numPag=numPag+1
      end if
   elseif scorriPag="indietro" then
      if numPag>1 then
         numPag=numPag-1
      end if 
   end if
   RS.AbsolutePage=numPag
   ...
   qui metti il codice, per leggere i record...(ciclo for)
end sub

A questo punto richiami la sub con due pulsanti "avanti"->LeggiPagina("avanti") e "indietro"->LeggiPagina("indietro")