Erreur d'exécution « 3709 » lors de l'accès base de données SQL dans VB6

Question

J'ai une application VB6 qui a écrit quelqu'un, qui ne fonctionne pas uniquement pour certains utilisateurs qui tentent de l'utiliser.

Ceci est le fonctionnement de code qui renvoie une erreur:

 On Error GOTO error_handler
 ..
 Set db = New ADODB.Connection
 db.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=****;Password=****; Initial Catalog=***;Data Source=****,1433"
 error_handler:
 If db.Error.count then
 strDBErrors = "No access to Main Database."
 For Each err In db.errors
  strDBErrors = strDBErrors & vbCrLf & err.Description
 Next
 MsgBox strDBErrors

Après ce code se exécute, je reçois deux boîtes d'erreur. Un qui indique une erreur d'exécution 3709, et l'autre qui a deux lignes: l'une est mon message d'erreur personnalisée, et le second si ceci: « Échec de la connexion pour l'utilisateur l'utilisateur »

Cela ne se produit à un utilisateur sur un ordinateur spécifique sur lequel ce programme est installé. Il ne se produit pas sur tout autre ordinateur avec tout autre utilisateur. J'ai essayé de réinstaller le programme avec cet utilisateur sur cet ordinateur, mais ça n'a pas marché.

Toutes les idées?

Answer 1

Pas tout à fait sûr de ce que le problème était, mais j'effacé l'utilisateur sur Active Directory et créé à nouveau, et cela a fonctionné. L'utilisateur n'a pas été membre d'un groupe nier cependant.