Avec un formulaire acces le code suivant marche tres bien, je récupere le nom et le prenom d'un utilisateur à partir de son id (ici ipn).
Quand je veux faire une page HTML à la place d'un formulaire ACCESS et bien ca ne fonctionne pas !
je pense que c'est un truc tous bete mais je sais pas ce qui merde :s
rappel : c'est un script que l'on ma passé dans la boite ou ej travail
c_IPN = v_ipn 'txt field contenu dans mon formulaire, ceci est la clé primaire sur laquelle va se baser la recherche
'definition des variables de connexion ARCA
sComputerLDAP = "XXX"
sPrefixLDAP = "LDAP://" & sComputerLDAP & "/"
sContainerLUser = "ou=people,o=XXX"
ADsPathARCA = "<" & sPrefixLDAP & sContainerLUser & ">"
'conexion ARCA
Set connexionLDAP = CreateObject("ADODB.Connection")
connexionLDAP.Provider = "ADsDSOObject"
connexionLDAP.Open "LDAP Provider" 'nom de conexion au choix ...
'Recherche de l'utilisateur dans ARCA avec son c_IPN :
Set rs = connexionLDAP.Execute(ADsPathARCA & ";(&(objectclass=extendedperson)(uid=" & c_IPN & "));cn,ADsPath")
ARCA = 1
If rs.EOF Then
ARCA = 0
'Erreur sur l'ipn
MsgBox "IPN non valide"
connexionLDAP.Close
Set connexionLDAP = Nothing
End If
If ARCA <> 0 Then
userPath = rs.Fields("ADsPath")
Set USER1 = GetObject(userPath)
'les fonctions get sont définies pour récupérer les champs de la table
V_Nom = USERl.Get("sn") 'txt field contenu dans mon formulaire'
V_Prenom = USERl.Get("givenname") 'txt field contenu dans mon formulaire'
End If
'Fermeture de la connexion ARCA
connexionLDAP.Close
Set connexionLDAP = Nothing
Merci
. J'ai posté ce truc sur les forum VB France et pleins de forum de prog et j'ai eu que des réponses foireuses...
.