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

اخى تفضل مثال بسيط

الرابط

بالنوفيق

اخي wael abed اقسم بالله العظيم انك انسان رائع ..

لا اعرف كيف اشكرك اخي الكريم والله لا اعلم .. انت رائع رائع رائع ،، نعم هذا هو المطلوب بالتحديد ..

عملاق يا اخي عملاق ..

لكن اخي هذا النوع من الربط انا لم اره من قبل فالربط بقواعد البيانات الذي انا اعلمه عن طريق اضافة عنصر قواعد البيانات ولكنني لا ارى انك ضفته ..

ملاحظه اخرى ..

لقد قمت بتصميم نفس ما انت قدمته لي بارك الله فيك ,, ونسخت نفس الكود ولكن البرنامج لم يعمل مطلقا .. واصبح يعطيني رسائل بدوال غير معرفه مثل conn

افهم من هاذا انك قمت باضافة عناصر جديده الى البرنامج components

فما هي هذه العناصر ..

وياريت اخي شرح ولو نظري لخطوات عمل البرناج .. يعني مثلا ..

نضيف تكست بوكس .. ثم نضيف كوماند ونضع الكود التالي .. وهكذا .. جزاك الله كل خير

اقتباس

اخي wael abed اقسم بالله العظيم انك انسان رائع ..

لا اعرف كيف اشكرك اخي الكريم والله لا اعلم .. انت رائع رائع رائع ،، نعم هذا هو المطلوب بالتحديد ..

عملاق يا اخي عملاق ..

اخى جزاك الله خيرا

وانا اريد مثلها والدعاء بالهدايا فقط

اللهم اهدينا

اقتباس

امين

اخى اولا انا مش هعرف النظم الموضوع غير انى برد من الرد السريع الله المعين

الشرح هنا والمرفقات فيها البرنامج ان شاء الله

الفورم login او دخول مستخدم

Private Sub Form_Load()

الكود ده يقوم بعمل تفضية التيكستات

Text1 = ""
Text2 = ""

------------

الكود ده يقوم بالاتصال بقاعدة البيانات

Data1.DatabaseName = (App.Path & "\pas.mdb")

ويقوم هذا بالاتصال مع الجدول

Data1.RecordSource = ("abed")

-----------

هنا بقوم بعملية تنشيط للقاعدة

Data1.Refresh

---------------

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

  If Data1.Recordset.RecordCount = 0 Then Form1.Show: Me.Hide

-----------

End sub

هذا الكوماند خاص بدخول المستخدمين

Private Sub Command1_Click()

هذا الكود يقوم بالتأكد من وجود بيانات فى التيكست

If Trim(Text1) = "" Or Trim(Text2) = "" Then MsgBox " Please enter  user name or
 password ", vbCritical: Exit Sub

-----------------

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

هنا انا بقوم بفتح الجدول على الاسم والرقم السرى اللى انا عايزه فقط

للتأكد من ذالك ضع كوماند واكتب تحته

  msgbox data1.recordset.recordcount

))

Data1.RecordSource = "select * from abed where sname='" & Trim(Text1.Text) & "'
 and pas='" & Trim(Text2.Text) & "'"

-------------------

تنشيط القاعده

Data1.Refresh

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

If Not Data1.Recordset.RecordCount = 0 Then

-------------

اذا كان عدد السجلات ليس صفر

شاشة البرنامج تقوم بالافتتاح

Form2.Show

-----------

غير ذالك

Else

-----------

لايوجد مستخدمين لان عدد السجلات صفر وهذا يدل على عدم وجود هذا السجل

MsgBox " sorry id no  or  name not valid"

End If
End Sub

الفورم lognew تسجيل مستخدم جديد

Private Sub Form_Load()

الكود ده يقوم بعمل تفضية التيكستات

Text1.Text = ""
Text2.Text = ""

-------------

الكود ده يقوم بالاتصال بقاعدة البيانات

Data1.DatabaseName = (App.Path & "\pas.mdb")

-------------

ويقوم هذا بالاتصال مع الجدول

Data1.RecordSource = ("abed")

-------------

هنا بقوم بعملية تنشيط للقاعده

Data1.Refresh

------------

End Sub

هذا الكوماند خاص بمستخدم جديد

Private Sub Command2_Click()

هذا الكود يقوم بالتأكد من وجود بيانات فى التيكست

If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then MsgBox " plase inetr login or password ", vbCritical: Exit Sub

-------------------------

سجل جديد

Data1.Recordset.AddNew

------------------

Data1.Recordset("sname") = Text1
Data1.Recordset("pas") = Text2

حفظ السجل

-----------------

Data1.Recordset.Update
MsgBox "saved the log and pas  ", vbInformation: Exit Sub
End Sub

انتهى

ستجد الملف وهنا الشرح

بالتوفيق

بالداتا كنترول

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

مشكور اخي جزيل الشكر بارك الله فيك اقسم بالله العظيم كل كلمات الشكر لم تكفيك ..

المثال الجديد رائع .. واسهل واوضح من المثال السابق ... ،، الان سوف اذهب واطبق المثال ... وان شاء الله كل خير رح يصير ..

بالنسبه لشرحكـ للكود ,, شرح واضح ورائع ومفهو ...

بارك الله فيك اخي

تحياتي

واذا في مجال اخي تضيفني على الايميل ..

painfull_life_4_ever@hotmail.com

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

اللهم يوفقك ويغفر ليك ولوالديك ويدخلكم الجنه يا رب ..

وياريت تضيفني على الايميل

painfull_life_4_ever@hotmail.com