aminvb
جمعه 13 آذر 1388, 22:06 عصر
سلام
دوستان من عکسو در sql با این کد ذخیره کردم
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()
.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()
.Parameters(8).Value = MyData
End Ifحالا داخله DataGridView1_CellClick از چه کدی استفاده کنم که بتونم با کیلیک روی DataGridView1 سطر مورد نظرم عکس داخله پیکچر باکس لود بشه
دوستان من عکسو در sql با این کد ذخیره کردم
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()
.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()
.Parameters(8).Value = MyData
End Ifحالا داخله DataGridView1_CellClick از چه کدی استفاده کنم که بتونم با کیلیک روی DataGridView1 سطر مورد نظرم عکس داخله پیکچر باکس لود بشه