[مبرمج أوتار]

السلام عليكم ورحمة الله وبركاته

اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس :-

المطلوب هو اضافة البيانات الموجوده في كمبوبوكس مثل التقدير :-

البيانات محدوده فقط مثل ممتاز - جيد جدا - جيد - مقبول - ضعيف ...

اتمنى الفكره واضحه ارجو تزويدي بكود البرمجي :-

بارك الله فيكم ...

[أحمد النجار]

كود :

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