مرحبا : ارجو منكم المساعدة ... اريد تشغير قاعدة بيانات اكسس وربطها بالفيجوال 6

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

وعموما هذه طريقة من ضمن طرق التشفير :

Public Function Obscure(DataOB As String) As String
	For Txy = 1 To Len(DataOB)
		Obscure = Obscure & Chr(255 - Asc(Mid(DataOB, Txy, 1)))
	Next Txy
End Function

يستخدم الكود السابق فى تشفير نص وفك تشفيره

ويمكن تطويره بأشكال اخرى اكثر تعقيدا لزيادة التأمين

وشكرا .....

السلام عليكم

وايضا انا اعرف طريقة حلوة جدا وسهلة

اعملى باسورد للقاعدة بيانات فى الاكسس عن طريق tools> securty set database passwodd

مشكور اخي egyptforegypt

كنت محتاج لعاذى الكود

العفو يا اخى بس مش انا ال كاتبت هذا الكود ولكن هوعضو ال قابلى ال رد من قبلى

شكرا جزيلا أخ عبد الفتاح على الرد ... و سأجرب الكود .

و شكرا لـ egyptforegypt .. لقد حاولت بطريقة كلمة السر لكن توجد برامج تكشف كلمات السر لملفات الـ office