How can i save image in my N-tier application?
-
'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 !
-
'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 !