ADO permet d'extraire des données en utilisant l'objet Command ou Recorset. La
figure 5 montre comment utiliser l'objet Recordset avec un objet Connection existant
pour interroger la base de données AS/400.
L'instruction Dim présente au début de cette sous-routine crée un nouvel objet
ADO Recordset dénommé rs. Ensuite, la
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.
|
Compatibilité entre ADO et Client Access La liste suivante présente les niveaux de supports Client Access et les Client Access for Windows 95/NT V3R1M3 : ADO 1.0 Oui Client Access for Windows 95/NT V3R2M0 : ADO 1.0 Oui Client Access Express for Windows V4R4M0 : ADO 1.0 SF55256 ou plus récent * On peut téléchanger les fichiers de correction (fix) pour le client |
Le provider OLE DB AS/400 IBMDA400 est inclus dans le produit Client Access
Téléchargez cette ressource
Préparer l’entreprise aux technologies interconnectées
Avec la « quatrième révolution industrielle », les environnements hyperconnectés entraînent de nouveaux risques en matière de sécurité. Découvrez, dans ce guide Kaspersky, comment faire face à cette nouvelle ère de vulnérabilité.
Les articles les plus consultés
A travers cette chaîne
A travers ITPro
