Can anybody please help me with this code:
Private Sub SavePicture()
Dim PictureId() As String = Split(txtPic.Text, "\")
Array.Reverse(PictureId)
Dim ms1 As New MemoryStream()
<strong>PicBox.Image.Save(ms1, PicBox.Image.RawFormat)</strong>
Dim Picture() As Byte = ms1.GetBuffer
ms1.Close()
Dim SignatureId() As String = Split(txtSign.Text, "\")
Array.Reverse(SignatureId)
Dim ms2 As New MemoryStream()
<strong> SignBox.Image.Save(ms2, SignBox.Image.RawFormat)</strong>
Dim Signature() As Byte = ms2.GetBuffer
ms2.Close()
Dim FingerPrintId() As String = Split(txtFinger.Text, "\")
Array.Reverse(FingerPrintId)
Dim ms3 As New MemoryStream()
<strong> FingerBox.Image.Save(ms3, FingerBox.Image.RawFormat)</strong>
Dim FingerPrint() As Byte = ms3.GetBuffer
ms3.Close()
cn.Open()
Try
Dim strSQL As String = _
"INSERT INTO Images (RECRUITMENTNO, PictureId, Picture,SignatureId,Signature,FingerPrintId,FingerPrint)" & _
"VALUES ('" & txtRecruitmentno.Text & "', @PictureId, @Picture, @SignatureId, @Signature, @FingerPrintId, @FingerPrint)"
Dim cmd As New SqlCommand(strSQL, cn)
With cmd
.Parameters.Add(New SqlParameter("@PictureId", SqlDbType.NVarChar, 50)).Value = PictureId(0)
.Parameters.Add(New SqlParameter("@Picture", SqlDbType.Image)).Value = Picture
.Parameters.Add(New SqlParameter("@SignatureId", SqlDbType.NVarChar, 50)).Value = SignatureId(0)
.Parameters.Add(New SqlParameter("@Signature", SqlDbType.Image)).Value = Signature
.Parameters.Add(New SqlParameter("@FingerPrintId", SqlDbType.NVarChar, 50)).Value = FingerPrintId(0)
.Parameters.Add(New SqlParameter("@FingerPrint", SqlDbType.Image)).Value = FingerPrint
End With
cmd.ExecuteNonQuery()
MessageBox.Show(PictureId(0) & " saved to the database.", "Image Save Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
MessageBox.Show(SignatureId(0) & " saved to the database.", "Image Save Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
MessageBox.Show(FingerPrintId(0) & " saved to the database.", "Image Save Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch sqlExc As SqlException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception
MessageBox.Show(exc.Message)
End Try
cn.Close()
End Sub
Private Sub DisplayPicture()
Dim Picture As String
Dim Signature As String
Dim FingerPrint As String
Dim insd As New SqlCommand
Dim selectdata As String
cn.Open()
selectdata = " select PICTUREID,PICTURE,SIGNATUREID,SIGNATURE,FINGERPRINTID,FINGERPRINT FROM Images where RECRUITMENTNO = '" & txtRecruitmentno.Text & "'"
insd.Connection = cn
insd.CommandType = CommandType.Text
insd.CommandText = selectdata
Try
Dim dr As SqlDataReader = insd.ExecuteReader
dr.Read()
Dim arrPicture() As Byte = CType(dr.Item(1), Byte())
Dim arrSignature() As Byte = CType(dr.Item(3), Byte())
Dim arrFingerPrint() As Byte = CType(dr.Item(5), Byte())
Dim ms1 As New MemoryStream(arrPicture)
If arrPicture.GetUpperBound(0) > 0 Then
ms1 = New MemoryStream(arrPicture)
txtPic.Text = dr.Item(0).ToString
'lblFileName.Text = dr.Item(1).ToString
With PicBox
.Image = Image.FromStream(ms1)
.SizeMode = PictureBoxSizeMode.Zoom
.BorderStyle = BorderStyle.FixedSingle
End With
ms1.Flush()
ms1.Close()
End If
Dim ms2 As New MemoryStream(arrSignature)
If arrSignature.GetUpperBound(0) > 0 Then
ms2 = New MemoryStream(arrSignature)
txtSign.Text = dr.Item(2).ToString
'lblFileName.Text = dr.Item(1).ToString
With SignBox
.Image = Image.FromStream(ms2)
.SizeMode = PictureBoxSizeMode.Zoom
.BorderStyle = BorderStyle.FixedSingle
End With
ms2.Flush()
ms2.Close()
End If
Dim ms3 As New MemoryStream(arrFingerPrint)
If arrFingerPrint.GetUpperBound(0) > 0 Then
ms3 = New MemoryStream(arrFingerPrint)
txtFinger.Text = dr.Item(4).ToString
'lblFileName.Text = dr.Item(1).ToString
With FingerBox
.Image = Image.FromStream(ms3)
.SizeMode = PictureBoxSizeMode.Zoom
.BorderStyle = BorderStyle.FixedSingle
End With
ms3.Flush()
ms3.Close()
dr.Close()
Else
Picture = Nothing
Signature = Nothing
FingerPrint = Nothing
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
cn.Close()
End Sub
When i run it, it saves and displays image but its throws an exception(the part highlighted) when i try to update. That is if, i am saving a data that has one or all of the retrieved pictures.
Please i need help asap.
Thank you very much
Dapsin
