Visual Basic

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

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

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

  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