Connexion à  l’AS/400

provider IBMDA400 OLE DB natif pour l’AS/400. On peut
utiliser ces deux providers OLE DB avec les objets ADO Connection, Command et
Recordset. Voyons comment se connecter à  IBMDA400 depuis une application VB 6.0.

Avant de pouvoir utiliser ADO à  partir de VB, il faut établir une référence vers
l’ADO dans le projet VB. Pour ajouter une référence à  la bibliothèque objet ADO
en VB 6.0, sélectionnez References dans le menu Project pour afficher la boîte
de dialogue References de la figure 3.

OLE DB et ADO assurent une liaison performante et pratiquement directe entre les
applications Windows et la base de données AS/400

Défilez jusqu’à  la rubrique Microsoft ActiveX Data Objects 2.x Library. Sélectionnez
la référence et cliquez sur OK pour ajouter la bibliothèque objet ADO au projet.
Vous pouvez désormais établir une connexion vers l’AS/400 en utilisant l’objet
ADO Connection. Le code VB de la figure 4 indique comment procéder.

La première ligne de la figure 4 montre l’endroit où vous créez une instance de
l’objet ADO Connection nommé cn. Ensuite, la méthode Open de l’objet Connection
est exécutée et une chaîne (string) de connexion OLE DB est transmise comme premier
paramètre. La chaîne de connexion OLE DB indique le provider OLE DB et la source
de données cible à  laquelle il se connectera.
La chaîne de connexion de l’exemple utilise le mot-clé PROVIDER pour indiquer
le provider IBMDA400 et le mot-clé DATA SOURCE pour indiquer que le provider se
connectera à  l’AS/400 dénommé S101AA0A. Pour utiliser le provider OLE DB pour
l’AS/400, il faut indiquer le mot-clé PROVIDER ; faute de quoi, la valeur de MSDASQL
sera le provider par défaut. Les deux paramètres suivants, indiqués par les deux
paires de doubles guillemets («  »), indiquent l’ID utilisateur et le mot de passe.
Toutefois, le provider IBM AS/400 OLE DB ne reconnaît pas ces paramètres. Dans
ce cas, l’ID utilisateur et le mot de passe sont tirés des propriétés de Client
Access offrant deux possibilités : soit l’utilisation de votre ID utilisateur
et mot de passe Windows, soit l’indication que l’ID utilisateur et le mot de passe
seront demandés au moment de la connexion. Une fois la méthode Open terminée,
on peut effectuer d’autres accès à  la base de données ADO. Quand la connexion
n’est plus nécessaire, on peut la fermer par la méthode Close.

Dans l’exemple, j’ai codé en dur le nom du système spécifié dans DATA SOURCE.
Lors du déploiement d’applications ADO, on pourra être amené à  modifier le nom
du système utilisé pour le faire correspondre au nom de source cible auquel on
se connectera. C’est pourquoi il est bon de permettre la configuration du nom
du système à  l’exécution.