المشاركات : 897
المواضيع 167
الإنتساب : May 2015
السمعة :
78
الشكر: 791
تم شكره 1504 مرات في 709 مشاركات
السلام عليكم ورحمة الله وبركاته
الأساتذة الكرام
هذا مثال صغير أرجو منكم تعبئة الكومبوكس من جدول قاعدة بيانات SQL_SERVER
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 897
المواضيع 167
الإنتساب : May 2015
السمعة :
78
الشكر: 791
تم شكره 1504 مرات في 709 مشاركات
بارك الله فيكم تم حل المشكلة عن طريق هذا الكود
كود :
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
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
