1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Dim cr As CrystalDecisions.CrystalReports.Engine.ReportDocument
cr = New Impression
Appercu.CrystalReportViewer1.ReportSource = cr
ds5.Clear()
dap = New OleDbDataAdapter("select * from client where Nom='" + Nomclient.Text + "'", cnx.ConnectionString)
dap.Fill(ds5, "Client")
dap = New OleDbDataAdapter("select * from facture where Mat_facture=" + Numerofacture.Text, cnx.ConnectionString)
dap.Fill(ds5, "Facture")
dap = New OleDbDataAdapter("select * from domaine where N_facture=" + Numerofacture.Text, cnx.ConnectionString)
dap.Fill(ds5, "domaine")
dap = New OleDbDataAdapter("select * from factprod where N_facture=" + Numerofacture.Text, cnx.ConnectionString)
dap.Fill(ds5, "factprod")
dap = New OleDbDataAdapter("SELECT Titre,Espace,Traffic,emails,prix FROM Produit INNER JOIN Factprod ON Produit.N_Produit = Factprod.N_produit WHERE(Factprod.N_facture =" + Numerofacture.Text + ")", cnx.ConnectionString)
dap.Fill(ds5, "produit")
cr.SetDataSource(ds5)
Appercu.CrystalReportViewer1.RefreshReport()
Appercu.Show() |
Partager