Dim fsFile As New System.IO.FileStream(PDF_Filename, IO.FileMode.Open, IO.FileAccess.Read)
Dim intFileLen As Int32 = Convert.ToInt32(fsFile.Length)
Dim imgData(fsFile.Length) As Byte
Dim oConnection As SqlConnection = Nothing
oConnection = GetConnection(MyConnectionString)
fsFile.Read(imgData, 0, intFileLen)
fsFile.Close()
Dim oParam(2) As SqlParameter
oParam(0) = New SqlParameter("Doc_ID", 1)
oParam(1) = New SqlParameter("Doc_Title", PDF_Title)
oParam(2) = New SqlParameter("Picture", imgData)
SqlHelper.Executenonquery(oConnection, "sp_Add_PDF", oParam)
|