As400/db2 et lien non dsn avec vb

Signaler
Messages postés
1
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
2 septembre 2002
-
Messages postés
2
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
24 février 2003
-
Je n'arrive pas à établir une connection sur un as/400 distant avec une chaine de connection sous vb.
Le code:
Public cnnado As New ADODB.Connection
Public cmdado As New ADODB.Command
Public rsado As New ADODB.Recordset

cnnado.Open "DRIVER=Client Access ODBC Driver (32-bit);system=213.223.***.**;Uid=*****;Pwd=*****;"
cmdado.CommandText = "Select ARCOD from [MALIB.ARTICLES]"
rsado.Open cmdado, , adOpenStatic, adLockOptimistic

Merci d'avance

2 réponses

Messages postés
32
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
5 novembre 2003

J'utilise une connexion vers une base DB2 mais j'ai ete oblige de creer une source ODBC qui s'appelle BASEPARC dans l'exemple ci-dessous. Dans la config de la source odbc, mets juste la bibliotheque que tu attaques....

'ChConnect "Provider=MSDASQL.1;Password=mot de passe en clair;Persist Security Info=True;User ID=BASEPARC;Data Source=BASEPARC;Mode=ReadWrite"'Set cnx New ADODB.Connection
cnx.ConnectionString = ChConnect
cnx.Open

'Exemple d'une requete:
sSqlsite = "SELECT * FROM SITE ORDER BY SITE.NOMSIT"

Set rsSITE = New ADODB.Recordset
rsSITE.Open sSqlsite, cnx, adOpenForwardOnly, adLockReadOnly
lstwSite.ListItems.Clear
Do While Not rsSITE.EOF
    Set lstItem = lstwSite.ListItems.Add(, "P" & rsSITE("SITE"), rsSITE("NOMSIT"))
    rsSITE.MoveNext
Loop
If rsSITE.State = 1 Then rsSITE.Close


Le plus important est ta chaine de connexion.
Esperent que cela puisse t'aider...
0
Messages postés
2
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
24 février 2003

Bonjour, j'aurai voulu utiliser le code donné ici mais, ca ne marche pas :-/

sSqlsite = "SELECT * FROM nombiblio.nomfichier"

Set rsSITE = New ADODB.Recordset
rsSITE.Open sSqlsite, cnx, adOpenForwardOnly, adLockReadOnly

Ca plante à la derniere ligne (la connection à l'AS400 fonctionne, c'est le SQL qui bloque)
Qqu pourrait me dire pourquoi svp?

Cédric
0