Hi,
I have trouble in downloading the excel file from sql database.
After downloading, i try to open it, the error msg prompt:"The file in not
in a recognizable format"
Any ideas? i already out of ideas.
Here is my download excel file code:
Function GetFile()
Dim PROD_CONNEC As SqlConnection = New
SqlConnection("Server=gl;uid=LBPCOS;pwd=new1;datab ase=DB")
Dim PROD_CMD As SqlCommand = New SqlCommand("wla_getfile",
PROD_CONNEC)
Dim PROD_DR As SqlDataReader
PROD_CMD.CommandType = CommandType.StoredProcedure
Dim PRM_CP As New SqlParameter("@Attachment_ID", SqlDbType.Int)
PRM_CP.Value = CInt("2")
PROD_CMD.Parameters.Add(PRM_CP)
PROD_CONNEC.Open()
PROD_DR = PROD_CMD.ExecuteReader
If PROD_DR.Read Then
Response.ContentType = PROD_DR("Contenttype").ToString
Response.OutputStream.Write(CType(PROD_DR("Filedat a"), Byte()),
0, CInt(PROD_DR("Filesize")))
Response.AddHeader("Content-Disposition", "attachment;filename="
+ PROD_DR("Filename").ToString())
Else
Response.Write("File Not Found.")
End If
PROD_CONNEC.Close()
End Function
Below is my upload file code:
Function UploadFile()
Dim PROD_CONNEC As SqlConnection = New
SqlConnection("Server=gl;uid=LBPCOS;pwd=new1;datab ase=DB")
Dim PROD_CMD As SqlCommand = New SqlCommand("wla_fileupload",
PROD_CONNEC)
Dim iLength As Integer = CType(File1.PostedFile.InputStream.Length,
Integer)
If iLength = 0 Then Exit Function 'not a valid file
Dim sContentType As String = File1.PostedFile.ContentType
Dim sFileName As String, i As Integer
Dim bytContent As Byte()
ReDim bytContent(iLength) 'byte array, set to file size
'strip the path off the filename
i = InStrRev(File1.PostedFile.FileName.Trim, "\")
If i = 0 Then
sFileName = File1.PostedFile.FileName.Trim
Else
sFileName = Right(File1.PostedFile.FileName.Trim,
Len(File1.PostedFile.FileName.Trim) - i)
End If
PROD_CMD.CommandType = CommandType.StoredProcedure
Dim PRM_CP As New SqlParameter("@FileName", SqlDbType.NVarChar)
PRM_CP.Value = sFileName
PROD_CMD.Parameters.Add(PRM_CP)
Dim PRM_CP2 As New SqlParameter("@FileSize", SqlDbType.Real)
PRM_CP2.Value = iLength
PROD_CMD.Parameters.Add(PRM_CP2)
Dim PRM_CP3 As New SqlParameter("@FileData", SqlDbType.Image)
PRM_CP3.Value = bytContent
PROD_CMD.Parameters.Add(PRM_CP3)
Dim PRM_CP4 As New SqlParameter("@ContentType", SqlDbType.NVarChar)
PRM_CP4.Value = sContentType
PROD_CMD.Parameters.Add(PRM_CP4)
PROD_CONNEC.Open()
PROD_CMD.ExecuteNonQuery()
PROD_CONNEC.Close()
End Function
Your help will be appreciated.
Best Regards,
Daniel