Discussion :

[Tristan33000]

Bonjour,

J'ai monté une petite application de gestion et je souhaiterais maintenant pouvoir gérer mes impressions, ce qui me pose quelques problèmes...

En effet je voudrais gérer ces impressions avec un crystalreport qui me permettrais d'éditer un état imprimable.

J'ai pour cela créer un DataSet ainsi qu'un crystalreportview je me suis servis du tutoriel suivant : http://neo.developpez.com/tutos/cr/vbnet/.
Mon DataSet renvoi bien une réponse mais je pense que je n'arrive pas à faire le bon lien ...

je vous join le code qui correspond à mon bouton d'impression

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
     Me.DataMesPersonnes = New VILLA_PIA.Requete
        'paramCmd = New OleDb.OleDbParameter("?", 
        'OleDbDataAdapter1.SelectCommand.Parameters.Add(parametre1, parametre2)
        'OleDbDataAdapter1.Fill(DataMesPersonnes.DataTable1)
        Me.myAdaptater = New OleDb.OleDbDataAdapter("SELECT PERSONNE.NumeroP, PERSONNE.Nom, PERSONNE.Prenom, PERSONNE.Adresse, PERSONNE.NumeroAcontacter, MANGER.DateM, REPAS.NumeroR, REPAS.Libelle, MANGER.Description, BOIRE.NbVerre FROM Personne, Repas, Manger, Boire WHERE(((Personne.NumeroP) = [Manger].[NumeroP]) And ((Repas.NumeroR) = [Manger].[NumeroR]) And ((Boire.NumeroP) = [Personne].[NumeroP]) And ((Boire.DateB) = [DateM]))ORDER BY MANGER.DateM, PERSONNE.Nom", OleDbConnection1)
        myAdaptater.Fill(DataMesPersonnes.DataTable1)
 
        Me.MonEtat = New VILLA_PIA.CrystalRapportGroupe
 
        Me.MonEtat.SetDataSource(Me.DataMesPersonnes)
        CRVGroupe.ReportSource = Me.MonEtat
        CRVGroupe.Refresh()
        Me.DataMesPersonnes.Clear()
        Me.DataMesPersonnes.Dispose()
        CRVGroupe.Visible = True

Cela fait plusieurs jours que je planche la dessus et je ne sais plus trop quoi faire

En vous remerciant d'avance.

Cordialement.

Tristan.

[Tristan33000]

En continuant de "bidouiller" j'ai finis pas trouver...

Voila mon code final

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
   Me.DataMesPersonnes = New Requete
        cn = New OleDb.OleDbConnection
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Mes documents\Visual Studio 2008\Projects\VILLA PIA\VILLA PIA.mdb"
        cn.Open()
        Me.myAdaptater = New OleDb.OleDbDataAdapter("SELECT PERSONNE.NumeroP, PERSONNE.Nom, PERSONNE.Prenom, PERSONNE.Adresse, PERSONNE.NumeroAcontacter, MANGER.DateM, REPAS.NumeroR, REPAS.Libelle, MANGER.Description, BOIRE.NbVerre " & _
                                                    "FROM Personne, Repas, Manger, Boire " & _
                                                    "WHERE(((Personne.NumeroP) = [Manger].[NumeroP]) And ((Repas.NumeroR) = [Manger].[NumeroR]) And ((Boire.NumeroP) = [Personne].[NumeroP]) And ((Boire.DateB) = [DateM])) " & _
                                                    "ORDER BY MANGER.DateM, PERSONNE.Nom", cn)
        Me.myAdaptater.SelectCommand.Parameters.Add(paramCmd)
        myAdaptater.Fill(DataMesPersonnes.DataTable1)
 
        Me.MonEtat = New CrystalRapportGroupe
        'Me.MonEtat = New CrystalRapportGroupe
        Me.MonEtat.SetDataSource(Me.DataMesPersonnes)
        CRVGroupe.ReportSource = Me.MonEtat
        CRVGroupe.Refresh()
        Me.DataMesPersonnes.Dispose()
        CRVGroupe.Visible = True

Concretement j'ai modifier le chemin pour la connexion et j'ai surtout enlevé le

Code :

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

Me.DataMesPersonnes.Clear()

Que proposait le tutoriel.

En espérant que sa en aide d'autres !

Cordialement

Tristan