Bonjour,
j'ai posé ma question sur le forum de VBA excel, mais comme c'est assez spécifique à l'AS400, je préfère également la poser ici.
Dans excel, je souhaite effectuer une requête via ADO sur une database AS400.
Pour cela j'ai constitué une DNS sur mon PC avec la librairie, le fichier, le user .... à utiliser pour la connection.
Le problème se situe au niveau de l'établissement de la liaison dans Excel vers l'as400.
Dans ADO, la méthode de connection est la suivante :
La syntaxe et les keywords à utiliser sont fonction du type de Provider Pour les données, et dans l'aide Microsoft Office (Platform SDK Collection for Windows Server 2003 Sp1" je ne trouve pas ce que je dois préciser comme provider pour ma DNS.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Function GetConnexion() As ADODB.Connection Dim cn As New ADODB.Connection ' Choisir une des deux lignes suivantes, selon que tu as créé un dsn ou pas ' Le dsn est plus simple à gérer lors du déploiement sur plusieurs postes qui ' pointent vers une même base cn.open = "Provider=MSDASQL; DSN='DSN_NAME'; Database='DBNAME'; " & _ "UID='ODBC';PWD='ODBC';" cn.Open "dsn=DSN_NAME" Set GetConnexion = cn Set cn = Nothing End Function
Quand je travaille uniquement avec le nom DNS, cela ne suffit pas apparement.
Ou alors il faut travailler au niveau de la définition DNS, mais je ne trouve pas quoi ajouter ni ou.
A chaque tentative de connection, je reçois le message "ADODB.Connection--> provider cannot be found. It may not be proprely installed"
Partager