> Tech > Interrogation de la base de données AS/400

Interrogation de la base de données AS/400

Tech - Par iTPro - Publié le 24 juin 2010
email

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
versions ADO compatibles.

Client Access for Windows 95/NT V3R1M3 :

ADO 1.0 Oui
ADO 1.5 et 2.0 SF56517 ou plus récent
ADO 2.1 et 2.5 Non, non prévu

Client Access for Windows 95/NT V3R2M0 :

ADO 1.0 Oui
ADO 1.5 et 2.0 SF55446 ou plus récent
ADO 2.1 et 2.5 V3R2M0 ftp téléchargement *

Client Access Express for Windows V4R4M0 :

ADO 1.0 SF55256 ou plus récent
ADO 1.5 et 2.0 Oui
ADO 2.1 et 2.5 SF57098 ou plus récent

* On peut téléchanger les fichiers de correction (fix) pour le client
XD1 V3R2M0 à  l’adresse
ftp://ftp.software.ibm.com/as400/products/clientaccess/win32/v3r2m0/files/ado/.

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

Téléchargez gratuitement cette ressource

Sécurité Office 365 : 5 erreurs à ne pas commettre

Sécurité Office 365 : 5 erreurs à ne pas commettre

A l’heure où les données des solutions Microsoft de Digital Workplace sont devenues indispensables au bon fonctionnement de l’entreprise, êtes-vous certain de pouvoir compter sur votre plan de sécurité des données et de sauvegarde des identités Microsoft 365, Exchange et Teams ? Découvrez les 5 erreurs à ne pas commettre et les bonnes pratiques recommandées par les Experts DIB France.

Tech - Par iTPro - Publié le 24 juin 2010