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

السلام عليكم

اخي الكريم ان المشلكة التي تواجها ليسة لالفورم (النماذج ) وانما كما ذكرت بالعلاقات

وبالنسبة للاكسس فهو نظام مختلف عن بيئة الفجوال ستديو تماما

فلا يجوز دمج نموذجين كما تقول انت في بيئة الستديو

برجاء وضع وصف القاعدة وانا اقو بعملها لك

بالتوفيق

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

اخواني تكفون هل هناك طريقه لأستيراد القاعده و علاقاتهها

لتعمل في الفيجال ستديو بشكل صحيح

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

وهناك طريقتان :

1 - باستخدام المعالج

2 - استتخدام الكود

سوف ارفع لك شرح كامل على هذا الامر

بالتوفيق

وانا بأنتظار الشرح اخي الكريم

السلام عليكم اخي الكريم

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

على بركة الله نبدء

اولا : الربط بواسطة الكود

هذه الطريقة معقدة قليلا وتحتاج الى الركيز الجيد حتى لا تحدث اخطاء اثناء عملية الربط لانها تعتمد على الكود واي حرف خطاء يعني ان الربط كله خطاء

اولا نحتاج الى استخدام الدوال التي تساعدنا على ربط قاعدة البيانات Access مع VB.NET كتالي

نفتح محرر الاكودا في الفورم المخصص ونعرف في بداية الصفحة قبل كل شيء التالي

Imports system.data
imports system.data.oledb ' هذا الذي سيقوم بالسماح لنا بربط قاعدة البيانات اكسس

ثم نقوم بتعريف المتعيرات التالية تحت عنوان الفورم كتالي

 Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Application.StartupPath & "\emp.mdb"
    Dim conn As New OleDbConnection(strconn)
    Dim dataset1 As New DataSet
    Dim sql As String = "Select * from employee"

والصورة ستوضح

شرح الكود

1 - يجب علينا ان نضع نص الاتصال الخاص بالاكسس وذلك بتعريف متغير من نوع نصي الذي يسمح لنا بالاتصال مع قاعدة البيانات كما في الكود

 Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Application.StartupPath & "\emp.mdb"
    Dim conn As New OleDbConnection(strconn)

2 - بعد انشاء نص الاتصال نريد ان نجري الاتصال ونجهزه للاستعمال وذلك بتعريف متغير من نوع OLEDB الذي سيعمل على الاتصال وتمرير النص الى المتغير كما في الكود

Dim conn As New OleDbConnection(strconn)

3 - الان اصح الاتصال جاهز والقاعدة جاهزة ونحتاج الى متغير يتحكم لنا بالقاعدة وذلك بتعريف متغير من نوع Dataset وهو الذي يسمح لنا بتحكم بالقاعدة والجداول كما في الكود التالي

Dim dataset1 As New DataSet

4 - بعد هذا الان اصبح كل شيء جاهز الان نجهز جملة استعلام وذلك لاستخدامها لاحقا وهي لاظهار كل البيانات التي في القاعدة كما في الكود

Dim sql As String = "Select * from employee"

الان نأتي الى طريقة عرض البيانات واجراء اتصال مع قاعدة البيانات كتالي

في حدث التحميل للفورم كما في الصورة التي بالاعلى نكتب الاجرأت التالية :

conn.open

هذا الكود يقوم بفتح اتصال مع قاعدة البيانات التي نريدها

الان نريد تعريف متغير لعرض الجدول الذي نريده بعد انشاء اتصال مع قاعدة البيانات كتالي

dim ta1 as new OLEDBDataAdapter(sql,conn)

هنا قمنا بتعريف متغير من نوع OLEDBDataAdapter والذي يسمح لنا نبحكم بالجداول التي داخل البيانات ومررنا له الاتصال الخاص بقاعدة البيانات و جملة الاستعلام التي كتبناها فوق

بعدها يجب علينا ان ننعش قاعدة البيانات وذلك لضمان ضهزر البيانات والتأكد من ان الاتصال كان صحيح كتالي

ta1.fill(dataset1,"employee")

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

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

والكود الخاص به كتالي

dg1.datasource = dataset1
dg1.datamember = "emplloyee"

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

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

conn.close

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

هذا وبحمد الله كان المطلوب الاول والان نأتي الى المطلوب الثاني وهو الربط عن طريق المعالج وهنا لا نحتاج الى الكود كثيرا فألنبداء

ثانيا : الربط عن طريق المعالج

الان من قائمة Data

نختار Add new datasource

نختار next حتى تظهر لك الشاشة التالية

اختار new connection

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

بعد ان اخترنا نوع القاعدة نريد تحديد موقع القاعدة حتى يتم الربط كما في الصورة التالية

بعد اختيار القاعدة نلاحظ انه قد خزن مسارها واذا كان هناك للقاعدة كلمة سر نكتبها كما في الصورة التالية

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

لتسهيل عملية الاتصال فتختار نعم بالطبع كما في الصورة التالية

ممتاز

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

كما في الصورة

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

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

واذا اردت مشاهدة الجداول الموجودة داخل قاعدتك اختار DataSource وسوف يظهر لك كل الجداول كما في الصورة التالية

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

الامر سهل اكثر مما تتوقع ولا تحتاج الى كود

وانما من متصفح الجداول (اخر صورة) اضغط على الجدول المراد عرضه وجره الى الفورم وهو تلقائي سوف يظهر البيانات وبعدها قم بتشغيل المشروع

وستلاحظ ان البيانات قد ظهرت

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

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

بالتوفيق للجميع

Connect Database.rar

اخي بجد لا اعرف كيف اشكرك علي هذا المجهود اثابك الله خيرا

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

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

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

اخي الفاضل لا شكر على واجب

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

بالتوفيق