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

[كوماندير]

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

اعزائي الكرام

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

علمتها من الدخول الخاص لكن عند فتح قاعدة بيانات بقية الكائنات تظهر لي رسالة (كلمة المرور خطأ) .

كيف العمل برأيكم ؟

[محمد سلامة]

ممكن مرفق

 

[كوماندير]

اخي اظن سؤالي واضحا ولايحتاج لمرفق

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

كيف اجعل قاعدة النماذج تتصل بها ؟

[عبد الله قدور]

بعد وضع كلمة المرور للقاعدة الجداول 

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

او هناك حل اخر ضع هذه الكود في وحدة نمطية 

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strLinkName As String

strLinkName = strSourceTableName

strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strBEPath
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing

End Function

وقم باستدعائه بالكود التالي

Call CreateTableLink(NewDatabase, "tbale name", "password")

وللأمانة العلمية هذا الكود من ابداع معلمنا الرائع أبو أدم تحياتي له 

 

[كوماندير]

في ١١‏/١١‏/٢٠١٦ at 22:31, عبد الله قدور said:

بعد وضع كلمة المرور للقاعدة الجداول 

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

او هناك حل اخر ضع هذه الكود في وحدة نمطية 

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strLinkName As String

strLinkName = strSourceTableName

strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strBEPath
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing

End Function

وقم باستدعائه بالكود التالي

Call CreateTableLink(NewDatabase, "tbale name", "password")

وللأمانة العلمية هذا الكود من ابداع معلمنا الرائع أبو أدم تحياتي له 

 

 

في ١١‏/١١‏/٢٠١٦ at 22:31, عبد الله قدور said:

بعد وضع كلمة المرور للقاعدة الجداول 

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

 

دعنا في الخيار الاول :

هل تقصد ان اقوم بحذف الجداول من قاعدة النماذج ثم عمل نسخ لها ( من قاعدة الجداول) ولصقها في قاعدة النماذج ؟

ام امهو المقصود لو تكرمت ؟

[عبد الله قدور]

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

 

[كوماندير]

14 دقائق مضت, عبد الله قدور said:

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

 

جيد ولكن وكأنني لم اقم بعملية التقسيم فقد عادت الجداول الى القاعدة النماذج !!!

[كوماندير]

منذ ساعه, كوماندير said:

جيد ولكن وكأنني لم اقم بعملية التقسيم فقد عادت الجداول الى القاعدة النماذج !!!

عفوا كانت هناك خيارين فاخترت الاول .

المحاولة الثانية اخترت الخيار الثاني كما في الصورة ( الارتباط بمصدر البيانات بواسطة انشاء جدول مرتبط )

لكن ظهرت لي ملحوظة بسيطه بعد تنفيذ هذا الخيار وهي حذف العلاقات في قاعدة النماذج (بينما بقت في قاعدة الجداول ).

فهل لهذا تأثير على بنية قاعدة البيانات ؟

تم تعديل نوفمبر 14, 2016 بواسطه كوماندير

[عبد الله قدور]

العلاقات يجب ان تكون في قاعدة الجداول فهذا يكون افضل 

 

[كوماندير]

2 ساعات مضت, عبد الله قدور said:

العلاقات يجب ان تكون في قاعدة الجداول فهذا يكون افضل 

 

افهم ذلك ولكن عند تقسيم اي قاعدة بيانات اكسس عند فتح شاشة العلاقات في قاعدة النماذج تظهر لنا العلاقات بين الجداول لكن عندما نقوم بحذف الجداول المرتبطه من نفس القاعدة واعادة استيرادها عن طريق ( الارتباط بمصدر البيانات بواسطة انشاء جدول مرتبط ) يتم استيردا الجداول ( مرتبطة ) لكن بدون علاقات

 

فهل هذا يؤثر على بنية قاعدة البيانات ؟

 

[عبد الله قدور]

5 دقائق مضت, كوماندير said:

فهل هذا يؤثر على بنية قاعدة البيانات ؟

طبعا لا بما ان العلاقات موجودة في القاعدة الجداول فالعمل صحيح