As400/db2 et lien non dsn avec vb

larry57 Messages postés 1 Date d'inscription lundi 2 septembre 2002 Statut Membre Dernière intervention 2 septembre 2002 - 2 sept. 2002 à 09:55
ced1ers Messages postés 2 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 24 février 2003 - 24 févr. 2003 à 16:50
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

cs_asd Messages postés 32 Date d'inscription mercredi 9 janvier 2002 Statut Membre Dernière intervention 5 novembre 2003
2 sept. 2002 à 12:50
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
ced1ers Messages postés 2 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 24 février 2003
24 févr. 2003 à 16:50
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
Rejoignez-nous