تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار الأبناء بعد إختيار الأباء
#1
السلام عليكم اخواني بعد اذنكم ارجو المساعدة ..لدي اثنين كومبوبوكس الأولى رقم 1 مملوءة باسماء الأباء من جدول TableFather
و الثانية كومبوبوكس رقم 2 من المفروض يتم ملئها من جدول الابناء بعد اختيار اسم الاب من الجدول الاول بدلالة كود الأب
ما ضبطت معي العملية بعد عدة محاولات و شكرا للجميع


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 98.42 ك ب / التحميلات : 17)
الرد }}
تم الشكر بواسطة: سعود
#2
كود :
Imports System.Data.OleDb

Public Class Form1
   Dim conne As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Database1.mdb"
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       fill_father_name()
   End Sub
   Private Sub fill_father_name()

  Dim SQL As String = "SELECT Fathercode , Fathername From TableFather"
       Dim da As New OleDbDataAdapter(SQL, conne)
       Dim ds As New DataSet
       da.Fill(ds, "TableFather")
       ComboBox1.DataSource = ds.Tables("TableFather")
       ComboBox1.DisplayMember = "Fathername"
       ComboBox1.ValueMember = "Fathercode"
       ComboBox1.SelectedIndex = -1
   End Sub
   Private Sub fill_student_name()
       Dim SQL As String = "SELECT studentname , studentfathercode From TableStudent Where studentfathercode = '" & ComboBox1.SelectedValue & "'"
       Dim da As New OleDbDataAdapter(SQL, conne)
       Dim ds As New DataSet
       da.Fill(ds, "TableStudent")
       ComboBox2.DataSource = ds.Tables("TableStudent")
       ComboBox2.DisplayMember = "studentname"
       ComboBox2.ValueMember = "studentfathercode"
   End Sub
   Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
       fill_student_name()
   End Sub

 
End Class
الرد }}
#3
شكرا بارك الله فيك ضبطت بالكود تبعك الهي يرزقك خير الدارين ان شاء الله
الرد }}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم