اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود تغيير كلمة مرور قاعدة بيانات خارجية


ابوأسد

الردود الموصى بها

تفضل :

كود لكلمة مرور  قاعدة بيانات بعيدة

يمكنك من خلاله

1-الغاء كلمة المرور 

2- تعديل كلمة المرور

3- انشاء كلمة مرور جديدة

Private Sub ChangeAccessPassword(OldPass As String, NewPass As String)
    Dim Db As Database
    ' opens the databse, using the old password.
    ' replace "C:\MyDir\Mydb1.mdb" with your database file name 
    Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass)
    ' setthe new password
    Db.NewPassword OldPass, NewPass
    ' close the database 
    Db.Close
End Sub


Private Sub Command1_Click()
' replace "oldPassword" with the current database password, and
' "newPassword" with the new password you want the database will have.
    Call ChangeAccessPassword("oldPassword", "newPassword")
End Sub

 

  • Like 2
رابط هذا التعليق
شارك

8 ساعات مضت, ابوخليل said:

تفضل :

كود لكلمة مرور  قاعدة بيانات بعيدة

يمكنك من خلاله

1-الغاء كلمة المرور 

2- تعديل كلمة المرور

3- انشاء كلمة مرور جديدة


Private Sub ChangeAccessPassword(OldPass As String, NewPass As String)
    Dim Db As Database
    ' opens the databse, using the old password.
    ' replace "C:\MyDir\Mydb1.mdb" with your database file name 
    Set Db = OpenDatabase("C:\MyDir\Mydb1.mdb", True, False, ";pwd=" & OldPass)
    ' setthe new password
    Db.NewPassword OldPass, NewPass
    ' close the database 
    Db.Close
End Sub


Private Sub Command1_Click()
' replace "oldPassword" with the current database password, and
' "newPassword" with the new password you want the database will have.
    Call ChangeAccessPassword("oldPassword", "newPassword")
End Sub

 

بارك الله فيك ااستاذنا ابوخليل

بس ممكن علي استحياء اطلب توضيح او مرفق لمعرفة طريقة التطبيق لان تلك الطريقة ستفتح افكار جديدة 

رابط هذا التعليق
شارك

اخوي محمد  الاسطر عليها شرح وافي  ولكن باللغة الانجليزية

ويبقى طرق الاستفادة  في الالغاء او التعديل او الجديد

طبعا الجديد  ستكون القاعدة بدون  كلمة مرور 

اما الالغاء والتعديل فيفترض معرفة كلمة المرور القديمة

وكلها تتم من خلال السطر

Call ChangeAccessPassword("oldPassword", "newPassword")  ' لتغيير الباسوورد

Call ChangeAccessPassword("oldPassword", "")  ' لإلغاء الباسوورد

Call ChangeAccessPassword("", "newPassword")  ' لكتابة باسوورد جديد

oldPassword = يكتب مكانه الباسوور القديم

newPassword = يكتب مكانه الباسوور الجديد

اما  علامتي التنصيص  ""  فهي تعني لاشي  او لايوجد

  • Like 1
رابط هذا التعليق
شارك

اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته

اساتذتي الافاضل استاذن منكم جميعا وانا اسف على مداخلتي واعتذر منكم جميعا 

لكن الموضوع اعجبني كثيرا واحببت ان اطرح سؤالا في مشاركة اخي واستاذي الفاضل ابو اسد وهو :

كيف افتح قاعدة بيانات اكسس محمية برقم سري دون معرفة الرقم الخاص بها مسبقا او مثلا نسيت الرقم السري الخاص بها 

واريد افتحها ماهو الكود البرمجي لفتحها مع وافر التحايا

 

تم تعديل بواسطه حربي العنزي
رابط هذا التعليق
شارك

تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل

 

تم التطبيق بنجاح ولكن بعد استبعاد نوع المتغير Db ولا ادري لماذا لم يتعرف عليه البرنامج عندي.. اكرر الشكر للاستاذ ابوخليل

 

اليكم المرفق 

انشاء-تعديل-حذف كلمة مرور قاعدة بيانات بعيدة.zip

  • Like 1
رابط هذا التعليق
شارك

19 ساعات مضت, ابوخليل said:

اخوي محمد  الاسطر عليها شرح وافي  ولكن باللغة الانجليزية

ويبقى طرق الاستفادة  في الالغاء او التعديل او الجديد

طبعا الجديد  ستكون القاعدة بدون  كلمة مرور 

اما الالغاء والتعديل فيفترض معرفة كلمة المرور القديمة

وكلها تتم من خلال السطر


Call ChangeAccessPassword("oldPassword", "newPassword")  ' لتغيير الباسوورد

Call ChangeAccessPassword("oldPassword", "")  ' لإلغاء الباسوورد

Call ChangeAccessPassword("", "newPassword")  ' لكتابة باسوورد جديد

oldPassword = يكتب مكانه الباسوور القديم

newPassword = يكتب مكانه الباسوور الجديد

اما  علامتي التنصيص  ""  فهي تعني لاشي  او لايوجد

شكرا استاذنا ابوخليل.. الان اتضح الامر 

شكرا جزيلا 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information