Bonjour,

Suite à mon précédent poste:
http://www.developpez.net/forums/d14...s/#post8121093

Je souhaite générer un pdf du report créé.
Pour cela j'utilise ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 Public Sub SavePDF(ByVal viewer As ReportViewer, ByVal savePath As String)
        Dim warnings As Warning() = Nothing
        Dim streamids As String() = Nothing
        Dim mimeType As String = Nothing
        Dim encoding As String = Nothing
        Dim extension As String = Nothing
        Dim Bytes() As Byte = viewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
 
        Using Stream As New FileStream(savePath, FileMode.Create)
            Stream.Write(Bytes, 0, Bytes.Length)
        End Using
    End Sub
Pour appeler la fonction j'utlise ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Protected Sub GenererRapport(ParamIdmad As Integer, ParamIduser As Integer)
        Dim Param1 As New ReportParameter
        Dim Param2 As New ReportParameter
        Param1.Name = "idmad"
        Param2.Name = "iduser"
        Param1.Values.Add(ParamIdmad)
        Param2.Values.Add(ParamIduser)
        ReportViewer1.LocalReport.SetParameters(New ReportParameter() {Param1})
        ReportViewer1.LocalReport.SetParameters(New ReportParameter() {Param2})
        ReportViewer1.DataBind()
        ReportViewer1.LocalReport.Refresh()
        SavePDF(ReportViewer1, Server.MapPath("tmp2/titi.pdf"))        
    End Sub
ça ne marche pas; j'ai une erreur:
Impossible de créer un lecteur de données pour le dataset 'DataSetb'.
à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim Bytes() As Byte = viewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
Est ce que vous avez une idée?

Merci