monboy
چهارشنبه 25 فروردین 1389, 17:44 عصر
سلام
من با كد زير در ديتا بيس اكسس عكس 1.jpg رو ذخيره مي كنم
وقتي كه دوباره براي يك ركورد جديد يك عكس ديگه رو كه لود كردم ميخوام ذخيره كنم عكس قبلي ذخيره ميشود يه جورايي تو حافظه ميمونه
وقتي از برنامه خارج و دوباره وارد ميشم و عكس جديد ذخيره كنم مشكل حل ميشه
Dim fs As New FileStream(openfiledialog1.filename.tostring , FileMode.OpenOrCreate , FileAccess.Read)
Dim br As New BinaryReader(fs)
Dim photo As Byte()
photo = br.ReadBytes(fs.Length)
br.Close()
fs.Close()
cmd.CommandText = "UPDATE pinfo SET img=@pic WHERE pcode=" & pcode & ""
cmd.Parameters.Add("@Pic", OleDb.OleDbType.Binary, photo.Length).Value = photo
cmd.ExecuteNonQuery()
fs.Dispose()
fs = Nothing
br.Close()
photo.Clone()
من با كد زير در ديتا بيس اكسس عكس 1.jpg رو ذخيره مي كنم
وقتي كه دوباره براي يك ركورد جديد يك عكس ديگه رو كه لود كردم ميخوام ذخيره كنم عكس قبلي ذخيره ميشود يه جورايي تو حافظه ميمونه
وقتي از برنامه خارج و دوباره وارد ميشم و عكس جديد ذخيره كنم مشكل حل ميشه
Dim fs As New FileStream(openfiledialog1.filename.tostring , FileMode.OpenOrCreate , FileAccess.Read)
Dim br As New BinaryReader(fs)
Dim photo As Byte()
photo = br.ReadBytes(fs.Length)
br.Close()
fs.Close()
cmd.CommandText = "UPDATE pinfo SET img=@pic WHERE pcode=" & pcode & ""
cmd.Parameters.Add("@Pic", OleDb.OleDbType.Binary, photo.Length).Value = photo
cmd.ExecuteNonQuery()
fs.Dispose()
fs = Nothing
br.Close()
photo.Clone()