Boutons de navigation de l’application Carnet d’adresses

L’application Address Book affiche les boutons de navigation en bas de la page web. Vous pouvez utiliser les boutons de navigation pour parcourir les données de la grille HTML en sélectionnant la première ou la dernière ligne de données, ou les lignes adjacentes à la sélection actuelle.

Important

À compter de Windows 8 et Windows Server 2012, les composants serveur RDS ne sont plus inclus dans le système d’exploitation Windows (voir le Guide pratique sur la compatibilité de Windows Server 2012 et Windows 8 pour plus de détails). Les composants clients RDS seront supprimés dans une version ultérieure de Windows. Évitez d'utiliser cette fonctionnalité dans de nouveaux travaux de développement, et prévoyez de modifier les applications qui utilisent actuellement cette fonctionnalité. Les applications qui utilisent RDS doivent migrer vers WCF Data Service.

L’application Address Book contient plusieurs procédures qui permettent aux utilisateurs de cliquer sur les boutons First, Next, Previous et Last pour parcourir les données.

Par exemple, cliquer sur le bouton First active la procédure VBScript First_OnClick Sub. La procédure exécute une méthode MoveFirst, qui fait de la première ligne de données la sélection actuelle. Le fait de cliquer sur le bouton Last active la sous-procédure Last_OnClick, qui appelle la méthode MoveLast, ce qui fait de la dernière ligne de données la sélection actuelle. Les boutons de navigation restants fonctionnent de manière similaire.

' 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  

Voir aussi

DataControl, objet (RDS)
MoveFirst, MoveLast, MoveNext et MovePrevious, méthodes (RDS)