[RESOLVED] Code is not working properly - please help

[narmi2]

Hi

I have the following code which for some reason does not do what it should be doing. What it should do is, on the first button click it should upload to a database a selected file.

The second button should download the file again.

But for some reason when I upload a file which is 23,040 bytes, when i clikc the download button it will only return a file which is 15 bytes !!!

Can anyone see why this is happening?

THE CODE

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        WriteDocumentToDB2("c:\test.doc")
    End Sub
 
    Private Sub WriteDocumentToDB2(ByVal sInDoc As String)
        Dim objDataSet As DataSet
        Dim objSQLCommand As SqlCommand
        Dim objSQLConnection As New SqlConnection("connection string")
        Dim strInsertCommand As String = "insert into table (name, phone, docs) values (@name, @phone, @docs)"
 
        Dim objFileStream As New FileStream(sInDoc, FileMode.OpenOrCreate, FileAccess.Read)
        Dim objDocBytes(objFileStream.Length) As Byte
 
        objFileStream.Read(objDocBytes, 0, objFileStream.Length)
        objFileStream.Close()
 
        objSQLCommand = New SqlCommand(strInsertCommand, objSQLConnection)
 
        objSQLCommand.Parameters.Add(New SqlParameter("@name", SqlDbType.NVarChar, 50))
        objSQLCommand.Parameters("@name").Value = "Some Value Here"
 
        objSQLCommand.Parameters.Add(New SqlParameter("@phone", SqlDbType.NVarChar, 50))
        objSQLCommand.Parameters("@phone").Value = "Some Value Here"
 
        objSQLCommand.Parameters.Add(New SqlParameter("@docs", SqlDbType.Image, 16))
        objSQLCommand.Parameters("@docs").Value = objDocBytes
 
        objSQLCommand.Connection.Open()
        objSQLCommand.ExecuteNonQuery()
        objSQLCommand.Connection.Close()
    End Sub
 
    Private Sub btnRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestore.Click
        ReadDocumentFromDB2("c:\a\test.doc")
    End Sub
 
 
    Public Sub ReadDocumentFromDB2(ByVal sOutDoc As String)
        Dim objDataSet As DataSet
        Dim objSQLConnection As New SqlConnection("connection string")
        Dim objSQLDataAdapter As SqlDataAdapter
 
        Dim objSelectCommand As String = "select docs from table1 where id = @id"
 
        objSQLDataAdapter = New SqlDataAdapter(objSelectCommand, objSQLConnection)
 
        objSQLDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("@id", SqlDbType.Int, 4))
        objSQLDataAdapter.SelectCommand.Parameters("@id").Value = "0"
 
        objDataSet = New DataSet
        objSQLDataAdapter.Fill(objDataSet)
 
        Dim objDataRow As DataRow
        objDataRow = objDataSet.Tables(0).Rows(0)
 
        Dim objDocBytes() As Byte
        objDocBytes = objDataRow("docs")
 
        Dim K As Long
        K = UBound(objDocBytes)
 
        Dim objFileStream As New FileStream(sOutDoc, FileMode.OpenOrCreate, FileAccess.Write)
        objFileStream.Write(objDocBytes, 0, K)
        objFileStream.Close()
        objFileStream = Nothing
    End Sub