I am having a headache on how to display an image from the datagridview (dgvMembers) to a picturebox (pbMyImage). I managed to save the details that include and image but not on my click event I want the image i saved previously to be displayed on the picture box by I stalled.
here is the code for saving the data into the access database:
<pre> Try
OpenConnection()
Dim ms As New MemoryStream()
Dim bmpImage As New Bitmap(pbMyImage.Image)
bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim data As Byte() = ms.GetBuffer()
Dim p As New OleDbParameter("@photo", OleDbType.VarBinary)
p.Value = data
Dim cb As String = "insert into Members(TBSNum,PassNum,Firstname,Lastname,DOB,DOJ,Status,Designation,Gender,ResAddress,Contact1,Contact2,EmailID,City,Photo)" &
"VALUES(@tbsnum,@passnum,@fname,@lname,@dob,@doj,@status,@design,@gender,@resaddress,@contact1,@contact2,@email,@city,@photo)"
cmd = New OleDbCommand(cb)
cmd.Connection = con
cmd.Parameters.AddWithValue("@tbsnum", txtTBSNum.Text)
cmd.Parameters.AddWithValue("@passnum", txtPassport.Text)
cmd.Parameters.AddWithValue("@fname", txtName.Text)
cmd.Parameters.AddWithValue("@lastname", txtSurname.Text)
cmd.Parameters.AddWithValue("@dob", dtDOB.MaxDate)
cmd.Parameters.AddWithValue("@doj", System.DateTime.Now.Date)
cmd.Parameters.AddWithValue("@status", cbStatus.SelectedItem)
cmd.Parameters.AddWithValue("@design", cbDesig.SelectedItem)
cmd.Parameters.AddWithValue("@gender", cbGender.SelectedItem)
cmd.Parameters.AddWithValue("@resaddress", txtAddress.Text)
cmd.Parameters.AddWithValue("@contact1", txtPhone1.Text)
cmd.Parameters.AddWithValue("@contact2", txtPhone2.Text)
cmd.Parameters.AddWithValue("@email", txtEmail.Text)
cmd.Parameters.AddWithValue("@city", txtCity.Text)
cmd.Parameters.AddWithValue("@photo", data)
cmd.ExecuteNonQuery()
CloseConnection()
Reset()
Getdata()
MessageBox.Show("Successfully saved", " TKBS Member Record", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
What I have tried:
And here is the code for the click event that I have tried:
Private Sub dgvMembers_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvMembers.CellContentClick
txtTBSNum.Text = dgvMembers.Rows(e.RowIndex).Cells("TBSNum").Value.ToString
txtPassport.Text = dgvMembers.Rows(e.RowIndex).Cells("PassNum").Value.ToString
txtName.Text = dgvMembers.Rows(e.RowIndex).Cells("Fname").Value.ToString
txtSurname.Text = dgvMembers.Rows(e.RowIndex).Cells("Surname").Value.ToString
dtDOB.Text = dgvMembers.Rows(e.RowIndex).Cells("DOB").Value.ToString
dtDOJ.Text = dgvMembers.Rows(e.RowIndex).Cells("DOJ").Value.ToString
cbStatus.Text = dgvMembers.Rows(e.RowIndex).Cells("Status").Value.ToString
cbDesig.Text = dgvMembers.Rows(e.RowIndex).Cells("Design").Value.ToString
cbGender.Text = dgvMembers.Rows(e.RowIndex).Cells("Gender").Value.ToString
txtAddress.Text = dgvMembers.Rows(e.RowIndex).Cells("ResAdd").Value.ToString
txtPhone1.Text = dgvMembers.Rows(e.RowIndex).Cells("Phone1").Value.ToString
txtPhone2.Text = dgvMembers.Rows(e.RowIndex).Cells("Phone2").Value.ToString
txtCity.Text = dgvMembers.Rows(e.RowIndex).Cells("City").Value.ToString
txtEmail.Text = dgvMembers.Rows(e.RowIndex).Cells("EmailID").Value.ToString
txtCity.Text = dgvMembers.Rows(e.RowIndex).Cells("City").Value.ToString
End Sub
The commented line here is one that I suspect having an problem. I dont get and error but the image is not displayed. That worries me. Please help.