[أبو خالد الشكري]

(17-12-22, 04:57 PM)عبدالكريم برشدان كتب : السلام عليكم اخواتي الاعزاء

اريد مساعدة في تعديل الكود 

اريد حفظ الملف بعد التعديل 

كود :

 Dim Cmd As New SqlCommand
           With Cmd
               .Connection = Con
               .CommandType = CommandType.Text
               .CommandText = "Update tbl_decisions Set decnum = @decnum,decyear = @decyear,dectype = @dectype,decfile = @decfile,decdate_update = @decdate_update,decuser_update = @decuser_update,dec_extension = @dec_extension Where decid = @decid"""
               .Parameters.Clear()
               .Parameters.AddWithValue("@decid", SqlDbType.Int).Value = Guna2TextBox1.Text
               .Parameters.AddWithValue("@decdate_update", SqlDbType.Date).Value = Guna2DateTimePicker1.Value
               .Parameters.AddWithValue("@decnum", SqlDbType.Int).Value = Guna2TextBox7.Text
               .Parameters.AddWithValue("@decyear", SqlDbType.Int).Value = Guna2ComboBox5.Text
               .Parameters.AddWithValue("@dectype", SqlDbType.VarChar).Value = Guna2TextBox3.Text
               .Parameters.AddWithValue("@decuser_update", SqlDbType.VarChar).Value = frm_home.Label10.Text
               .Parameters.AddWithValue("@dec_extension", SqlDbType.VarChar).Value = Path.GetExtension(ofd.FileName)

               Dim fs As New FileStream(ofd.FileName, FileMode.Open, FileAccess.Read)
               Dim br As New BinaryReader(fs)
               Dim file() As Byte = br.ReadBytes(br.BaseStream.Length)
               .Parameters.AddWithValue("@decfile", SqlDbType.VarBinary).Value = file


           End With
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Cmd.ExecuteNonQuery()
           Con.Close()
           MsgBox("تم تعديل السجل بنجاح", MsgBoxStyle.Information, "حفظ")
           Cmd = Nothing

ما هي رسالة الخطأ التي تظهر عند تنفيذ هذا الكود ؟