Botões de navegação do catálogo de endereços

O aplicativo Catálogo de Endereços exibe os botões de navegação na parte inferior da página da Web. Use os botões de navegação para navegar pelos dados na exibição da grade HTML selecionando a primeira ou a última linha de dados ou as linhas adjacentes à seleção atual.

Importante

A partir do Windows 8 e do Windows Server 2012, os componentes do servidor RDS não estão mais incluídos no sistema operacional Windows (confira Windows 8 e Manual de Compatibilidade do Windows Server 2012 para obter mais detalhes). Os componentes do cliente RDS serão removidos em uma versão futura do Windows. Evite usar esse recurso em desenvolvimentos novos e planeje modificar os aplicativos que atualmente o utilizam. Os aplicativos que usam o RDS devem migrar para o Serviço de Dados do WCF.

Subprocedimentos de navegação

O aplicativo Catálogo de Endereços contém vários procedimentos que permitem que os usuários cliquem nos botões Primeiro, Próximo, Anterior e Último para percorrer os dados.

Por exemplo, se você clicar no botão Primeiro, isso ativará o procedimento Sub First_OnClick do VBScript. O procedimento executa um método MoveFirst, que torna a primeira linha de dados a seleção atual. Se você clicar no botão Último, isso ativará o procedimento Sub Last_OnClick, que invoca o método MoveLast, tornando a última linha de dados a seleção atual. Os botões de navegação restantes funcionam de maneira semelhante.

' Move to the first record in the bound Recordset.  
Sub First_OnClick  
   DC1.Recordset.MoveFirst  
End Sub  
  
' Move to the next record from the current position   
' in the bound Recordset.  
Sub Next_OnClick  
   If Not DC1.Recordset.EOF Then    ' Cannot move beyond bottom record.  
      DC1.Recordset.MoveNext  
      Exit Sub  
   End If     
End Sub  
  
' Move to the previous record from the current position in the bound   
' Recordset.  
Sub Prev_OnClick  
   If Not DC1.Recordset.BOF Then    ' Cannot move beyond top record.  
      DC1.Recordset.MovePrevious  
      Exit Sub  
   End If  
End Sub  
  
' Move to the last record in the bound Recordset.  
Sub Last_OnClick  
   DC1.Recordset.MoveLast  
End Sub  

Consulte Também

Objeto DataControl (RDS)
Métodos MoveFirst, MoveLast, MoveNext e MovePrevious (RDS)