[VB]ADODB.connection

Question

Bonjour,

J'utilise l'outil ADODB.connection afin de faire des modifications sur mon Active Directory.

Le code marche très bien lorsque je le lance avec un utilisateur ayant les droits nécessaires.

Cependant je souhaiterais pouvoir demander à l'utilisateur de
rentrer manuellement son login mot de passe afin qu'il puisse utiliser
le script depuis n'importe quelle session.

Ce qu'il me manque c'est la syntaxe pour passer les paramètres de connection a la fonction ADODB...

voici la syntaxe utilisé pour créer la connection:

            oConnection = CreateObject("ADODB.Connection")

            oConnection.Provider = "ADsDSOObject"

            oConnection.Open("ADs Provider")


oConnection.Properties("User ID" ) = userName

oConnection.Properties("Password" ) = password

Merci de votre aide!

cs_Jack · Answer

Salut
Euh ... Tu sais gérer une DB et tu ne sais pas comment demander à l'utilisateur de saisir des données ? Bizarre

Bref, avant ces lignes, il te suffit d'ajouter
   UserName = InputBox("Saisissez votre nom d'utilisateur")
   Password = InputBox("Saisissez le mot de passe associé à l'utilisateur " & UserName & " : ")
ou encore, créer une petite forme avec deux TextBox et un bouton Ok

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Jack · Answer

Je pense qu'il serait judicieux de donner tous les paramètre AVANT d'ouvrir la DB !
--> Place le OPEN en dernier

Un CreateObject en VB6 ? Bizarre² : Pourquoi ne pas avoir dimensionné une connexion standard ?
C'est surement du vbScript, non ?

xav3601 · Answer

Alors en fait ma syntaxe exact est la suivante maintenant:

objConnection = CreateObject("ADODB.Connection")
                With objConnection
                    .Provider = "ADsDSOObject"
                    .Properties("User Id") = strUserName
                    .Properties("Password") = strPassword
                    .Open("ADs Provider")
                End With

Avant j'avais en effet inverse et mis le open au mauvaise endroit dans le post, mais de le code il etait bien apres!

et sinon ca n'est pas du VBScript, mais ayant d'abord réalisé un script du même style en vbs j'ai largement récupéré ce que j'avais fais et du coup je me retrouve avec un createobject ici....
bref le problème ne viens pas de la!
les champs strUserName et strPassword sont bien complété mais j'obtiens toujours une erreur  me disant que je n'ai pas les droits d'accès!

merci pour votre aide.

[VB]ADODB.connection

3 réponses

Votre réponse

Discussions similaires