[feras.mohy]

شباب عندي برنامج على الفيجوال دوت نت وقاعده البيانات اسكيوال سيرفر 
بواجهه الادخال من احفظ اريده يحفظه البيانات على جدول inputt وبنفس الوقت يزيد عدد 1 في جدول الرصيد للماده المسمى amouny .totla  طبعا الاسم راح يقارن من combobox2.text   ارجو المساعده
هذا كود الحفظ ارغب بالتعديل عليه 

PHP كود :

If TextBox1.Text = "" Then
            MsgBox("الرجاء ادخال رقم المستند")
        ElseIf TextBox2.Text = "" Then
            MsgBox("الرجاء ادخال تاريخ المستند")
        ElseIf ComboBox2.Text = "" Then
            MsgBox("الرجاء ادخال نوع ")
        ElseIf ComboBox3.Text = "" Then
            MsgBox("الرجاء ادخال حاله ")
        ElseIf ComboBox1.Text = "" Then
            MsgBox("الرجاء ادخال الجهه الوارده")
        ElseIf TextBox3.Text = "" Then
            MsgBox("الرجاء ادخال رقم ")
        ElseIf TextBox4.Text = "" Then
            MsgBox("الرجاء ادخال رقم الموافقه")
        ElseIf TextBox6.Text = "" Then
            MsgBox("الرجاء ادخال  الملاحظات")
        Else
            cmd = New SqlCommand("insert into inputta (nomdoc, datdoc,kinwep,wepsach,jeha,selnum,mowa,notees)values(@nomdoc, @datdoc,@kinwep,@wepsach,@jeha,@selnum,@mowa,@notees )", con)
            With cmd.Parameters.AddWithValue("@nomdoc", TextBox1.Text)
                cmd.Parameters.AddWithValue("@datdoc", TextBox2.Text)
                cmd.Parameters.AddWithValue("@kinwep", ComboBox2.Text)
                cmd.Parameters.AddWithValue("@wepsach", ComboBox3.Text)
                cmd.Parameters.AddWithValue("@jeha", ComboBox1.Text)
                cmd.Parameters.AddWithValue("@selnum", TextBox3.Text)
                cmd.Parameters.AddWithValue("@mowa", TextBox4.Text)
                cmd.Parameters.AddWithValue("@notees", TextBox6.Text)
                MsgBox("تم حفظ المستند بنجاح")
                TextBox1.Text = ""
                TextBox2.Text = ""
                ComboBox2.Text = ""
                ComboBox3.Text = ""
                ComboBox1.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox6.Text = ""
            End With
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()