کمک فوری _ ذخیره و ویرایش تصویر

[sheibanizaveh]

با عرض سلام حضور اساتید محترم
من با دستور زیر عکس رو در بانک ذخیره میکنم :
Dim ms01 As New MemoryStreamL1
TryL2
Me.p_aks.Image.Save(ms01, p_aks.Image.RawFormat)L3
Catch exc As ExceptionL4
End TryL5
'
Dim arrimage01() As Byte = ms01.GetBufferL6
'
'_________________________________________________ __________________________________________ذخیر ه تصاویر
Dim strsql As String = "insert into T_Pic_Personal(F_No,F_Pic) values(@F_Noz,@F_Pic)"L7
pic_con.Open()L8
Dim cmd As New SqlCommand(strsql, pic_con)L9
With cmdL10
.Parameters.Add(New SqlParameter("@F_No", SqlDbType.NVarChar, 10)).Value = Val(Me.txt_No.Text)L11
.Parameters.Add(New SqlParameter("@F_Pic", SqlDbType.Image)).Value = arrimage01L12
End WithL13
cmd.ExecuteNonQuery()L14
pic_con.Close()L15
حالا وقتی میخوام یکی از این تصاویرو ویرایش کنم(جایگزین) میام ردیف مورد نظر رو حذف و دوباره تصویر جدید رو INSERT میکنم
میخواستم از اساتید عزیز بپرسم با توجه به کد بالا چجوری میتونم عملیات UPDATE رو انجام بدم .
سپاس گذارم .

[gilsoft]

Dim strsql As String = "insert into T_Pic_Personal(F_No,F_Pic) values(@F_Noz,@F_Pic)"

سلام دوست عزیز
کد بالا رو به شکل زیر تغییر بده :

Dim strsql As String = "UPDATE T_Pic_Personal SET F_Pic=@F_Pic WHERE F_No=@F_Noz"


و کد Parameters.Add(New SqlParameter("@F_No", SqlDbType.NVarChar, 10)).Value = Val(Me.txt_No.Text) رو حذف کن

موفق باشید ....