jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 11 févr. 2005 à 13:12
Je ne connaît pas le serveur sur lequel vous raccordez!
Essayez le code suivant, il vous aidera peut être à trouver la solution.
Dim cnx As ADODB.Connection
Dim cmd As ADODB.Recordset
Set cmd = New ADODB.Recordset
Set cnx = New ADODB.Connection
Dim ConnectionString As String
ConnectionString = "DSN=connect_as400;UID=profil;PWD=mdp;"
cnx.Open ConnectionString
cmd.ActiveConnection = cnx
cmd.Open "ADDLIBLE LIB(MaBib)"
cmd.Fields("MaBib") = adCmdText
cmd.MoveNext
End Sub
skiman001
Messages postés3Date d'inscriptionmercredi 17 novembre 2004StatutMembreDernière intervention 1 juin 2007 20 oct. 2005 à 15:37
bonjour,
je ne sais pas si tu as trouvé ton pb entre temps mais est-ce que ton profil de connexion à des droits de type programmeur ou au dessus? si non alors change de profil