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

وضعت الكود في

كود :

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