ASP.NET

  ----------------------------------------------------------------------------------------------------------------------------------------    
 |  Field              |   Type              |   Null         |   Key           |  Default                              |   Extra                     |
----------------------------------------------------------------------------------------------------------------------------------------
 | docID              | int(11)             | NO           |   PRI            |  NULL                                 | AUTO_INCREMENT   |
 |

 | docTitle          | varchar(30)      | NO           |                    |    NULL                               |                                 |
 |

 | docContent        | MediumBlob     | NO           |                    |    NULL                               |                                 |
 |

 | docDate         | timestamp        | NO           |                    |    CURRENT_TIMESTAMP     |                                |
 |

 | docType        | varchar(15)       | NO           |                    |    NULL                               |                                |
----------------------------------------------------------------------------------------------------------------------------------------


Imports System.IO
Imports System.Data.Odbc
Public Class Upload
    Inherits System.Web.UI.Page

 Private Sub Submit1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit1.Click
        Dim strFileEx As String
        Dim StrFileType As String
        Dim intFileLen As Integer
        Dim objStream As Stream
        Dim strInsert As String
        Dim myConnection As OdbcConnection
        Dim cmdInsert As OdbcCommand


        If Not IsNothing(txtFileContents.PostedFile) Then
            'Determines File Type
            strFileEx = Right(txtFileContents.PostedFile.FileName, 4)
            Select Case strFileEx.ToLower
                Case ".doc"
                    StrFileType = "doc"
                Case ".ppt"
                    StrFileType = "ppt"
                Case ".htm"
                    StrFileType = "htm"
                Case ".html"
                    StrFileType = "html"
                Case ".txt"
                    StrFileType = "txt"
                Case Else
                    StrFileType = "jpg"
            End Select
            'Grab the content of uploaded file
            intFileLen = txtFileContents.PostedFile.ContentLength
            Dim arrFile(intFileLen) As Byte
            objStream = txtFileContents.PostedFile.InputStream
            objStream.Read(arrFile, 0, intFileLen)


            'Add UpLoaded file to a database
            myConnection = New OdbcConnection("Provider=MySQLProv; Data Source=Data;User Id=myID;Password=myPWD")
            strInsert = "INSERT into QUsers (docTitle,docContent,docDate,docType) values (?,?,?,?,?)"
            cmdInsert = new odbcCommand(strInsert,myConnection)
            
            cmdInsert.Parameters.Add("@docID",OdbcType.int,30)           
            cmdInsert.Parameters["@docID"].Values =""

            cmdInsert.Parameters.Add("@docDate", OdbcType.TimeStame,14)             
            cmdInsert.Parameters["@docDate"].Values = DateTime.Now.ToShortDateString()

            cmdInsert.Parameters.Add("@docTitle", OdbcType.Varchar,30  )
            cmdInsert.Parameters["@docTitle"].Values = txtFileTitle.Text       
            
            cmdInsert.Parameters.Add("@docType", OdbcType.Varchar,30)
            cmdInsert.Parameters["@docType"].Values =StrFileType

            cmdInsert.Parameters.Add("@docContent",OdbcType.Text)           
            cmdInsert.Parameters["@docContent"].Values =arrFile
            
            myConnection.Open()
            cmdInsert.ExecuteNonQuery()
            myConnection.Close()
        End If

    End Sub
End Class