منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف أشفر قاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيف أشفر قاعدة البيانات (/showthread.php?tid=2332)

الصفحات: 1 2

كيف أشفر قاعدة البيانات - ماجد - 22-03-14

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

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


شاكر لكم

RE: كيف أشفر قاعدة البيانات - a_almisery - 22-03-14

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

RE: كيف أشفر قاعدة البيانات - ماجد - 23-03-14

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


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

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

RE: كيف أشفر قاعدة البيانات - asto - 23-03-14

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

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


استخدم ربط قاعدة البيانات بال 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


RE: كيف أشفر قاعدة البيانات - ماجد - 24-03-14

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

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

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

RE: كيف أشفر قاعدة البيانات - ماجد - 24-03-14

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

RE: كيف أشفر قاعدة البيانات - asto - 25-03-14

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

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

RE: كيف أشفر قاعدة البيانات - ماجد - 26-03-14

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

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

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

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

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

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

RE: كيف أشفر قاعدة البيانات - asto - 27-03-14

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

لكن الآن وجدت الكود الاصح
كود :
Set db = OpenDatabase("new.mdb", False, False, ";pwd=" & "123")


RE: كيف أشفر قاعدة البيانات - ماجد - 27-03-14

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


شكراُ لكم