المشاركات : 761
المواضيع 134
الإنتساب : May 2015
السمعة :
62
الشكر: 667
تم شكره 1388 مرات في 627 مشاركات
السلام عليكم ورحمة الله وبركاته
الأساتذة الكرام
هذا مثال صغير أرجو منكم تعبئة الكومبوكس من جدول قاعدة بيانات SQL_SERVER
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 761
المواضيع 134
الإنتساب : May 2015
السمعة :
62
الشكر: 667
تم شكره 1388 مرات في 627 مشاركات
بارك الله فيكم تم حل المشكلة عن طريق هذا الكود
كود :
ComboJOP.Clear
If Cn.State = 1 Then Cn.Close
Call MyConnection
If Rs.State = 1 Then Rs.Close
Rs.Open "SELECT * FROM Tab_jop", Cn, adOpenKeyset, adLockOptimistic
If Rs.RecordCount > 0 Then
Do Until Rs.EOF
ComboJOP.AddItem Rs![jOP]
Rs.MoveNext
Loop
'
Rs.MoveFirst
'
ComboJOP.Text = ComboJOP.List(0)
End If
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ