Bonjour,
je développe depuis peu sous vb 2008 j’ai un souci que je ne comprends pas et que je n’arrive pas résoudre, un petit coup de pouce ne serait pas de refus.
j'ai une erreur :" l'exeption NullReferenceExeption n'a pas ete geree"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance pour une info.