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
-------------------------------
Réponse au message :
-------------------------------
> 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...
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> 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
>
>
>