Hello, 

I want to upload photo into vb.net then the photo restored into database.

the photo must be appeared into picturebox in form1, but the problem is the photo doesn't appear into picturebox.

can anyone check the code.

i will upload the code i used.

Imports System.Data.SqlClient

Public Class SQLControl
    Private DBCon As New SqlConnection("Server=hjghjkghjkghk;Database=ghjghjghj;UID=sa;PWD=4586;")
    Private DBCmd As SqlCommand

    ' DB DATA
    Public DBDA As SqlDataAdapter
    Public DBDS As DataSet

    ' QUERY PARAMETERS
    Public Params As New List(Of SqlParameter)

    ' QUERY STATISTICS 
    Public RecordCount As Integer
    Public Exception As String

    Public Sub New()
    End Sub

    ' ALLOW CONNECTION STRING OVERRIDE
    Public Sub New(ConnectionString As String)
        DBCon = New SqlConnection(ConnectionString)
    End Sub

    ' EXECUTE QUERY SUB
    Public Sub ExecQuery(Query As String)
        ' RESET QUERY STATS
        RecordCount = 0
        Exception = ""

        Try
            DBCon.Open()

            ' CREATE DB COMMAND
            DBCmd = New SqlCommand(Query, DBCon)

            ' LOAD PARAMS INTO DB COMMAND
            Params.ForEach(Sub(p) DBCmd.Parameters.Add(p))

            ' CLEAR PARAM LIST
            Params.Clear()

            ' EXECUTE COMMAND AND FILL DATASET
            DBDS = New DataSet
            DBDA = New SqlDataAdapter(DBCmd)
            RecordCount = DBDA.Fill(DBDS)
        Catch ex As Exception
            ' CAPTURE ERRORS
            Exception = "ExecQuery Error: " & vbNewLine & ex.Message
        End Try

        ' CLOSE CONNECTION
        If DBCon.State = ConnectionState.Open Then DBCon.Close()
    End Sub

    ' ADD PARAM SUB
    Public Sub AddParam(Name As String, Value As Object)
        Dim NewParam As New SqlParameter(Name, Value)
        Params.Add(NewParam)
    End Sub
End Class


Imports System.IO

Public Class Form1
    Private SQL As New SQLControl

    Private Sub UploadImage(User As String, Path As String)
        ' EXIT IF IMAGE NOT SELECTED
        If String.IsNullOrEmpty(Path) Then Exit Sub

        ' GET IMAGE DATA VIA MEMORY STREAM
        Dim img As Image = Image.FromFile(Path)
        Dim ms As New MemoryStream()
        img.Save(ms, img.RawFormat)
        Dim buffer As Byte() = ms.GetBuffer()

        ' ADD SQL PARAMETERS
        SQL.AddParam("@user", User)
        SQL.AddParam("@image", buffer)

        ' RUN INSERT COMMAND
        SQL.ExecQuery("INSERT INTO ada (username,avatar) " & _
                      "VALUES (@user,@image) ")


        ' REPORT ERRORS
        If Not String.IsNullOrEmpty(SQL.Exception) Then MsgBox(SQL.Exception)
    End Sub

    Private Sub DrawAvatar(User As String, Display As PictureBox)
        ' QUERY DATABASE FOR IMAGE BYTES
        SQL.AddParam("@user", User)
        SQL.ExecQuery("SELECT ada FROM avatars WHERE username=@user ")

        ' ABORT ON ERRORS OR NO IMAGE DATA FOUND
        If Not String.IsNullOrEmpty(SQL.Exception) OrElse SQL.RecordCount < 1 Then Exit Sub

        ' FILL AND RETURN IMAGE DATA BUFFER
        Dim buffer As Byte() = SQL.DBDS.Tables(0).Rows(0)("avatar")

        ' STREAM IMAGE DATA TO PICTUREBOX
        If buffer IsNot Nothing Then
            Using ms As New MemoryStream(buffer, 0, buffer.Length)
                ms.Write(buffer, 0, buffer.Length)
                Display.Image = Image.FromStream(ms, True)
            End Using
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        UploadImage("Roger", "Guy2.png")
        DrawAvatar("Roger", pbDisplay)
    End Sub
End Class