OpenFileDialog for browse the Image and showing in picture box.
OpenFileDialog1.Filter = "Image File (*.jpg;*.bmp;*.gif)|*.jpg;*.bmp;*.gif"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
sfile = OpenFileDialog1.FileName ' Store the file name in variable "sfile"
pbox.Image = System.Drawing.Bitmap.FromFile(sfile)
pbox.SizeMode = PictureBoxSizeMode.StretchImage
End If
Convert image into Byte using Filestream
Try
Dim fs As FileStream
fs = New FileStream(sfile, FileMode.Open, FileAccess.Read) 'Pass the sfile value
Dim picByte As Byte() = New Byte(fs.Length - 1) {}
fs.Read(picByte, 0, System.Convert.ToInt32(fs.Length))
fs.Close()
Insert statement for SQL query
Dim sqltxt As String
sqltxt = "insert into nstudent values('" & txt_sID.Text & "','" & txt_fname.Text & "','" & txt_lname.Text & "','" & cmb_gender.Text & "','" & txt_dob.Text & "','" & txt_addr.Text & "',@photo)"
Store image as Binary value using SQLParameter
Dim imgP As New SqlParameter
imgP.SqlDbType = SqlDbType.Binary
imgP.ParameterName = "photo"
imgP.Value = picByte
sqlcmd = New SqlCommand(sqltxt, con)
sqlcmd.Parameters.Add(imgP)
sqlcmd.ExecuteNonQuery()
MsgBox("Data Saved Successfully")
sqlcmd.Dispose()
con.Dispose()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Retrieve Image from database and set in Picture box
Sub rimage(ByVal imgno As Integer) 'User created Function "rimage"
If pbox.Image IsNot Nothing Then
pbox.Image.Dispose()
End If
Dim arr() As Byte
arr = dr.Item(imgno) 'Pass the varaible imgno from funciton "rimage"
pbox.Image = Image.FromStream(New IO.MemoryStream(arr))
pbox.SizeMode = PictureBoxSizeMode.StretchImage
End Sub
Using select command for retrieving data from database
Dim s as String
s = "Select * from nstudent where sID = '" & valu & "'" 'Getting input using InputBox & store the value in string varaible
Dim cmd As New SqlCommand(s, con)
dr = cmd.ExecuteReader
Dim n As Byte
n = dr.Read()
If n > 0 Then
txt_sID.Text = dr.Item(0)
txt_fname.Text = dr.Item(1)
txt_lname.Text = dr.Item(2)
cmb_gender.Text = dr.Item(3)
txt_dob.Text = dr.Item(4)
txt_addr.Text = dr.Item(5)
Call rimage(6) 'Call the Function
Else
MsgBox("NotFound")
End If
If Not dr.IsClosed Then dr.Close()
End Sub
