Ошибка выполнения «3709» при доступе к базе данных SQL в VB6
-
03-10-2019 - |
Вопрос
У меня есть написанное кем-то приложение 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, а другой имеет две строки:одно из них - мое пользовательское сообщение об ошибке, а второе - это:"Не удалось войти в систему для пользователя Пользователь".
Это происходит только с одним пользователем на конкретном компьютере, на котором установлена данная программа.Этого не происходит ни на одном другом компьютере с другим пользователем.Я попробовал переустановить программу под этим пользователем на этом компьютере, но это не сработало.
Есть идеи?
Решение
Не совсем уверен, в чем была проблема, но я просто удалил пользователя в Active Directory и создал его снова, и это сработало.Однако пользователь не был членом какой-либо запрещенной группы.