مشكلة في كود الحفظ والتحديث

برجاء الرد على استفسارى

وجزاكم الله خيرا

مشكلتك عدد الكومه (,) في الحفظ حاول عدد الكومة بعدد المدخلات ولا ترسل الكومه في المتغير بل تكون في جملة الحفظ المتغير هو قيمه فقط

ممكن حضرتك توضحلي فيين الارور موجود فين بالضبط

وبعدين ايه مشكلة التحديث يعطي ارور ايضا

a_zeky كتب:

ممكن حضرتك توضحلي فيين الارور موجود فين بالضبط

وبعدين ايه مشكلة التحديث يعطي ارور ايضا

من فضلك كمل رد على استفساري وجزاك الله خيرا

هذا الكود لعملية الاضافة

 Try

            If myconn.State = ConnectionState.Closed Then myconn.Open()

            mycomm.CommandType = CommandType.Text
            mycomm.CommandText = " insert into vsl (vessel,voyage,arrival) values (@STR1 ,@STR2 ,@STR3 )"
            mycomm.Parameters.Add("@STR1", SqlDbType.NVarChar, 50).Value = TextBox1.Text
            mycomm.Parameters.Add("@STR2", SqlDbType.NVarChar, 50).Value = TextBox2.Text
            mycomm.Parameters.Add("@STR3", SqlDbType.DateTime).Value = TextBox3.Text

            mycomm.ExecuteNonQuery()

            MessageBox.Show("data already inserted in data base", "saving...", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception
            MessageBox.Show("please check your entry", "revise", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            myconn.Close()
        End Try

هذا الكود لعملية التعديل

Try

            If myconn.State = ConnectionState.Closed Then myconn.Open()

            mycomm.CommandType = CommandType.Text
            mycomm.CommandText = "update vsl set vessel = @STR1 , voyage = @STR2 , arrival = @STR3  WHERE IDVSL =@str5"
            mycomm.Parameters.Add("@STR1", SqlDbType.NVarChar, 50).Value = TextBox1.Text
            mycomm.Parameters.Add("@STR2", SqlDbType.NVarChar, 50).Value = TextBox2.Text
            mycomm.Parameters.Add("@STR3", SqlDbType.DateTime).Value = TextBox3.Text
            mycomm.Parameters.Add("@STR5", SqlDbType.DateTime).Value = TextBox12.Text

            mycomm.ExecuteNonQuery()

            MessageBox.Show("data already updated in data base", "updating...", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception
            MessageBox.Show("please check your entry", "revise", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            myconn.Close()
        End Try

نصيحة مني البرنامج يحتاج تحليل وبناء من جديد

شكرا على مساعدتك وعلى النصيحة

الكود لا يعمل ايضا ولا اعرف السبب

جزاك الله خيرا