Skip to main content

VB.Net : Save Image to Sql Server Database in VB.Net



Store Image into SQL Database using VB.Net

Here is the steps to save image into database.I'm using picture box to show saved image in database.
Before all this create one database, and one table with the name tbl_Employee and the  following feilds
Field Name
Data Type
Empcode
int
Address
Varchar(500)
Password
Varchar(50)
Photo
image



Here is interface which is used in pick image from local system. Having picture box and two button Add Photo, Remove Photo.


Here is code for Add Photo button.


Private Sub cmdAddPhoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddPhoto.Click
        If dlgOpen.ShowDialog() = Windows.Forms.DialogResult.OK Then
            pic.Image = Image.FromFile(dlgOpen.FileName)
            picFlag = "edit"
        End If
    End Sub



and code for Remove Button.

Private Sub cmdRemPhoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemPhoto.Click

        If MsgBox("Are you sure to remove agent photo", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm?") = MsgBoxResult.No Then Exit Sub

        pic.Image = My.Resources.noimage

        picFlag = "edit"

    End Sub

After coding all this we are going to code for save Button Event as Follow.This procedure takes image from PictureBox control named "pic" as a sql parameter.Here i use a function "ConvertImageToByte" for converting image to bytes.

            Dim sqlConn As New SqlClient.SqlConnection()
sqlConn.ConnectionString = "Password=123;Persist Security Info=True;User ID=sa;Data Source=.;initial catalog=dbEmp"

Dim SqlCmd As New SqlClient.SqlCommand

                  SqlCmd.Connection = sqlConn

Sql = "insert into tbl_Employee(Empcode,Address,Password,Photo) Values(" & _
                  "'" & CStr(EmpCode.Text) & "'," & _
                  "'" & CStr(Address.Text) & "'," & _
                  "'" & CStr(Password.Text) & "'," & _
                  "'" & Format(Now, "MM/dd/yyyy") & "'," & _
                  "@pics)"

       
        SqlCmd.CommandText = Sql

        Dim picphoto As New SqlClient.SqlParameter("@pics", SqlDbType.Image)
        picphoto.Value = ConvertImageToByte(pic.Image)
        SqlCmd.Parameters.Add(picphoto)

        Dim c As Integer = SqlCmd.ExecuteNonQuery()

        If c <> 0 Then
            MsgBox("Record Saved Successfully.", MsgBoxStyle.Information,    "Message")
        End If

After successfully saving image into database it will give message for confirmation.
Labels:

Comments

Post a Comment

Popular posts from this blog

UP TET 2011 Exam Application,UPTET 2011 Result | UPTET 2011 Revised Result

UPTET 2011 Result | UPTET 2011 Revised Result | UPTET 2011 Updated Result |Board of High School and Intermediate Education Uttar Pradesh, Allahabad UP TET Advertisement 2011 and Exam Detail/Admit Card/Call Letter Download UP TET 2011 FORM & DETAILS  GET LATEST DETAIL ABOUT 72825 Primary Teacher Merit List UP TET 2011 Application form submission last date is 18-Oct-2011.Forms will be distributed from PNB bank all over UP.According to latest news Appearing B.Ed student also eligible for TET exam 2011 so they can also submit their forms to concern District.There is no requirement for Rojgar Registration No and Bank receipt within the application form.UP TET 2011 exam results will be avail on http://www.uptet2011.com . Now you can easily get Application from from the P.N.B bank Branches. UPTET 2011 Result | UPTET 2011 Revised Result | UPTET 2011 Updated Result |  Board of High School and Intermediate Education Uttar Pradesh, Al...
86 comments
Read more

DataView Rowfilter With Like % in C#.Net

DataView RowFilter Syntax in C#,ASP.Net Example This example describes syntax of DataView.RowFilter expression. It shows how to correctly build expression string (without "SQL injection" ) using methods to escape values. Column names If a column name contains any of these special characters ~ ( ) # \ / = > < + – * % & | ^ ' " [ ], you must enclose the column name within square brackets [ ]. If a column namecontains right bracket ] or backslash \, escape it with backslash (\] or \\). [C#] dataView.RowFilter = "id = 10″; // no special character in column name " id " dataView.RowFilter = "$id = 10″; // no special character in column name " $id " dataView.RowFilter = "[#id] = 10″; // special character " #" in column name "#id" dataView.RowFilter = "[[id\]] = 10″; // special characters in column name " [id] " Literals String values are enclosed within single qu...
Post a Comment
Read more

UP Primary Teacher Recruitment 2011 – 72825 vacancy filled by jan 2012,Up Basic Education Primary Teacher Result, Up Basic Education Primary Teachers DIET wise Merit List, Primary Teachers Vacancy ,Teachers Vacancy in UP

Uttar Pradesh Government will recruit 72,825 Primary Teachers in schools of Basic Education council. This decision has been approved in the cabinet of UP. There are total 3,86,726 posts of teachers in the state out of which 2,84,391 posts have already been created. Currently only 1,87,155 teachers are working. There are 1,99,571 vacant posts of primary teachers  and the Government is planning to fill up 72,825 posts. Details of eligibility and application process are following: Eligibility : Educational Qualification –  Minimum 50% in Graduation ( BA / B.Sc /B.Com) with B.Ed degree Have to qualify Teacher Eligibility Test ( UP TET) Age  should be 18 to 35 years ( as on 1 st  July,2011  Applicaton fee  – Rs. 500 for General Candidates, Rs. 200 for SC, ST . There is no application fee for PH candidates. Interested candidates who are living in UP for last five years can apply from five districts of their...
12 comments
Read more