بســم الله الـرحمــن الرحيــم
لما سمعت عن هذا الموقع من نجاح ومن توفق على الكثير من المواقع احببت عن اطرح مشكلتي هنا اتمنى من الله ان اجد الاجابه
لا احب ان اطيل عليكم انا في سنة التخرج ومشروعي هو نظام الكتروني لمدرسة مرتبط بموقع وقد انتهيت الحمدلله من الجزء التحليلي وبدات الان في الجزء التنفيذي وكانت اول عملية فيه هي عملية الربط فعندما حاولت ان اربط كانت هنا ك مشكلة تصادفني في ربط الcombox فمثلا عندي في شاشة شؤون الموظفات الحقول التالية رقم الموظفة - اسمها-نوع العمل- رقم القسم. ونوع العمل عباره عن combobox اما الباقي فtext ويجب ان اربط رقم الموظفة واسمها بجدول الموظفات اما نوع العمل بجدول الاعمال واما رقم القسم بجدول الاقسام
ولقد فعلت التالي
في الgeneral
mports System.Data
Imports System.Data.OleDb
وفي form
Dim constr As String = "provider= microsoft.jet.oledb.4.0;" & _
"datA source=" & Application.StartupPath & "db1.MDB"
Dim CONN As New OleDbConnection(constr)
Dim DATASET1 As New DataSet
Dim DATASET3 As New DataSet
Dim DATASET2 As New DataSet
Dim SQLSTR As String = "SELECT *FROM Employee "
Dim SQLSTR1 As String = "SELECT *FROM Busnies "
Dim SQLSTR2 As String = "SELECT *FROM Partition "
اما في form-laod
CONN.Open()
Dim DATAADAPTER1 As New OleDbDataAdapter(SQLSTR, CONN)
Dim DATAADAPTER2 As New OleDbDataAdapter(SQLSTR1, CONN)
Dim DATAADAPTER3 As New OleDbDataAdapter(SQLSTR2, CONN)
DATAADAPTER1.Fill(DATASET1, "Employee")
DATAADAPTER2.Fill(DATASET2, "Busnies")
DATAADAPTER3.Fill(DATASET3, "Partition")
CONN.Close()
TextBox11.DataBindings.Add("TEXT", DATASET1, "Employee.Num-employee")
TextBox1.DataBindings.Add("TEXT", DATASET1, "Employee.Name-employee")
TextBox10.DataBindings.Add("TEXT", DATASET1, "Employee.Telephone")
[="TextBox2.DataBindings.Add("TEXT", DATASET1, "Employee.Nationality")
ComboBox1.DataBindings.Add("TEXT", DATASET2, "Busnies.Type of work")
TextBox13.DataBindings.Add("TEXT", DATASET2, "Busnies.Time of work")
مع العلم ان جدول الموظفين مرتبط بجدول الاعمال والاقسام وهل هنا طريقةربط الcombo box صحيحة لان الخطأ يظهر فيه ارجوكم افيدونا مالعمل وجزاكم الله خيرا