تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف أشفر قاعدة البيانات
#1
السلام عليكم ورحمة الله وبركاته

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


شاكر لكم
الرد }}}
تم الشكر بواسطة:
#2
اعمـل لها كـلمه مرور



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}
تم الشكر بواسطة:
#3
إذا عمل لها كلمة مرور ما يفتح البرنامج


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

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

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


استخدم ربط قاعدة البيانات بال 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
الرد }}}
تم الشكر بواسطة: a_almisery
#5
شكراً ثم شكراً لك أخي لكن بصراحة ما ضبط معي يمكن ماعرفت الطريقة

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

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


الملفات المرفقة
.zip   برنامج الموظفين.zip (الحجم : 42.85 ك ب / التحميلات : 105)
الرد }}}
تم الشكر بواسطة:
#6
وهذا الملف الثاني


الملفات المرفقة
.zip   برنامج الموظفين2.zip (الحجم : 43.03 ك ب / التحميلات : 113)
الرد }}}
تم الشكر بواسطة:
#7
كود :
Set db = OpenDatabase("comp.mdb", True, False, ";pwd=" & "123")
Set rs = db.OpenRecordset("haqool", 2)

مثلا بفرض ان كلمة سر القاعدة هي 123
الرد }}}
تم الشكر بواسطة:
#8
ماضبط معي يفتح الفورم الأول ويتعثر عند الثاني ويقول كلمة مرور خطأ

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

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

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

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

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


الملفات المرفقة
.zip   قاعدة.zip (الحجم : 12.15 ك ب / التحميلات : 98)
الرد }}}
تم الشكر بواسطة:
#9
انا بصراحة لم اكن اعلم الكود للكن من خلال البحث وجدته كما في الرد

لكن الآن وجدت الكود الاصح
كود :
Set db = OpenDatabase("new.mdb", False, False, ";pwd=" & "123")
الرد }}}
تم الشكر بواسطة:
#10
ماضبط معي يفتح الفورم الأول والثاني والفورم المربوط بـ adodc يظهر رسالة الرقم خطأ ولا يقبل إضافة على الحقول ولا أي عملية


شكراُ لكم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 417 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدم ضهور كل البيانات فراس محي 1 223 15-12-23, 06:05 AM
آخر رد: Taha Okla
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 357 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [vb6.0] كود ربط قاعدة بيانات اكسيس 2010 بالفيجوال بيسك6 وادي العوضي 4 553 21-07-23, 12:11 AM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 5 5,258 27-02-23, 03:43 PM
آخر رد: tighrmte
  قاعدة بيانات مشفرة محمد عياش 0 354 13-12-22, 06:38 PM
آخر رد: محمد عياش

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم