Interrogation de la base de données AS/400

propriété ActiveConnection de l’objet Recordset
est définie d’après l’objet Connection actif dénommé cn, créé figure 4. Le fait
d’attribuer la propriété ActiveConnection de l’objet rs à  un objet Connection
actif, associe le nouvel objet Recordset à  l’AS/400 connecté.
Une fois la propriété ActiveConnection définie, une instruction SQL est attribué
à  la propriété Source de l’objet Recordset, et la méthode Open de l’objet Recordset
est exécutée pour extraire les données. Dans cet exemple, les champs DPNBR et
DPNAME sont extraits du fichier dénommé DEPARTMENT dans la bibliothèque ODBCDEMO.

Au terme de la méthode Open, le programme VB peut accéder aux données contenues
dans l’objet Recordset rs, une boucle While lit tout le contenu de l’objet Recordset
rs. A l’intérieur de la boucle While, une variable chaîne dénommée record$ contient
les valeurs des objets Field DPNBR et DPNAME . La variable record$ est ensuite
ajoutée à  une boîte de liste dénommée List_Department.
Une fois les deux valeurs de champ traitées, la méthode MoveNext de l’objet Recordset
déplace le curseur sur la ligne suivante de l’objet Recordset. La boucle se poursuit
jusqu’à  ce que toutes les lignes de l’objet Recordset rs aient été traitées. Enfin,
la méthode Close libère les ressources utilisées par l’objet ADO Recordset.

Le provider OLE DB AS/400 IBMDA400 est inclus dans le produit Client Access