Discussion :

[Godzestla]

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 :

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

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.

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"

[Mercure]

Essaie le fournisseur "IBMDA400".

Je suis loin d'être expert VB, mais voici un exemple en VBA que j'utilise et qui marche pour me connecter à DB2/400 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function DownLoad()
Dim Con As New ADODB.Connection
Dim Cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Con.Open "provider=IBMDA400;data source=MyDSN; USER ID=MyUser; PASSWORD=MyPassword;"
Set Cmd.ActiveConnection = Con
Cmd.CommandText = "SELECT * FROM MyLib.MyTable"
Set rs = Cmd.Execute()
While Not rs.EOF
  ...

[Godzestla]

génial.

Sais-tu s'il faut mettre des quotes ou des doubles quotes autour des paramètres car sans en mettre j'obtiens ceci :

IBMDA400 Session-->CWBCO1004 - Remote adress could not be resolved

NB : pour l'instant, la valeur de mes paramêtres est en dur dans le .OPEN. je passerai par des variables plus tard.

[Mercure]

Fais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "Provider=IBMDA400;Data Source=xxx.xxx.xxx.xxx;", "user", "password"

[Mercure]

Sorry, je viens de modifier mon dernier post.

[Godzestla]

Merci.

Cela fonctionne effectivement pour la connection.
Je regarde maintenant pour l'ouverture et la lecture du fichier car avec ce système d'open, on n'a pas accès au DNS.

Je reviens.