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 |
