Discussion :

[Machine Head]

Bonjour à tous,
Je débute en crystal report et je rencontre qqes soucis malgré que j'essaie de m'aider de différents tuto présents sur ce site.
J'ai donc créé un état basique avec l'assistant (nommé etat pour l'occaz), une seule table (stock) est utilisée.
Ensuite dans une winform, j'ai mis un crystalreportviewer et au chargement de la forme 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
14
15
16
17
 
Try
 
' ici nous remplissons notre DataSet (dts)
db.servar("gestion")
dts = db.mysqlquery("SELECT * FROM Stock")
 
' ici on crée une instance de notre état, nous précisons que ca source est notre DataSet 
'et que l'on veut l'afficher dans notre crystalreportviewer
Dim report As New etat
report.SetDataSource(dts)
crystalreportviewer.ReportSource = report
 
Cursor.Current = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try

Cependant, rien ne fonctionne.
J'ai regardé: le dataset est correctement rempli et crystalreportviewer contient bien les données mais celles-ci ne s'affichent pas, je n'ai que les libellés des colonnes!
Je ne comprends pas pourquoi et je m'arrache les cheveux depuis hier matin, il ne m'en reste plus beaucoup!
Merci d'avance pour votre aide

[sebnantes]

Salut,

Tu ne définis pas l'état crystal à remplir donc il est normal qu'il ne puisse pas afficher les données ^^

Rajoute au dessus de ton setDataSource :

Code :

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

report = New Le nom de rapport (sans .rpt)

[sebnantes]

Autant pour moi, il y a une autre erreur aussi

Code :

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

1
2
Dim report as ReportDocument
report = new Le nom de rapport (sans .rpt)

Là, ça devrait marcher ^^

[Machine Head]

Salut,
tout d'abord merci pour ton aide.
Si l'état crystal est défini dans:

Code :

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

Dim report As New etat

De plus chez moi ce code

Code :

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

Dim report As ReportDocument

génère une erreur:

[sebnantes]

Place cette ligne en haut du fichier qui contient tes lignes de code :

Code :

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

Imports CrystalDecisions.CrystalReports.Engine

Si ça ne marche pas essaie ça :

Code :

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

Dim report as CrystalDecisions.CrystalReports.Engine.ReportDocument

[dakota77]

Salut, je ne suis pas un virtuose de VB.Net et encore moins de Crystal Report mais je fais ceci :

Je crée le rapport CR01.RPT avec l'assistant (sur base d'un dataset existant).
et puis une form1 avec un Crystalreportviewer CRV01

Le code :

Code :

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

1
2
3
4
5
6
7
8
9
Imports CrystalDecisions.CrystalReports.Engine
Public Class Form1
Private Sub CB01_Click(ByVal sender As System.Object, 
   Dim cryRpt As New ReportDocument
   cryRpt.Load("c:\VBN\CR01.RPT")
   cryRpt.SetDataSource(Me.DSPROJETS)
   CRV01.ReportSource = cryRpt
   CRV01.Refresh()
End Sub

[dakota77]

J'ai adapté le code posté précédemment afin de filtrer les données par une requête SQL et là j'ai le même problème que toi : le rapport est vide, seules les entêtes de colonnes apparaissent.

Merci pour votre aide

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
 
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data
 
Public cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Public dr As String = "C:\_01\"
Public db As String = "PRO.mdb"
Public tb1 As String = "Table1"
Public cn As String = cs & dr & db
Public sql As String
 
Private Sub Form2_Load
  sql = "SELECT * FROM Table1"
  Dim Dta As New OleDb.OleDbDataAdapter(sql, cn)
  Dim Dts As New DataSet("result")
  Dim crd As New ReportDocument
  Dta.Fill(Dts) 'remplissage du dataset
 
  crd.Load("c:\VBN\CR01.RPT")
  crd.SetDataSource(Dts)
  CRV01.ReportSource = crd 'CRV01 = Crystalreportviewer
  CRV01.Refresh()
End Sub

[Machine Head]

Ah ca me rassure!!!
Merci beaucoup de ton aide et d'avoir testé qqes trucs.
En espérant que quelqu'un puisse nous aider

[JPelli]

Bonsoir,
Voici un petit bout de code
DSBD= un dataset
CR+ = un contrôle crystalReportviewer
CRTrous = un rapport créé avec l'assistant intégré de crystal report de visual studio

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim DSBD As New DSBDS
......
'chargement des tables du dataset
......
Dim RPT As CRTrous
 RPT = New CRTrous
 RPT.SetDataSource(DSBD)
 CRV.ReportSource = RPT
 CRV.Visible = True

J'espère que cela va t'aider.
Mais si tu as le titre des colonnes, c'est que la table liée au rapport est vide ou si tu as mis un filtre, celui-ci ne retourne aucune ligne.
Bon courage
Jean

[Machine Head]

Salut et merci de ton implication.
Malheureusement, ce code ne résout pas les problèmes que nous rencontrons Dakota77 et moi.

Nous avons le titre des colonnes car lorsque l'on utilise l'assistant pour créer un état crystal report, ce dernier met automatiquement le titre des colonnes en entête de page.

Nous n'avons aucun problème lorsque l'on utilise un dataset instancié par un autre un dataset préconfiguré. Le problème se passe avec les dataset créés à la volée par du code. C'est à se moment là qu'aucune donnée ne s'affiche. Pourtant, le dataset est réellement rempli, j'ai fait le test.

[sebnantes]

Tu parlais à qui Machine ? Tu as essayé ce que je t'avais mis ?

[dakota77]

Salut Sebnantes, merci pour ton aide. J'ai apparemment le même souci que Machine Head. Et le code que tu as suggéré ne fonctionne pas ni pour lui ni pour moi. Toujours le même problème : le rapport est vide. Ca marche si on utilise un dataset créé avec l'assistant.
Le code de création du dataset est probablement incorrect ...

cn=connection string

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sql = "SELECT * FROM LOG"
Dim Dta As New OleDb.OleDbDataAdapter(sql, cn)
Dim Dts As New DataSet("result")
Dta.Fill(Dts) 'remplissage du dataset
 
Dim rpt As CRTrous
rpt = New CRTrous
rpt.SetDataSource(Dts)
CRV01.ReportSource = rpt
CRV01.visible=true
CRV01.Refresh()

[Machine Head]

Bonjour sebnantes, je parlais à JPelli.
Mais je n'ai pas plus de résultats avec ton code que j'ai essayé hier pour les mêmes raisons qu'exposées par Dakota77

[Machine Head]

J'ai peut être trouvé l'explication mais ca ne résout pas notre pb.
En parcourant différents tutos, je suis tombé sur çà:

Pour que notre état puisse consommer les données de notre dataset celui-ci doit être fortement typé. En effet, lors de la création de l'état il faut bien que Crystal Reports puisse déterminer le nom et le type des champs pour les données qui lui serviront à générer le rapport.
C'est le .xsd d'un dataset fortement typé qui contient toutes ces informations.

Donc ca explique pourquoi un dataset créé à la volée ne peut remplir un état crystal aussi facilement.

Par contre, je pense que l'on doit pouvoir arriver à nos fins car lorsque tu ajoutes un contrôle crystalreport viewer dans ta forme, il te propose de choisir un groupe de données non typé donc sans schéma.C'est sans doute plus compliqué mais cela doit être possible.
Reste à trouver des tuto pour savoir comment faire!
Si tu trouves avant moi dakota, je suis preneur!

[dakota77]

Merci pour les infos Machine Head.

Effectivement le problème semble venir du dataset qui n'est pas rempli correctement. Malheureusement je n'ai toujours pas trouvé de solution non plus.

[dakota77]

Salut Machine Head,

J'ai contourné le problème du dataset en utilisant un dataview.
Voici le code qui fonctionne et qui permet de filtrer les enregistrements du rapport. En espérant que cela puisse t'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Form2_Load
Dim RD As New ReportDocument
Dim DV As New DataView
Dim so As String = "DTC ASC" 'tri
Dim we As String = "QUI = 'NONNA'" 'filtrage des données
DV.Table = Form1.DSCONSO.Tables("LOG")
DV.Sort = so
DV.RowFilter = we
RD.Load("c:\_01\VBN\CR01.RPT")
RD.SetDataSource(DV)
CRV01.ReportSource = RD
CRV01.Refresh()
End Sub

[Machine Head]

Merci Dakota, je pense que ce code me sera utile très prochainement.
A bientôt pour nos galères avec Crystal Report...

[dori2004]

Tout d'abord, merci pour vos conseil, je me permets de résumer les étapes :

1. Ajouter 1 crystal report.
2. Ajouter 1 DataSet. Dans DataSet1 : ajouter 1 DataTable1 -> ajouter tous les colonnes que vous voulez afficher dans votre report.
3. Dans CrystalReport1.rpt -> Dans Mes connexions -> sélectionner DataTables1 dans DataSet1
4. Dans Explorer des champs : Vous n'avez qu'à ajouter vos colonnes dans votre report.
5. Code dans C# :

OleDbDataAdapter objDataAdapter = new OleDbDataAdapter();
DataSet objDataSet = new DataSet();
objDataSet.Clear();
objDataAdapter.SelectCommand = new OleDbCommand();
objDataAdapter.SelectCommand.Connection = MyConnection;
objDataAdapter.SelectCommand.CommandText = ("Select * from Contact");
objDataAdapter.Fill(objDataSet, "Contact");
DataTable DataTable1 = objDataSet.Tables["Contact"];
DataView DV = new DataView();
DV.Table = objDataSet.Tables["Contact"] ;
CrystalDecisions.CrystalReports.Engine.ReportDocument cryRpt = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
cryRpt.Load(@"..\..\CrystalReport1.rpt");
cryRpt.SetDataSource(DV);
crystalReportViewer1.ReportSource = cryRpt;
cryRpt.Refresh();