[مصمم هاوي]

بارك الله فيكم تم تعديل بيانات جلب جدولين وعرض في الليست بوكس وهو شغالٌ 100%

كود :

Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "Select ID,Name_Student from TBL_Final2 Where TBL_Final2.tag=3 and TBL_Final2.result='ناجح' And [TBL_Final2.Clas] ='" & Me.Combcless.Text & "' And [TBL_Final2.CClas] ='" & Me.Combccless.Text & "' union all select ID,Name_Student from TBL_Final1 Where [TBL_Final1.Clas] ='" & Me.Combcless.Text & "' And [TBL_Final1.CClas] ='" & Me.Combccless.Text & "' And TBL_Final1.result='ناجح' and TBL_Final1.tag=2", db, adOpenStatic, adLockOptimistic

Lsum.Caption = " عدد الطلبــة الناجحين : " & RS.RecordCount & ""

L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'

وهذا الكود بدون أختيار من الكومبوكس

كود :

Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.Open "Select ID,Name_Student,Clas,CClas,Semester,result,tag from TBL_Final1 Where TBL_Final1.tag=2 and TBL_Final1.result='ناجح' union all select * from TBL_Final2 Where TBL_Final2.result='ناجح' and TBL_Final2.tag=3", db, adOpenStatic, adLockOptimistic

Lsum.Caption = "عدد الطلبـة الناجحين : " & RS.RecordCount & ""

L1.Clear
For I = 0 To RS.RecordCount - 1
L1.AddItem RS![Name_Student]
L1.ItemData(L1.NewIndex) = RS![ID]
RS.MoveNext
Next
'