مشاهده نسخه کامل
: Mahmoudi_nik
09-08-2009, 20:13
با سلام خدمت اساتید گرامی
من با کد:
**************************
If OpenFileDialog1.FileName <> "" Then
''Insert To DataBase(Img_name)START
Dim fs As New FileStream(OpenFileDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
sqldataadapter1.insertcommand.Parameters(8).Value = MyData
''Insert To DataBase(Image)END
Else
Dim fs As New FileStream(Application.StartupPath + "\nopic.jpg", FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
SqlDataAdapter1.InsertCommand.Parameters(8).Value = MyData
End If
**************************
عکس رو در بانک ذخیره می کنم و با کد زیر که در خاصیت CellContentClick دیتا گرید نوشتم عکس رو بازیابی میکنم اما فقط یه بار کد عمل می کنه و بعد error :write to file failed رو میده! !
**************************
Dim STRFile As New ADODB.Stream
STRFile.Type = ADODB.StreamTypeEnum.adTypeBinary
STRFile.Open()
STRFile.Write(dv.Item(0).Item(9))
STRFile.SaveToFile(Application.StartupPath & "\File1.Jpg", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
''''''Load Image(END)
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\File1.Jpg")
STRFile.Close()
**************************
اگه راه دیگه ای هست ممنون میشم راهنمایی کنین.
من با کد:
**************************
If OpenFileDialog1.FileName <> "" Then
''Insert To DataBase(Img_name)START
Dim fs As New FileStream(OpenFileDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
sqldataadapter1.insertcommand.Parameters(8).Value = MyData
''Insert To DataBase(Image)END
Else
Dim fs As New FileStream(Application.StartupPath + "\nopic.jpg", FileMode.OpenOrCreate, FileAccess.Read)
Dim MyData(fs.Length) As Byte
fs.Read(MyData, 0, CInt(fs.Length))
fs.Close()
SqlDataAdapter1.InsertCommand.Parameters(8).Value = MyData
End If
**************************
عکس رو در بانک ذخیره می کنم و با کد زیر که در خاصیت CellContentClick دیتا گرید نوشتم عکس رو بازیابی میکنم اما فقط یه بار کد عمل می کنه و بعد error :write to file failed رو میده! !
**************************
Dim STRFile As New ADODB.Stream
STRFile.Type = ADODB.StreamTypeEnum.adTypeBinary
STRFile.Open()
STRFile.Write(dv.Item(0).Item(9))
STRFile.SaveToFile(Application.StartupPath & "\File1.Jpg", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
''''''Load Image(END)
PictureBox1.Image = Image.FromFile(Application.StartupPath & "\File1.Jpg")
STRFile.Close()
**************************
اگه راه دیگه ای هست ممنون میشم راهنمایی کنین.