ランタイムエラー '3709' vb6でSQLデータベースをアクセスしている間
-
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
このコードが実行された後、2つのエラーが発生します。 1つはランタイムエラー3709を記載し、もう1つは2つの行を備えたものです。1つはカスタムエラーメッセージ、2番目の行は次の場合です。 ユーザー".
これは、このプログラムがインストールされている特定のコンピューター上の1人のユーザーにのみ発生します。他のユーザーと一緒に他のコンピューターでは発生しません。そのコンピューターでそのユーザーを使用してプログラムを再インストールしてみましたが、機能しませんでした。
何か案は?
解決
問題が何であるかはよくわかりませんが、Active Directoryでユーザーを消去して再度作成し、機能しました。ただし、ユーザーは拒否グループのメンバーではありませんでした。
所属していません StackOverflow