Ошибка выполнения «3709» при доступе к базе данных SQL в VB6

StackOverflow https://stackoverflow.com/questions/3724556

  •  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 и создал его снова, и это сработало.Однако пользователь не был членом какой-либо запрещенной группы.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top