Ошибка выполнения «3709» при доступе к базе данных SQL в VB6 - PullRequest
2 голосов
/ 16 сентября 2010

У меня есть приложение VB6, которое кто-то написал, которое не работает только для некоторых пользователей, которые пытаются его использовать.

Этот код работает, который возвращает ошибку:

 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

После запуска этого кода я получаю две ошибки.Одна, в которой указана ошибка времени выполнения 3709, а другая, в которой есть две строки: одна из них - мое пользовательское сообщение об ошибке, а вторая - «Ошибка входа для пользователя пользователя ».

Это происходит только с одним пользователем на определенном компьютере, на котором установлена ​​эта программа.Это не происходит на любом другом компьютере с любым другим пользователем.Я попытался переустановить программу с этим пользователем на этом компьютере, но она не сработала.

Есть идеи?

1 Ответ

2 голосов
/ 10 августа 2011

Не совсем уверен, в чем проблема, но я просто удалил пользователя в Active Directory и создал его снова, и это сработало. Пользователь не был участником каких-либо запрещенных групп.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...