السلام عليكم ورحمة الله وبركاته
أخواني كيف أشفر أو أقفل قاعدة البيانات بعد التحزيم بحيث ما أحد يقدر يفتح الأكسس بعد تنصيبه على أي جهاز آخر؟
شاكر لكم
إذا عمل لها كلمة مرور ما يفتح البرنامج
اللي أقصده بعد ما أسوي تحزيم للمشروع وفيه قاعدة بيانات وستبته على جهاز آخر طبيعي ينتقل ملق الأكسس اللي داخل المشروع للجهاز المستب عليه المشروع سهل تفتح قاعدة البيانات وتشوف يه من أرقام سريه ..
أبي عن فتح قاعدة البيانات يكون الكلام مشفر .. أو يكون فيه طريقة في الفيجول بيسك تفتح كلمة المرور لقاعدة البيانات .. يعني المتطفل اللي يدخل مجلد المشروع في الجهاز مايقدر يطلع على شيء .
اي اعمل كلمة سر للقاعدة كيف ?
ج: انشئها ثم قائمة ادوات ثم امان ثم تعيين كلمة المرور
استخدم ربط قاعدة البيانات بال 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
شكراً ثم شكراً لك أخي لكن بصراحة ما ضبط معي يمكن ماعرفت الطريقة
أرفق لك ملفين الأول سويت كلمة سر لقاعدة البيانات ومايفتح معي والآخر عادي بدون تأمين
ياليت تسوي لي تعديل مع شرح أوسع وجزاك الله خير لأني محتاج للبرنامج وقفل قاعدة البيانات
كود :
Set db = OpenDatabase("comp.mdb", True, False, ";pwd=" & "123")
Set rs = db.OpenRecordset("haqool", 2)
مثلا بفرض ان كلمة سر القاعدة هي 123
ماضبط معي يفتح الفورم الأول ويتعثر عند الثاني ويقول كلمة مرور خطأ
الفورم الثالث قاعدة البيانات مربوطه بــ ado أستخدمت الكود اللي في المشاركة الرابعة في هذا الموضوع وما ضبط معي
أرفق لكم الملف عدلوا عليه وأبيه مثل ماهو أبي الربط الفورم الأول والثاني مثل ماهو والثالث بـ ado
وشكراً لكم على مساعدتكم
المستخدم المدير
كلمة السر 369
كلمة السر لقاعدة البيانات 123
انا بصراحة لم اكن اعلم الكود للكن من خلال البحث وجدته كما في الرد
لكن الآن وجدت الكود الاصح
كود :
Set db = OpenDatabase("new.mdb", False, False, ";pwd=" & "123")
ماضبط معي يفتح الفورم الأول والثاني والفورم المربوط بـ adodc يظهر رسالة الرقم خطأ ولا يقبل إضافة على الحقول ولا أي عملية
شكراُ لكم