2

我有一个某人编写的 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，另一个有两行：其中之一是我的自定义错误消息，第二个如果这样：“用户登录失败”。

这只发生在安装此程序的特定计算机上的一个用户身上。它不会在任何其他用户的任何其他计算机上发生。我尝试在该计算机上使用该用户重新安装程序，但它不起作用。

有任何想法吗？

4

1 回答 1

2

不太确定问题出在哪里，但我只是删除了 Active Directory 上的用户并再次创建它，它工作正常。但是，该用户不是任何拒绝组的成员。

于 2011-08-10T15:34:18.307 回答