Boutons de commande de l’application Carnet d’adresses

L’application Carnet d’adresses inclut les boutons de commande suivants :

• Bouton Rechercher pour envoyer une requête à la base de données.

• Bouton Effacer pour effacer les zones de texte avant de commencer une nouvelle recherche.

• Bouton Mettre à jour le profil pour enregistrer les modifications apportées à un enregistrement d’employé.

• Bouton Annuler les modifications pour ignorer les modifications.

Bouton Rechercher

Le fait de cliquer sur le bouton Rechercher active la procédure VBScript Find_OnClick Sub, qui génère et envoie la requête SQL. Cliquer sur ce bouton remplit la grille de données.

Génération de la requête SQL

La première partie de la procédure Find_OnClick Sub génère la requête SQL, une expression à la fois, en ajoutant des chaînes de texte à une instruction SQL SELECT globale. Elle commence par définir la variable myQuery sur une instruction SQL SELECT qui demande toutes les lignes de données de la table de source de données. Ensuite, la sous-procédure analyse chacune des quatre zones d’entrée de la page.

Étant donné que le programme utilise le mot like dans la création des instructions SQL, les requêtes sont des recherches de sous-chaîne plutôt que des correspondances exactes.

Par exemple, si la zone Nom contenait l’entrée « Berge » et que la zone Titre contenait l’entrée « Program Manager », l’instruction SQL (valeur de myQuery) lisait :

Select FirstName, LastName, Title, Email, Building, Room, Phone from Employee where lastname like 'Berge%' and title like 'Program Manager%'  

Si la requête a réussi, toutes les personnes portant un nom contenant le texte « Berge » (par exemple, Berge et Berger) et avec un titre contenant les mots « Program Manager » (par exemple, Program Manager, Advanced Technologies) sont affichées dans la grille de données HTML.

Préparation et envoi de la requête

La dernière partie de la procédure Find_OnClick Sub se compose de deux instructions. La première instruction affecte la propriété SQL du RDS. Objet DataControl égal à la requête SQL générée dynamiquement. La deuxième instruction provoque le RDS. Objet DataControl (DC1) pour interroger la base de données, puis afficher les nouveaux résultats de la requête dans la grille.

Sub Find_OnClick  
   '...  
   DC1.SQL = myQuery  
   DC1.Refresh  
End Sub  

Bouton de mise à jour du profil

Le fait de cliquer sur le bouton Mettre à jour le profil active la procédure VBScript Update_OnClick Sub, qui exécute le service Bureau à distance. MéthodesDC1SubmitChanges et Refresh de l’objet DataControl.

Sub Update_OnClick  
   DC1.SubmitChanges  
   DC1.Refresh  
End Sub  

Lors DC1.SubmitChanges de l’exécution, le service de données distant empaquette toutes les informations de mise à jour et les envoie au serveur via HTTP. La mise à jour est tout ou rien ; si une partie de la mise à jour échoue, aucune des modifications n’est apportée et un message d’état est retourné. DC1.Refresh n’est pas nécessaire après SubmitChanges avec le service de données à distance, mais il garantit de nouvelles données.

Bouton Annuler les modifications

Le fait de cliquer sur Annuler les modifications active la procédure VBScript Cancel_OnClick Sub, qui exécute l’objet RDS.DataControl de la méthode (DC1) CancelUpdate.

Sub Cancel_OnClick  
   DC1.CancelUpdate  
End Sub  

Lorsqu’il DC1.CancelUpdate s’exécute, il ignore toutes les modifications apportées par un utilisateur à un enregistrement d’employé sur la grille de données depuis la dernière requête ou mise à jour. Elle restaure les valeurs d’origine.

Voir aussi

Boutons de navigation de l’application Carnet d’adresses
DataControl, objet (RDS)