Private Sub LVlist_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LVlist.SelectedIndexChanged
If LVlist.SelectedItems.Count > 0 Then
With LVlist.SelectedItems(0)
VarIdentifier = .SubItems(0).Text
lblname.Text = .SubItems(0).Text
End With
pix()
End If
end sub
Sub pix()
sql = "select pic from tbldishlist where nod = '" & lblname.Text & "'"
Dim acscmd = New OleDb.OleDbCommand(sql, Con)
acsdr = acscmd.ExecuteReader()
acsdr.Read()
If acsdr!pic <> "" Then
PictureBox1.Load(imgPath & acsdr!pic)
Else : PictureBox1.Load(imgPath & "add_user.jpg")
End If
acsdr.Close()
End Sub
jez9 5 Junior Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
jez9 5 Junior Poster
Mr.M 58 Future Programmers
jez9 5 Junior Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
jez9 5 Junior Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
Santanu.Das commented: Mind-blowing +5
jez9 5 Junior Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
jez9 5 Junior Poster
jez9 5 Junior Poster
jez9 5 Junior Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
jez9 5 Junior Poster
jez9 5 Junior Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
jez9 5 Junior Poster
Reverend Jim 4,966 Hi, I'm Jim, one of DaniWeb's moderators. Moderator Featured Poster
jez9 5 Junior Poster
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.