1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Private Sub imprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles imprimer.Click
Dim Report As New ReportDocument
Dim Dataset1 As New DataSet
Dim Conn As New SqlClient.SqlConnection("server=192.168.0.16\SQLEXPRESS;Initial Catalog=XXXXXXX;User Id=XXXXXX; password =XXXXXX ;")
Dim Dadap As New SqlClient.SqlDataAdapter("SELECT dossier.num_dossier, dossier.nom_client, dossier.prenom_client, dossier.date_adhesion, activite.lib_activite, regime.lib_regime, agence.lib_agence FROM dossier INNER JOIN activite ON dossier.code_activite = activite.code_activite INNER JOIN regime ON dossier.code_regime = regime.code_regime INNER JOIN agence ON dossier.code_agence = agence.code_agence WHERE (agence.lib_agence = '" & combo_agence.Items.ToString & "')", Conn)
'ici on charge le rapport
Report.Load("F:\XXXX\XXXX\XXXX\Resources\etat_adhesion_annee_par_bureau.rpt")
Try
'ici on charge le dataset
Dadap.Fill(Dataset1, "dossier, agence, regime, activite")
'On modifie la source de données
Report.SetDataSource(Dataset1)
'cas de la visualistaion dans le reportview
crvETAT.ReportSource = Report
Catch ex As Exception
MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK)
End Try
End Sub |
Partager