elmira_63
دوشنبه 06 خرداد 1387, 10: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
من توی یکی از جدولام یه فیلد دارم که از نوع 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