Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. General Programming
  3. Visual Basic
  4. How can i save image in my N-tier application?

How can i save image in my N-tier application?

Scheduled Pinned Locked Moved Visual Basic
questionsharepointhelp
2 Posts 2 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • H Offline
    H Offline
    heinhtataung
    wrote on last edited by
    #1

    'In DA_Company'

    Function Company_Save(ByVal M_Model_DA As Model.M_Company) As String
    Try
    connection_enable()
    cmd = New SqlCommand()
    cmd.CommandText = "SP_HR_Company_Insert"
    cmd.Connection = con
    cmd.CommandType = CommandType.StoredProcedure
    cmd.Parameters.Add("@Company_Logo", SqlDbType.Image).Value = M_Model_DA.Company_Logo
    err_message = cmd.ExecuteNonQuery()
    Catch ex As Exception
    err_message = ex.ToString()
    End Try
    Return err_message
    End Function

    'In BL_Company'

    Function Company_Save(ByVal M_Company_BL As Model.M_Company) As String
    Try
    DA_Company = New DataAccess.DA_Company()
    error_message = DA_Company.Company_Save(M_Company_BL)
    Catch ex As Exception
    error_message = ex.ToString()
    End Try
    Return error_message
    End Function

    'In M_Company'

    Public Property Company_Logo() As Byte
    Get
    Return Me.CompanyLogo
    End Get
    Set(ByVal value As Byte)
    Me.CompanyLogo = value
    End Set
    End Property

    'In Frm_Company'

    Private Sub Company_Save()
    Try
    BL_Company = New BusinessLogic.BL_Company()
    M_Comapny = New Model.M_Company()
    M_Comapny.Company_Logo = Convert.ToByte(browseCompanyLogo.Value)
    error_message = BL_Company.Company_Save(M_Comapny)

            If error\_message > 0 Then
                MessageBox.Show("Complete Save")
                Company\_GridView\_FillData()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

    Company_Save()

    End Sub
    

    But It Shows Input Stream was not in a correct format . Why ? please !

    L 1 Reply Last reply
    0
    • H heinhtataung

      'In DA_Company'

      Function Company_Save(ByVal M_Model_DA As Model.M_Company) As String
      Try
      connection_enable()
      cmd = New SqlCommand()
      cmd.CommandText = "SP_HR_Company_Insert"
      cmd.Connection = con
      cmd.CommandType = CommandType.StoredProcedure
      cmd.Parameters.Add("@Company_Logo", SqlDbType.Image).Value = M_Model_DA.Company_Logo
      err_message = cmd.ExecuteNonQuery()
      Catch ex As Exception
      err_message = ex.ToString()
      End Try
      Return err_message
      End Function

      'In BL_Company'

      Function Company_Save(ByVal M_Company_BL As Model.M_Company) As String
      Try
      DA_Company = New DataAccess.DA_Company()
      error_message = DA_Company.Company_Save(M_Company_BL)
      Catch ex As Exception
      error_message = ex.ToString()
      End Try
      Return error_message
      End Function

      'In M_Company'

      Public Property Company_Logo() As Byte
      Get
      Return Me.CompanyLogo
      End Get
      Set(ByVal value As Byte)
      Me.CompanyLogo = value
      End Set
      End Property

      'In Frm_Company'

      Private Sub Company_Save()
      Try
      BL_Company = New BusinessLogic.BL_Company()
      M_Comapny = New Model.M_Company()
      M_Comapny.Company_Logo = Convert.ToByte(browseCompanyLogo.Value)
      error_message = BL_Company.Company_Save(M_Comapny)

              If error\_message > 0 Then
                  MessageBox.Show("Complete Save")
                  Company\_GridView\_FillData()
              End If
          Catch ex As Exception
              MessageBox.Show(ex.Message.ToString())
          End Try
      

      Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

      Company_Save()

      End Sub
      

      But It Shows Input Stream was not in a correct format . Why ? please !

      L Offline
      L Offline
      Lost User
      wrote on last edited by
      #2

      heinhtataung wrote:

      Why ?

      'cause an exception occured. Can you point out the line *where* it occurs? I'd guess it happens on this line;

      M_Comapny.Company_Logo = Convert.ToByte(browseCompanyLogo.Value)

      Bastard Programmer from Hell :suss: if you can't read my code, try converting it here[^]

      1 Reply Last reply
      0
      Reply
      • Reply as topic
      Log in to reply
      • Oldest to Newest
      • Newest to Oldest
      • Most Votes


      • Login

      • Don't have an account? Register

      • Login or register to search.
      • First post
        Last post
      0
      • Categories
      • Recent
      • Tags
      • Popular
      • World
      • Users
      • Groups