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
(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
(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
