1 2 3 4 5 6 7 8 9 10 11 12
| cn.Open()
Dim myAdapter As SqlClient.SqlDataAdapter
Dim MonEtat As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim DataSet1 As New DataSet 'dataset que consommera l'état
Dim paramCmd As New SqlClient.SqlParameter("ord", 13)
myAdapter = New SqlClient.SqlDataAdapter("SELECT * from vw_ordenace where num_ord=1", cn)
myAdapter.SelectCommand.Parameters.Add(paramCmd)
myAdapter.Fill(DataSet1, "vw_ordenace")
'On passe les données du dataset dans le report
MonEtat.Load("C:\Documents and Settings\VM_MSF\Bureau\Gestion_Passion\GestCab\GestCab\Ordenance.rpt")
MonEtat.SetDataSource(DataSet1)
CrystalReportViewer1.ReportSource = MonEtat |
Partager