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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس (/showthread.php?tid=8520)

اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس - مبرمج أوتار - 18-04-13

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

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

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

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

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

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

اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس - أحمد النجار - 18-04-13

كود :
ComboBox1.Items.Add("ممتاز")
        ComboBox1.Items.Add("جيد جدا")

وهكذا

اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس - مبرمج أوتار - 18-04-13

بارك الله فيك ...
لكن ؟

اريد الكود البرمجي خاص بالاداه ...

اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس - ربيع - 18-04-13

نحمده ونصلي على رسوله الكريم

ما المشكله في الكود السابق؟ اذا كان طلبك غير ذلك قم بالتوضيح اكثر....

اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس - مبرمج أوتار - 18-04-13

وضعت الكود في



كود :
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


اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس - ربيع - 18-04-13

استخدم:
كود :
[align=left] Specianame.Text
[/align]


اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس - مبرمج أوتار - 18-04-13

بارك الله فيك يالغالي

ضبط الكود ... :o