منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] مساعدة في إكمال كود البحث بأكثر من جدول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] مساعدة في إكمال كود البحث بأكثر من جدول (/showthread.php?tid=22201)

مساعدة في إكمال كود البحث بأكثر من جدول - أبووسم - 22-10-17

السلام عليكم

لدي مشروع بقاعدة بينانات (أكسس) تحتوي على 3 جداول و تم ربطها (لا أعلم عن صحة طريقتي)

عملت كود بحث و عند البحث يخرج لي نتائج جدول واحد فقط ، وانا اريد أن يخرج بيانات الجداول الثلاث .

شاكر و مقدر للجميع

RE: مساعدة في إكمال كود البحث بأكثر من جدول - a.ahmed - 22-10-17

PHP كود :
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New Globalization.CultureInfo("AR"))
        'TODO: This line of code loads data into the 'MyData2017DataSet.Employees' table. You can move, or remove it, as needed. '
        Me.EmployeesTableAdapter.Fill(Me.MyData2017DataSet.Employees)
        View()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.EmployeesBindingSource.Filter = "[Ename] LIKE '" & Me.TextBox1.Text.Trim & "%'"
        View()
    End Sub

    Private Sub EmployeesDataGridView_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles EmployeesDataGridView.CellClick
        View()
    End Sub

    Private Sub View()
        Dim idCard As Integer = 0
        If EmployeesBindingSource.Position >= 0 Then
            idCard = CType(EmployeesBindingSource.List(EmployeesBindingSource.Position), DataRowView).Item("Idcadr")
        End If
        Me.EjazhTableAdapter.FillByIdCard(Me.MyData2017DataSet.Ejazh, idCard)
        Me.DorahTableAdapter.FillByIdCard(Me.MyData2017DataSet.Dorah, idCard)
        Me.EjazhDataGridView.ClearSelection()
        Me.DorahDataGridView.ClearSelection()
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        End
    End Sub

End Class 


RE: مساعدة في إكمال كود البحث بأكثر من جدول - أبووسم - 22-10-17

اشكرك اخي الكريم على مساعدتك الطيبة

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

كود :
       Me.EjazhTableAdapter.FillByIdCard(Me.MyData2017DataSet.Ejazh, idCard)
       Me.DorahTableAdapter.FillByIdCard(Me.MyData2017DataSet.Dorah, idCard)

وسؤال لو تكرمت ، هل طريقتي في العلاقات بقاعدة البيانات صحيحة ؟[attachment=15806]

RE: مساعدة في إكمال كود البحث بأكثر من جدول - a.ahmed - 22-10-17

PHP كود :
Open MyData2017DataSet

Ejazh>Add>Query: FillByIdCard
SELECT * FROM Ejazh WHERE (IdCardE = ?)

Dorah>Add>Query: FillByIdCard
SELECT * FROM Dorah WHERE (IdCardD = ?) 


RE: مساعدة في إكمال كود البحث بأكثر من جدول - أبووسم - 22-10-17

(22-10-17, 02:41 PM)a.ahmed كتب :
PHP كود :
Open MyData2017DataSet

Ejazh>Add>Query: FillByIdCard
SELECT * FROM Ejazh WHERE (IdCardE = ?)

Dorah>Add>Query: FillByIdCard
SELECT * FROM Dorah WHERE (IdCardD = ?) 

ما زالت المشكلة مستمره اخي الكريم

أعتذر على إزعاجك