PDA

View Full Version : سوال: چگونگی update کردن یک فیلد از نوع image در جدول



elmira_63
دوشنبه 06 خرداد 1387, 09:42 صبح
سلام
من توی یکی از جدولام یه فیلد دارم که از نوع image ولی وقتی عکس رو عوض میکنم update نمی شه و میگه که نمی تونه فیلد از نوع image رو update کنه چرا ؟؟؟؟؟؟؟؟؟؟


strsql3 = "update sabtenam set raked='" & c1 & "',tasvir=@i,code='" & t1 & "', name='" & t2 & "',lname='" & t3 & "',fname='" & t4 & "',shenasname='" & t5 & "',tavalod='" & t6 & "',sadere='" & t7 & "',tell1='" & t8 & "',tell2='" & t19 & "',adress='" & t9 & "' where code='" & t1 & "'"
Dim cmd2 As SqlCommand = New SqlCommand(strsql3, con3)
Try
Dim path As String = OpenFileDialog1.FileName
Dim fs As FileStream = New FileStream(path, FileMode.Open, FileAccess.Read)
Dim bytimg(fs.Length - 1) As Byte
fs.Read(bytimg, 0, bytimg.Length)
fs.Close()
cmd2.Parameters.Add("@i", SqlDbType.Binary, bytimg.Length)
cmd2.Parameters("@i").Value = bytimg
cmd2.ExecuteNonQuery()
con3.Close()
ds3.Clear()
da3.Fill(ds3, "sabtenam")
con3.Close()
Catch
strsql3 = "update sabtenam set raked='" & c1 & "',code='" & t1 & "', name='" & t2 & "',lname='" & t3 & "',fname='" & t4 & "',shenasname='" & t5 & "',tavalod='" & t6 & "',sadere='" & t7 & "',tell1='" & t8 & "',tell2='" & t19 & "',adress='" & t9 & "' where code='" & t1 & "'"
Dim cmd3 As SqlCommand = New SqlCommand(strsql3, con3)
cmd3.ExecuteNonQuery()
con3.Close()
ds3.Clear()
da3.Fill(ds3, "sabtenam")
con3.Close()
End Try

elmira_63
دوشنبه 06 خرداد 1387, 09:45 صبح
البته الان که از try استفاده کردم میره قسمت catch رو اجرا می کنه

parsavb
جمعه 24 خرداد 1387, 11:57 صبح
قسمتهای مربوط این کد ها رو جایگزین کنید فکر کنم درست بشه



Dim ms AsNew MemoryStream
Dim arrimage() AsByte = ms.GetBuffer
Dim strsql AsString = "insert into Table_pic(pic_id,pic_name,pic_image)values(@pic_id ,@pic_name,@pic_image)"
Dim cmd AsNew SqlCommand(strsql, pic_con)
With cmd
.Parameters.Add(New SqlParameter("@pic_id", SqlDbType.Int)).Value = txtpic_cod.Text
.Parameters.Add(New SqlParameter("@pic_name", SqlDbType.NVarChar, 30)).Value = txtpic_name.Text
.Parameters.Add(New SqlParameter("@pic_image", SqlDbType.Image)).Value = arrimage
EndWith
cmd.ExecuteNonQuery()
pic_con.Close()