منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب مساعدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : طلب مساعدة (/showthread.php?tid=48404)

طلب مساعدة - abde6726 - 02-05-24

لي طلب من الاساتذة الكرام 
حسب المثال المرفق ..... عند كتابة القسم في الكمبوبوكس بكتب المستوى تلقائيا في التكست
مثلا عند كتابة 1م1 يكتب في التكست   س1...   و 2م1 يكتب س2 وهكذا

RE: طلب مساعدة - Taha Okla - 02-05-24

استخدم هذا الكود :
كود :
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


RE: طلب مساعدة - abde6726 - 02-05-24

السّلام عليكم و رحمة الله و بركاته
ألف شكر ..بارك الله فيك
جزاك الله خيرًا و زادها بميزان حسناتك
الشّكر موصول لك اخي  Taha Okla