Discussion :

[Ankras]

Bonjour,

J'ai fait un rapport crystal report avec le designer de visual studio 2005.
Ce rapport est lié a une base postgresql.
Lorsque je veux afficher le rapport sur une page aspx, j'ai l'erreur suivante :
IM002:[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié

Voici le code que j'utilise pour afficher ce raport :

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
        Etat01 = New Rapport01
 
        Dim logOnInfo As New TableLogOnInfo()
        logOnInfo = Etat01.Database.Tables(0).LogOnInfo
 
        logOnInfo.ConnectionInfo.DatabaseName = Database
        logOnInfo.ConnectionInfo.ServerName = Server
        logOnInfo.ConnectionInfo.Password = Password
        logOnInfo.ConnectionInfo.UserID = User
        logOnInfo.ConnectionInfo.AllowCustomConnection = True
        logOnInfo.ConnectionInfo.Type = ConnectionInfoType.SQL
 
        Etat01.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
 
        DeclSynViewer.ReportSource = Etat01

Pourquoi ai je cette erreur, comment dois je faire pour afficher ce rapport ?

[khansae]

bonsoir
j'ai un code qui pe vs aider mé c pr vs 2003 po 2005

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
'code
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Imprimer
    Inherits System.Web.UI.Page
 
    'Declaration d'un Crystal Report
    Public myReport As New ReportDocument
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Placez ici le code utilisateur pour initialiser la page
connex=new sqlconnection(""user id=sa;initial catalog=Nom_DB; data source=serveur"")
connex.open
        Try
            'Chargement du modele de Document que l'on a crée
            myReport.Load("D:\Inetpub\wwwroot\PrjSurGenerale\EtatConsultationStagiaire.rpt")
            s = "select * from stagiaire where codesection='" + p + "'"
            connexion(s)
            myReport.SetDataSource(ds.Tables(0))
            'Visualiseur de document Crystal Report rendu visible
            CrystalReportViewer1.Visible = True
            'Affichage du document
            CrystalReportViewer1.ReportSource = myReport
        Catch ex As Exception
            lbError.Text = p
        End Try
 
    End Sub
 
End Class

pr connexion(s) c'est une prrocedure
qui contient ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Sub connexion(ByVal s As String)
        commande = New SqlCommand
        commande.Connection = connex
        commande.CommandType = CommandType.Text
        commande.CommandText = s
        da = New SqlDataAdapter(commande)
        ds = New DataSet
        da.Fill(ds, commande.CommandText)
    End Sub