Imports DAO
Public Function ChangePassword(ByVal Database As String, ByVal NewPassword As String, ByVal OldPassword As String)
Dim DAOCONN As New DAO.DBEngine
Dim db As DAO.Database
db = DAOCONN.OpenDatabase(Database, True, False, ";pwd=" & OldPassword)
If Err.Number <> 0 Then Exit Function
db.NewPassword(OldPassword, NewPassword)
ChangePassword = Err.Number = 0
db.Close()
End Function
اللهم انصر الاسلام والمسلمين
مشكور اخي على هذه المعلومة
عندي سؤال اذا كانت القاعدة محمية بكلمة مرور كيف يمكنني فتح القاعدة بالفجوال بيسك اي كيف يمكن لبرنامجي فتح القاعدة المحمية ولو ممكن تشرح لنا البرنامج كامل كيف يقوم فتجها وتغير الكلمة
وشكرا لك
رد يا ايمن عشبة لو كانت محمية كيف يصير
أيمن عشبة و الله زمان
سلام عليكم ...
يتروى لي أن الكود صالح لاي قاعدة بيانات سواء كانت محمية او غير محمية بكلمة مرور
وهذا يتضح من رأس الدالة التالية :
Public Function ChangePassword(ByVal Database As String, ByVal NewPassword As String, ByVal OldPassword As String)
------
OldPassword
و
NewPassword
وشكرا
مرحباااااااااا
طيب وما الحل فى
معرفة كلمة السر الخاصة يالأكسس على سبيل المثال
اذا كانت محمية بكلمة سر هل من وسيلة لمعرفتها برمجياً ؟؟؟؟؟؟؟؟؟
نعم يوجد حل ولكن ماهو ؟؟؟؟؟؟؟؟؟؟؟؟؟
نرجو الافادة
تحياتى
قال رسول الله صلى الله عليه وسلم
يكبر بن أدام ويكبر معه شيئان كثرة المال وطول العمر
صدق رسول الله صلى الله عليه وسلم
قال عمر بن الخطاب رضي الله عنه
نحن قوم أعزنا الله بالإسلام فإذا إبتغينا العزة فى غيره أذلنا الله
هذا الموضوع مغلق.