02-05-24, 02:46 AM
استخدم هذا الكود :
كود :
Private Sub Combo1_Click()
ShowData
End Sub
Sub ShowData()
Dim Rs2 As New ADODB.Recordset
Dim strSQL As String
strSQL = "Select * from tabel2 Where classe = '" & Combo1.Text & "' Order By Num"
Rs2.Open strSQL, db, adOpenKeyset, adLockPessimistic
If Rs2.RecordCount > 0 Then
Rs2.MoveFirst
tniveau.Text = Rs2!niveau
End If
Rs2.Close
Set Rs2 = Nothing
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
