بسم الله الرحمن الرحيم[/COLOR][/FONT][/SIZE][/CENTER]
الحمد لله والصلاة على رسول الله وآله الطيبين وصحبه الأخيار وسلم تسليما كثيرا
![[VB.Net] برنامج قاعدة بياناتي الأولى Access Al3ammed823](https://2img.net/h/www.uaekey.com/ashkal/2/al3ammed823.gif)
برنامج قاعدة بياناتي الأولى- Access + Visual Basic.Net لم أكن في السابق أتتطلع الى أن أعمل قاعدة بيانات ولا إلى برنامج يتصل بها ليأخذ منها البيانات ويتحكم فيها اضافة وحذفا وتعديلا, إلا بعد رؤيتي لمشاريع وشروح عديدة بدا لي منها أنها شيء رائع, لابد لمن يحب البرمجة أن يخوض فيها ويتعرف على أسرارها, ولو بالشيء القليل
لذلك ... هذه مقدمة بسيطة في قاعدة البيانات والاتصال بها عن طريق فيجوال بيسك.نت
رأيت شرحين كلاهما رائعين,
الأول للعضو صاحب الإبداعات ذو المواضيع المميزة المسمى SmoothCriminal ( د.طاهر ) , يتكلم في موضوعه عن قاعدة بينات أكسس تحوي أكثر من جدول مرتبطة فيما بينها ثم استخدم لها الفيجوال بيسك.نت, تجد الموضوع كاملا من هنا http://www.absba.org/vb/showthread.php?t=482775
حيث ستجد موضوعا كبيرا وشاملا ومتشعبا وستعتبره كدليل ومرجع في قواعد البيانات
وهنا تجد ( الإتصال بقواعد البيانات وفحصها باستخدام فيجوال بيسيك 8)
الجزء الأول من كتاب:المدخل إلى فيجوال بيسيك 2005
وغيرها من بدائع الفوائد البرمجية
والثاني, وما أنا بصدد الحديث عنه وهو "الكامل في قواعد البيانات" , للأخ الكريم م. عدي ياسين, الذي قام بشرح ربط قاعدة بيانات Access ببرنامج فيجوال بيسك. نت بطريقة بسيطة وممتعة وإن كان يغلب عليها الأكواد, فماذا قمت به أنا هنا؟
- قمت بتطبيق الشرح كاملا ثم قمت بإعادة كتابته المشروع مع تغيير مسميات المتغيرات وشرح الأكواد وإضافة بعض الأكواد والأزرار كما سترى لاحقا
هذا هو شرح الأخ عدي تجده هنا
http://www.4shared.com/file/56068803/a7246466/_-_.html
وبعد هذه المقدمة الطويلة
جاء دور الشرح الذي أعددته
أولا : إنشاء قاعدة بيانات باستخدام Microsoft Access 2007 بإمتداد (mdb)
قم بفتح برنامج Access 2007 (بالامكان استخدام Access 2003)
أنشئ قاعدة بيانات فارغة Blank Database كما في الصورة
اضغط على المجلد لاختيار مكان حفظ القاعدة ونوعها
اختر النوع mdb
ثم create ![[VB.Net] برنامج قاعدة بياناتي الأولى Access Rfhaxjbqox](https://2img.net/h/static3.filefront.com/images/personal/c/CoDeNeT/143993/rfhaxjbqox.jpg)
ستظهر الآن قاعدة البيانات , قم بإضافة الحقول, أعد تسمية الحقل الأول كما في الاصورة الى "الاسم", وهكذا لباقي الحقول
تظهر الآن الحقول (الاسم, العمر, الجنس, الهاتف, العنوان)
اختر الآن حفظ سيظهر لك مربع رسالة لاختيار اسم الجدول , قم بتسميته TableA
انتقل الى عرض التصميم
قم باختيار مفتاح أساسي وليكن الاسم
انتقل الى عرض ورقة البيانات
قم بملء عدد من البيانات
الآن انتهى الجزء الخاص بقاعدة البيانات
ثانيا: استخدام برنامج Visual Basic .Net لتصفح قاعدة البيانات, والاضافة والحذف والتعديل على قاعدة البيانات مع البحث
قم بتشغيل البرنامج واختيار File ثم New Project
اختر نوع المشروع Windows Application ثم قم بتسميته
سيظهر الآن form1 قم بإعادة تسميته الى Mainform , وغير الحجم الى 532, 452 , ومكن خاصيتي "اليمين الى اليسار"
1- اضف أولا 5 textbox واجعل خاصية Readonly تكون true
ثم اتبعها ب 5 label وغير الخاصية text الى "الاسم" , "العمر", ........, "العنوان" كما في الصورة
2-اضف 4 label غير الأول والثالث منها الى "السجل" و "من" بينما يبقى الثاني والرابع فارغين لملئهما لاحقا برقم السجل المعروض ضمن العدد الكلي للسجلات
3- اضف أربعة أزرار بغرض استعراض السجلات , الأول, التالي, السابق, الأخير
4- أضف أربعة أزرار للتعديل والاضافة والحذف والبحث
5- أضف button و textbox لعرض السجل عن طريق رقمه
البدء في كتابة كود الفورم الرئيسي
هنا الكود كاملا مع الشرح داخل الكود
ظهرت أخطاء عند كتابة كود الفورم السابق لنقص الفورم الخاص باضافة سجل جديد والتعديل والبحث لذلك سيتم اضافتها هنا
هنا بالزر الأيمن على المشروع ثم Add ثم Windows form
قم بتسمية هذا الفورم الخاص باضافة سجل جديد ب newlist
اضف 5 textbox ولكن هذه المرة تكون خاصية Readonly = false
كذلك اضف 5 lable
و زرين للحفظ والالغاء
مكن خاصية "اليمين لليسار" كما في الصورة
الآن قم بكتابة كود الفورم newlist كالتالي
الكود
بنفس طريقة الفورم الخاص باضافة سجل جديد newlist, قم بإنشاء الفورم الخاص بالتعديل editform كما في الصورة
هنا الكود الخاص ب editform
بنفس طريقة الفورم الخاص باضافة سجل جديد newlist, قم بإنشاء الفورم الخاص بالبحث searchform
ويحوي Groupbox 1 المسمى ب"بحث"
Groupbox 2 المسمى ب"بحث عن" ويحوي 5 radiobutton خاصة ب( الاسم,.....,العنوان)
Groupbox 3 المسمى ب"نوعية البحث" ويحوي 2 radiobutton
textbox الخاص بإدخال كلمة البحث
3 button الخاصة ب ( بحث, إعادة تعيين, عودة الى البرنامج)
5 textbox و 5 label
وكذلك Datagridview
(خطرت في بالي فكرة للاستغناء عن زر إعادة تعيين بكود آخر أضعه في زر "بحث" سأتطرق له لاحق)
كود الفورم searchform
الشكل النهائي
وهنا المشروع للتحميل http://www.4shared.com/file/56053909/d6921a9e/FirstDataBase1.html في حال طلب باسوورد فهو 1234
وصلى الله على محمد وآله وصحبه وسلم, والحمد لله رب العالمين
[CENTER]
![[VB.Net] برنامج قاعدة بياناتي الأولى Access Icon_minitime](https://2img.net/i/fa/icon_minitime.gif){kind=icon}
الأربعاء أغسطس 11, 2021 12:03 pm من طرف 
![[VB.Net] برنامج قاعدة بياناتي الأولى Access Vote_rcap1](https://2img.net/i/fa/m/vote_rcap1.gif){kind=small}
![[VB.Net] برنامج قاعدة بياناتي الأولى Access Voting_bar](https://2img.net/i/fa/subsilver/voting_bar.gif){kind=small}
![[VB.Net] برنامج قاعدة بياناتي الأولى Access Vote_lcap1](https://2img.net/i/fa/m/vote_lcap1.gif){kind=small}
موضوع: [VB.Net] برنامج قاعدة بياناتي الأولى Access ![[VB.Net] برنامج قاعدة بياناتي الأولى Access 1](https://2img.net/h/dawn2.absba.org/teamwork2/660021/1.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 2](https://2img.net/h/dawn2.absba.org/teamwork2/660021/2.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 3](https://2img.net/h/dawn2.absba.org/teamwork2/660021/3.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 5](https://2img.net/h/dawn2.absba.org/teamwork2/660021/5.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 6](https://2img.net/h/dawn2.absba.org/teamwork2/660021/6.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 7](https://2img.net/h/dawn2.absba.org/teamwork2/660021/7.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 8](https://2img.net/h/dawn2.absba.org/teamwork2/660021/8.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 9](https://2img.net/h/dawn2.absba.org/teamwork2/660021/9.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 10](https://2img.net/h/dawn2.absba.org/teamwork2/660021/10.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 11](https://2img.net/h/dawn2.absba.org/teamwork2/660021/11.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 12](https://2img.net/h/dawn2.absba.org/teamwork2/660021/12.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 3](https://2img.net/h/www.uaekey.com/ashkal/3/3.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 13](https://2img.net/h/dawn2.absba.org/teamwork2/660021/13.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 14](https://2img.net/h/dawn2.absba.org/teamwork2/660021/14.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 15](https://2img.net/h/dawn2.absba.org/teamwork2/660021/15.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 16](https://2img.net/h/dawn2.absba.org/teamwork2/660021/16.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 17](https://2img.net/h/dawn2.absba.org/teamwork2/660021/17.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 18](https://2img.net/h/dawn2.absba.org/teamwork2/660021/18.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 19](https://2img.net/h/dawn2.absba.org/teamwork2/660021/19.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 20](https://2img.net/h/dawn2.absba.org/teamwork2/660021/20.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 21](https://2img.net/h/dawn2.absba.org/teamwork2/660021/21.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 22](https://2img.net/h/dawn2.absba.org/teamwork2/660021/22.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 23](https://2img.net/h/dawn2.absba.org/teamwork2/660021/23.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 24](https://2img.net/h/dawn2.absba.org/teamwork2/660021/24.gif)
![[VB.Net] برنامج قاعدة بياناتي الأولى Access 25](https://2img.net/h/dawn2.absba.org/teamwork2/660021/25.gif)