15-06-20, 09:59 PM
هذا هو تصميم مشروعى:
وهذا هو تصميم قاعدة البيانات:
عندما يتم كتابة محتوى العمود (PersonID) فى ال textbox ثم الضغط على زر (Load Images)
أريد أن تظهر الصور المخزنة فى العمود (PersonImage) فى ال listView
حاولت مع هذا الكود ولكن لا شىء يحدث
وهذا هو تصميم قاعدة البيانات:
عندما يتم كتابة محتوى العمود (PersonID) فى ال textbox ثم الضغط على زر (Load Images)
أريد أن تظهر الصور المخزنة فى العمود (PersonImage) فى ال listView
حاولت مع هذا الكود ولكن لا شىء يحدث
كود :
Private Sub BtnLoadImages_Click(sender As Object, e As EventArgs) Handles BtnLoadImages.Click
ImageList1.Images.Clear()
ListView1.Clear()
Using cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Images.accdb")
cnn.Open()
Try
Dim sql As String = "SELECT * FROM [My Images] WHERE PersonID = @myid"
Using cmd As New OleDbCommand(sql, cnn)
cmd.Parameters.AddWithValue("@myid", TextBox1.Text)
Dim dr As OleDbDataReader
dr = cmd.ExecuteReader
If dr.Read = False Then
MsgBox("No Image is Registered")
Else
Do While dr.Read
Dim bytes() As Byte = dr("PersonImage")
ImageList1.Images.Add(Image.FromStream(New MemoryStream(bytes)))
Loop
ListView1.View = View.SmallIcon
ListView1.SmallImageList = ImageList1
End If
End Using
Catch ex As Exception
MessageBox.Show("error : " + ex.Message)
End Try
cnn.Close()
End Using
End Sub