|
'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 !
|
|
|
|
|
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
if you can't read my code, try converting it here[^]
|
|
|
|