علاقات بين الجداول في فيجول بيسك 2008

ارفق مثال ،، وانعدل عليه . اسرع لك في ايجاد المعلومة

تفضل أخي كريم 

WindowsApplication.rar

شفت المثال لايوجد به اي مطلب ،، ما المطلوب .

عندي 3 جداول الجدول الأول السنة الجدول الثاني الملف الجدول الثلاث بيانات عن الملف 

الجدول الاول يربط مع ComboBox1  الجدول الثاني يربط مع ComboBox2 الجدول الثالث هو لعرض البيانات الملف في DataGridView

بعد أن نختار السنة من ComboBox1 وبعد ذلك  نختار الملف من  ComboBox2  وبعد ذلك تضهر البيانات الملف الدي أخترته من ComboBox2 في DataGridView 

هذا الكود لربط جدولين في أكسس 

Dim relation As New DataRelation("CATNAPFILES", _
ds.Tables("CATNAP").Columns("CATNAPNUM"), _
ds.Tables("FILES").Columns("CATNAPNUM"))
ds.Relations.Add(relation)

السؤال هنا 

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

ياريت من أحد الاخوه الخبراء يفيدنا  جزكم الله عنا كل خير

عندك اخطاء في تصميم الداتا بيز اخي ..

المطلوب وضع ما المطلوب خطة لعمل البرنامج كمثال .

وانا اعيد تصميم الداتابيز لك واقلك في تعمل وتكمل الباقي .

أخي الفاضل

تم عمل المطلوب وتم تحويل الملف الي VB.Net 2010 حيث انني لا اعمل علي الاصدار 2008 

ملحوظة :-

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

بالتوفيق

WindowsApplication.rar

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

أخي code.vip ماهي اخطاء في الداتا بيز حتى نستفيد 
أنا نصمم في قاعدة بيانات خاصة بأرشيف الملفات

  أخي محمد هو المطلوب لكن هل يمكن تغير الحقل CATNAPNUM إلى الحقل CATNAPNANE 
   لعرضه في ComboBox1 وكذلك في ComboBox2  قم بتجربة لكنها لم تنجح 

الخطأ : حقل CATNAPNUM يجب ان يكون رقمي .

اضف هذا الكود في الفورم بعد مسح كل الاسطر في الفورم .

Imports System.Data.OleDb
Public Class Form1
   
هنا ضع كود الاتصال بالداتا بيز    Dim ConString As 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dp As New OleDbDataAdapter("select * from CATNAP", ConString)
        Dim ds As New DataSet

        dp.Fill(ds, "CATNAP")

        ComboBox1.DataSource = ds.Tables("CATNAP")
        ComboBox1.DisplayMember = "CATNAPNAME"
        ComboBox1.ValueMember = "CATNAPNUM"

        dp.Dispose()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
        Dim dp As New OleDbDataAdapter("select * from FILES where CATNAPNUM=" & ComboBox1.SelectedValue & " ", ConString)
        Dim ds As New DataSet

        dp.Fill(ds, "FILES")

        ComboBox2.DataSource = ds.Tables("FILES")
        ComboBox2.DisplayMember = "FILENAME"
        ComboBox2.ValueMember = "FILEID"

        dp.Dispose()
    End Sub

    Private Sub ComboBox2_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox2.SelectionChangeCommitted
        Dim dp As New OleDbDataAdapter("select * from Datafile where FILEID=" & ComboBox2.SelectedValue & " ", ConString)
        Dim ds As New DataSet

        dp.Fill(ds, "Datafile")

        DataGridView1.DataSource = ds.Tables("Datafile")

        dp.Dispose()
    End Sub
End Class

عند اختيار السنة لأختيار الملف يظهر أن هناك خطأ 

حقل CATNAPNUM يجب ان يكون رقمي في الجدولين .

شكراً لك اخي code.vip أنت عطيتني دفعه قوية إلى امام لتعلم هذه التقنية بعد ما فاقدة الامل من تعلمها 

العفو اخي ،، تستاهل كل خير ،، بالتوفيق ان شاء الله