PDA

View Full Version : مبتدی: مشکل با ری استور عکس



aminvb
جمعه 01 آبان 1388, 11:32 صبح
داخل دیتا گرید ویو لیستی از پرسنل هستد که بعضیها دارای عکس هسند بعضی ها ندارند
روی افرادی که دارای عکس هستند کلیک می کنیم عکسشون توو پیکچر باکس میاد اما اونایی که عکس ندارند کیلیک میکنیم برنامه خطا میده
می خواستم بدونم چطور میشه یک فیلد عکس در صورت خالی بودن دستورات رستور عکس اجرا نشه
HELp M:گریه:E PLZZZZZZZZ

DataMaster
جمعه 01 آبان 1388, 11:39 صبح
فكر ميكنم اين مشكل شما مربوط به كدنويسي اپليكيشن شماست نه ديتابيس

aminvb
جمعه 01 آبان 1388, 11:48 صبح
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick

If File.Exists(Application.StartupPath & "\File1.Jpg") = True And sw = False Then
File.Delete(Application.StartupPath & "\File1.Jpg")
End If



If File.Exists(Application.StartupPath & "\File1.Jpg") = True And sw = True Then
ImageBitmap.Dispose()
File.Delete(Application.StartupPath & "\File1.Jpg")
End If




''''''Load Image(Start)


Dim STRFile As New ADODB.Stream
STRFile.Type = ADODB.StreamTypeEnum.adTypeBinary
STRFile.Open()
STRFile.Write(DataView1.Item(e.RowIndex).Item("ax"))
STRFile.SaveToFile(Application.StartupPath & "\File1.Jpg", ADODB.SaveOptionsEnum.adSaveCreateOverWrite)
''''''Load Image(END)


sw = True
ImageBitmap = New System.Drawing.Bitmap(Application.StartupPath & "\File1.Jpg")



PictureBox1.Image = ImageBitmap




End Sub