Discussion :

[hounaida nou]

Bonjour tous le monde,
je travaille avec le VB.NET et sqlserver 2008

je veux afficher quelques données dans un rapport en utilisant crystal reports.
voici mon 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
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

le code ne génère pas d'erreur sauf que les données ne sont pas affichées . seulement les noms des champs apparaissent dans le rapport.
j'espère avoir bien expliqué le problème
merci d'avance

[hounaida nou]

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 :

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

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

cordialement