Comment créer un Etat avec CrystALReport??? urgent, svp

Bonjour le monde,
Voila il ya des jours que je galère, pour créer des états en web (ASP.Net) avec crystalReport. j'ai chercher un peu par tous, mais HELLAS , je n'arraive pas à regenerer mon rappaort via crystalReport. Si pour cela je vous demande votre AIDE, car tres urgent.
Si qlq peut me fournir un exemple, ou un lien vers un site, comment créer des etats en rystalreport en ASP.net.

Merci infiniments

http://www.labo-dotnet.com/Articles/ASPNET/Cr%C3%A9ation%20et%20affichage%20d%20%C3%A9tats%20Crystal%20Report/Cr%C3%A9ation%20d%20un%20ReportDocument/1/195.aspx

Il faut donc que tu crées une vue sinon si tu veux y passer des paramètres la c une procédure stockée qu'il faut créer

Pour créer un Etat avec CrystalReport sous Asp.net :
-   Ajouter un Rapport crystal
-   Alimenter votre rapport en allant dans l'explorateur de champs de votre rapport ;vous pouvez vous connecter directement sur votre source de données(cad là où se trouve votre base de données) ou vous pouvez utilser un dataset physique
- Sur votre web form utiliser ce code:

Imports

CrystalDecisions.CrystalReports.Engine
Imports System.Data
Imports System.Data.OleDb

Partial

Class Webprint

Inherits System.Web.UI.Page

Dim emma As ReportDocument

Dim etatprint AsString

Dim ds AsNew DataSet

Dim obcon As OleDbConnection

ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load

Configuration()

EndSub

PublicSub Configuration()

Dim emma AsNew Clsdb ' (C'est une classe créer là)

Dim sql AsString = "select * from VDET_ECOL "' where PROVCE='10'"

Dim crt AsNew ReportDocument

ds = emma.Maselection(sql)

crt.Load(

"C:\EMMA_MUSA\WebSite1\ListeEcolesParAssociation.rpt")

crt.SetDataSource(ds.Tables(0))

CrystalReportViewer1.ReportSource = crt

EndSub

End

Class

*********Met ce code sur la classe Clsdb

Imports

System.Data

Imports

System.Data.OleDb

Public

Class Clsdb

Public

Function Maselection(ByVal sql AsString) As DataSet

Dim ds AsNew DataSet

Maconnexion(Machaine)

'Pour une BDD Access

Dim adapter AsNew OleDbDataAdapter(sql, objcon)

adapter.Fill(ds)

objcon.Close()

Return ds

EndFunction

Si tu ne te retrouves pas voici toutes les codes de ma classe Clsdb:

Imports

System.Data

Imports

System.Data.OleDb

Imports

CrystalDecisions.CrystalReports.Engine

Public

Class Clsdb

Dim emma As ReportDocument

Dim objcon As OleDbConnection

Dim Machaine AsString = "PROVIDER=SQLOLEDB;DATA SOURCE=SERWINSECOPE\ISECOPE; INITIAL CATALOG=SECOPEV_TEST;USER ID=sa"'Pour une BDD Access

'Dim Machaine As String = "PROVIDER=Microsoft.jet.oledb.4.0;DATA SOURCE=C:\SECOPESITE\App_Data\DELOR.mdb" 'Pour une BDD Access

PublicFunction Maconnexion(ByVal Machaine AsString) AsBoolean

objcon =

New OleDbConnection(Machaine)

objcon.Open()

ReturnTrue

EndFunction

PublicFunction Maselection(ByVal sql AsString) As DataSet

Dim ds AsNew DataSet

Maconnexion(Machaine)

'Pour une BDD Access

Dim adapter AsNew OleDbDataAdapter(sql, objcon)

adapter.Fill(ds)

objcon.Close()

Return ds

EndFunction

PublicFunction MonExecution(ByVal sql AsString) AsBoolean

Dim Dcmd AsNew OleDbCommand

Maconnexion(Machaine)

Dcmd.CommandText = sql

Dcmd.Connection = objcon

Dcmd.ExecuteNonQuery()

objcon.Close()

ReturnTrue

EndFunction

PublicFunction Affiche(ByVal sql AsString) As DataSet

Return Maselection(sql)

EndFunction

End

Class