[ماجد]

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

أخواني كيف أشفر أو أقفل قاعدة البيانات بعد التحزيم بحيث ما أحد يقدر يفتح الأكسس بعد تنصيبه على أي جهاز آخر؟


شاكر لكم

[a_almisery]

اعمـل لها كـلمه مرور

[ماجد]

إذا عمل لها كلمة مرور ما يفتح البرنامج


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

أبي عن فتح قاعدة البيانات يكون الكلام مشفر .. أو يكون فيه طريقة في الفيجول بيسك تفتح كلمة المرور لقاعدة البيانات .. يعني المتطفل اللي يدخل مجلد المشروع في الجهاز مايقدر يطلع على شيء .

[asto]

اي اعمل كلمة سر للقاعدة كيف ?

ج: انشئها ثم قائمة ادوات ثم امان ثم تعيين كلمة المرور


استخدم ربط قاعدة البيانات بال ADO حيث عند الفتح تحتاج لكتابة كلمة السر في الكود

و هنا مثال حيث توضع كلمة السر في تكست1 و

كود :

StrFileNm = "db1.MDB"

لاحظ ان ما بين "" هو اسم ملف الاكسس

و نستبدل التكست 2 باسم الجدول

كود :

Dim Cn As New ADODB.Connection
StrFileNm = "db1.MDB"
StrPath = App.Path & "\" & StrFileNm
StrPr = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & StrPath & ";" & _
        "Jet OLEDB:Database Password=" & text1.Text
If Cn.State = 1 Then Cn.Close
Cn.Open StrPr
DBNm.Text = StrFileNm
Exit Sub
ErrHand:
MsgBox Err.Description
Resume Next
Rs11.Open "select * from [" & Text2.Text & "]", Cn, adOpenDynamic, adLockOptimistic

[ماجد]

شكراً ثم شكراً لك أخي لكن بصراحة ما ضبط معي يمكن ماعرفت الطريقة

أرفق لك ملفين الأول سويت كلمة سر لقاعدة البيانات ومايفتح معي والآخر عادي بدون تأمين

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

[ماجد]

وهذا الملف الثاني

[asto]

كود :

Set db = OpenDatabase("comp.mdb", True, False, ";pwd=" & "123")
Set rs = db.OpenRecordset("haqool", 2)

مثلا بفرض ان كلمة سر القاعدة هي 123

[ماجد]

ماضبط معي يفتح الفورم الأول ويتعثر عند الثاني ويقول كلمة مرور خطأ

الفورم الثالث قاعدة البيانات مربوطه بــ ado أستخدمت الكود اللي في المشاركة الرابعة في هذا الموضوع وما ضبط معي

أرفق لكم الملف عدلوا عليه وأبيه مثل ماهو أبي الربط الفورم الأول والثاني مثل ماهو والثالث بـ ado

وشكراً لكم على مساعدتكم

المستخدم المدير
كلمة السر 369

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

[asto]

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

لكن الآن وجدت الكود الاصح

كود :

Set db = OpenDatabase("new.mdb", False, False, ";pwd=" & "123")

[ماجد]

ماضبط معي يفتح الفورم الأول والثاني والفورم المربوط بـ adodc يظهر رسالة الرقم خطأ ولا يقبل إضافة على الحقول ولا أي عملية


شكراُ لكم