1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Imports System.Web.HttpContext
Imports System.IO
Imports System.Web
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Public Class bloby
Private Sub bloby_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim _con As HttpContext = HttpContext.Current
Dim con As New SqlClient.SqlConnection(My.Settings.dreefcom)
Dim da As New SqlClient.SqlDataAdapter("select * from VB_fiches", con)
Dim cmd As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da)
Dim ds As New DataSet
con.Open()
da.Fill(ds, "VB_fiches")
Dim myrow As DataRow
myrow = ds.Tables("VB_fiches").Rows(0)
Dim mydata() As Byte
mydata = myrow("fiche")
_con.Response.Buffer = True
_con.Response.AddHeader("content-disposition", "attachment;filename=fichier.pdf")
_con.Response.ContentType = "application/PDF"
_con.Response.BinaryWrite(mydata)
cmd = Nothing
ds = Nothing
da = Nothing
con.Close()
con = Nothing
End Sub
End Class |
Partager