خطأ وقت التشغيل "3709" أثناء تصنيع قاعدة بيانات SQL في VB6

Question

لديّ تطبيق 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 ، والآخر يحتوي على سطران: أحدهما هو رسالة الخطأ المخصصة الخاصة بي ، والثاني إذا كان هذا: "فشل تسجيل الدخول للمستخدم المستخدم".

يحدث هذا فقط لمستخدم واحد على جهاز كمبيوتر معين يتم تثبيته على هذا البرنامج. لا يحدث على أي جهاز كمبيوتر آخر مع أي مستخدم آخر. حاولت إعادة تثبيت البرنامج مع هذا المستخدم على هذا الكمبيوتر ، لكنه لم ينجح.

أيه أفكار؟

Answer 1

لست متأكدًا تمامًا من المشكلة ، لكنني قمت بمسح المستخدم على Active Directory وقمت بإنشائها مرة أخرى ، وقد نجحت. لم يكن المستخدم عضوًا في أي مجموعات إنكار رغم ذلك.