affichage des data en utilisant crystal reports intégré dans visual studio

Version imprimable

Bonjour à tous,
je veux créer un rapport contenant des data extrites de ma base de données sqlserver.
pour se faire j'ai utilisé le crystal report. grace aux tutos j'ai arrivé a réalisé le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim req As String
        req = "SELECT        placement.eff_CAO, placement.eff_std, placement.qtité_tot, placement.long_plan, placement.long_matl, placement.nbre_vh_lz, placement.nbre_lz, placement.tot_matr, placement.met_vh, placement.nbr_pc_lz, 
                                 placement.largeur_tissu, placement.num_DRILL, placement.diam_DRILL, placement.id_kanban_tissu, relation_tissu_placement_veh.fk_tissu, relation_tissu_placement_veh.designation_tissu, 
                                 relation_tissu_placement_veh.designation_veh, relation_tissu_placement_veh.placement
        FROM            placement INNER JOIN
                                 relation_tissu_placement_veh ON placement.placement = relation_tissu_placement_veh.placement
        WHERE        (relation_tissu_placement_veh.designation_veh = '" & Form1.ComboBox1.SelectedValue & "')"
        Cn.Open()
        Dim dt As New DataTable
        Dim cmd As New SqlCommand(req, Cn)
        Dim da As New SqlDataAdapter(cmd)
        da.Fill(dt)
        Cn.Close()
        Dim r As New CrystalReport1
        r.SetDataSource(dt)
        CrystalReportViewer1.ReportSource = r
 
    End Sub

ce code ne m'affiche aucun erreur mais ne me donne pas le résultat voulu
dans le rapport j'ai seulement les noms des champs qui s'affichent :(:(:(:(:( s'ils vous plait aidez moi :calim2:

30/03/2019, 14h26
Phil Rob

1 pièce(s) jointe(s)
Bonjour,

Je n'ai guère d'infos sur le CrystalReport, je joins tout ce que je connais : Pièce jointe 462450

En parcourant rapidement ce document, je vois que le rapport est préparé et qu'au moment de l'utiliser, r.SetDataSource(dt) ne dois pas être écrit.
Code:

1 2 Dim UnRapport As New CRPersEtLoc ' Instancier le rapport souhaité MonCrystalVisu.ReportSource = UnRapport ' Lier le rapport au Viewer
Le dernier paragraphe du texte que je t'envoie préconise de préparer autant de rapports que souhaité, chacun lié à une DB dédicacée et vide en temps ordinaire. Au moment de générer le rapport, cette DB dédicacée est remplie avec les données du moment. Elle est vidée ensuite après utilisation du rapport. Je me souviens que cette méthode a facilité le travail de nombreux programmeur désireux de faire simple et rapide.

J'espère que ceci t'aidera ... :)
30/03/2019, 15h03
hounaida nou

merci bcp phil robe,
je vais parcourir ce document et j'éspère trouver une solution
bonne journée à toi .

bonjour à tous;
Donc pour résoudre ce blocage j’ai procédé comme suit :
J’ai créé une procédure stockée dans sql server puis j’ai ajouté un crystal report (crystalreport1) en lui affectant la procédure comme source de données. Par la suite j’ai ajouté un crystalreport viewer à la Form (lancement) dans laquelle je veux afficher mes données.
Par le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim rpt As New CrystalReport1 'création de parametre pour mettre une condition sur l'affichage des données et lui affecter la valeur choisie du combobox Dim parametre As String = "{P1;1.designation_veh} ='" & ComboBox3.Text & "'" lancement.CrystalReportViewer1.ReportSource = rpt lancement.CrystalReportViewer1.SelectionFormula = parametre lancement.ShowDialog() End Sub
J’espère que ça aidera une personne :)

25/04/2019, 17h03
Phil Rob

Bravo Hounaida ... et merci pour le retour.
Bonne continuation,