قمت بتحميل أسماء الصفوف من الحقل safname في combo3
ما أريده :
أن يتم تعبأة الـ combo4 بأرقام الصفوف والتي يمكن معرفة عددها من الحقل fsolcount الذي يحتوي على عدد الفصول ، مثلاً الأول الثانوي فيه 6 فصول ، والثاني 3 فصول ، والثالث فصلين
فحينما يتم اختيار الصف الأول الثانوي يفترض أن يقرأ البرنامج عدد الصفوف من قاعدة البيانات ويعبأ combo4 بـ
1
2
3
4
5
6
وأيضاً أن يتم إضافة قيمة الحقل alsaf الخاصة بالصف من قاعدة البيانات إلى صندوق التكست 1
صورة توضيحية :
Private Sub Form_Load()
Dim MaarefDB As String
' الإعلان عن المتغيرات المستخدمه لإتصال بقاعدة البيانات
Dim obj_con As New ADODB.Connection
Dim obj_command As New ADODB.Command
Dim obj_recordset As ADODB.Recordset
Dim obj_recordset2 As ADODB.Recordset
MaarefDB = App.Path & "/db6.mdb"
' الاتصال بقاعدة البيانات
obj_con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + MaarefDB
obj_con.Open
obj_command.ActiveConnection = obj_con
obj_command.CommandText = "SELECT * From st_student Where((st_student.alsaf = 10) AND (st_student.alfasel = 1))"""
'تحميل أسماء الصفوف في كومبو
'SELECT * From st_sofoof Where((st_sofoof.safname like '%%'))
obj_command.CommandText = "SELECT DISTINCT alsaf, safname,fsolcount FROM st_sofoof"
obj_command.CommandType = adCmdText
Set obj_recordset = obj_command.Execute
Combo3.Clear
Do Until obj_recordset.EOF
alsaf = obj_recordset.Fields("alsaf").Value
safname = obj_recordset.Fields("safname").Value
fsolcount = obj_recordset.Fields("fsolcount").Value
Combo3.AddItem safname
Combo3.ListIndex = Combo3.ListCount - 1
obj_recordset.MoveNext
Loop
Combo3.ListIndex = Combo3.ListIndex = 0
End Sub
وقد أرفقت المثال في المرفقات
