كلمة المرور

سوالك مبهم اخي

فماذا تقصد بالضبط ارجو التوضيح اكثر

أخي الكريم

أشكرك على الرد

وضعت تعريف قاعدة البيانات عن طريق الكود مع وضع كلمة السر الموضوعة أصلاً في الأكسس.

اشتغل البرنامج بنجاح

ولكن

عندما وضعت datacontrol على النموذج أعطاني رسالة

invalid password

ما العمل جزاكم الله خيراً

ضع الكود التالي في حدث التحميل للفورم

    Data1.DatabaseName = PATHDATABASE
    Data1.Connect = ";PWD=YOURPASSWORD"

حيث YOURPASSWORD هو كلمة السر الخاصة بك

و PATHDATABASE هو مسار قاعدة البيانات التي تخصك

هذا مرادك ان شاء الله

واخبرنا بالنتيجة

لك تحياتي

انصحك اولا بالغاء كلمة السر من قاعدة البيانات الأكسس قبل تعريف الحقول في textbox او compobox الخ و بعد ان تنتهي من تعريف حقول البيانات كلها تغلق الفيجوال و ترجع كلمة المرور لقاعدة البيانات مرة ثانية وبعد ذلك يكون هذا الكود هو ما تضعه في الفورم المرسل اليك من مشرف القسم

ارجو ان اكون وضحت قصدي

وكيف يمكنني جعل كلمة المرور تلك للبرنامج أجمع

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

وكيف استطيع تمكين المستخدم من تعديلها؟

أرجو الرد

وووووووووأأأأأأأأأأأأأأأأأأأأأأأأننننننننننننننننننننننننننناااااااااااااااا معك أسأأأأأأأأأأأأأأأأأأأأأل

أرحمونا

اخي العزيز

الطريقة كاالتالي

تذهب الى قاعدة البيانات

وتكون فيها حقلين من نوع ( نصي ) او من الفجوال بيسك وتجعل نوعة text

الحقل الاول للإسم xNo

والحقل الثاني لكلمة السر xName

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

تروح للقاعدة

تفتح تفتح الحقلين

تكتب في الاول مثل احمد

وتكتب في الثاني 123

يعني اسم الدخول هو احمد

كلمة السر 123

قفل الاكسس

روح للفيجوال بيسك وضع نصي ادخال ( text)

واحد لإسم الدخول

والثاني لكلمة السر

اضف ايضا كومند ( command1)

الان نبدأ بالكود

راح نستعمل كائن الربط datacontrol

private sub form_load()

data1.databaseName=app.path  &"\ اسم قاعدة البيانات.mdb"

end sub

***********

الان في الكومند انقر مرتين وفي الحدث كليك ادخل الكودالتالي

private sub command1_click()

data1.recordsource=" select * from اسم الجدول where xName=' " & trim(text1.text)& " ' and xNo=' " & trim( text2.text) & " ' " 

data1.refrech

with data1.recordset

if .recordcount<> 0 then
if trim(text2.text)= !xName and trim( text1.text)=!xNo then

msgbox "كلمة المرور صحيحة"

else

msgbox " كلمة المرور خاطئة "

end if 
end if

end with

end sub

*******************************

شرح الكود

اولا

في البداية انا بفتح قاعدة البيانات

وتكون قاعدة البيانات في مسار البرنامج

هنا الكائن الوهمي app.path بيتتبع مسار القاعدة في نفس المجلد تلقائيا وبيفتح القاعدة

ثانيا

في الكومند

السطر الاول هواستعلام بدلالة الاسم والرقم في نفس الوقت

وفي الشرط اذا كان الاسم والرقم موجودين وصحيحين يعني المستخدم ادخل نفس الاسم ونفس الرقم

الموجودين في قاعدة البيانات

بيعطيه رسالة ان الاسم والرقم صحيحين

او بيعطيه رسالة بعدم وجودهما اي ان كلمة السر واسم الدخول غير صحيحين

هذا كل شي

*******************************

اخوكم alameeeer