السلام عليكم ورحمة الله وبركاته
اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس :-
المطلوب هو اضافة البيانات الموجوده في كمبوبوكس مثل التقدير :-
البيانات محدوده فقط مثل ممتاز - جيد جدا - جيد - مقبول - ضعيف ...
اتمنى الفكره واضحه ارجو تزويدي بكود البرمجي :-
بارك الله فيكم ...
كود :
ComboBox1.Items.Add("ممتاز")
ComboBox1.Items.Add("جيد جدا")
وهكذا
بارك الله فيك ...
لكن ؟
اريد الكود البرمجي خاص بالاداه ...
نحمده ونصلي على رسوله الكريم
ما المشكله في الكود السابق؟ اذا كان طلبك غير ذلك قم بالتوضيح اكثر....
وضعت الكود في
كود :
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Specianame.Items.Add("ممتاز")
Specianame.Items.Add("جيد جدا")
Specianame.Items.Add("جيد")
Specianame.Items.Add("مقبول")
Specianame.Items.Add("ضعيف")
End Sub
كود الاضافة ولكن لاتضاف البيانات في القاعده
كود :
Try Private Sub Buttadd_Click(sender As System.Object, e As System.EventArgs) Handles Buttadd.Click
Try
Dim saveok As Boolean
saveok = winclass.SQLExicute(" Insert Into Student (IDstu,Namestu,Mobilestu,Specianame) values ('" & Textno.Text & "','" & TextName.Text & "','" & Textmob.Text & "','" & Specianame.SelectedValue & "')")
If saveok = True Then
MsgBox("تمت عملية حفظ البيانات بنجاح", MsgBoxStyle.Exclamation, "تأكيد عملية الحفظ")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
استخدم:
كود :
[align=left] Specianame.Text
[/align]
بارك الله فيك يالغالي
ضبط الكود ... :o