none
connexion RRS feed

  • Question

  • comment charger les données directement dans un crystalreports avec le code. parce que moi j'utilise une connexion manuelle et automatique si c'est possible comment le faire? Merci
    mardi 22 novembre 2011 16:48

Réponses

  • Bonjour

    Voici une méthode de chargement dans une forme qui contient que les données

     

    Try
    
        ' vos requetes ici avec dataset 
                Dim txt1 As TextObject
                Dim txt2 As TextObject
                Dim txt3 As TextObject
                Dim txt4 As TextObject
                Dim txt5 As TextObject
                Dim txt6 As TextObject
                Dim txt7 As TextObject
                Dim txt8 As TextObject
                Dim txt9 As TextObject
                Dim txt10 As TextObject
                If (bolrightAlign = False) Then
                    Cursor.Current = Cursors.WaitCursor
                    Dim dt As DataTable = ds.Tables(0)
                    Dim report As New urcrystalReport()
                    txt1 = report.Section2.ReportObjects("Text1")
                    txt2 = report.Section2.ReportObjects("Text2")
                    txt3 = report.Section2.ReportObjects("Text3")
                    txt4 = report.Section2.ReportObjects("Text4")
                    txt5 = report.Section2.ReportObjects("Text5")
                    txt6 = report.Section2.ReportObjects("Text6")
                    txt7 = report.Section2.ReportObjects("Text7")
                    txt8 = report.Section2.ReportObjects("Text8")
                    txt9 = report.Section2.ReportObjects("Text12")
                    txt10 = report.Section2.ReportObjects("Text14")
                    txt10.Text = ds.Tables(0).Rows(1)(2)
                    txt9.Text = ds.Tables(0).Rows(2)(2)
                    txt8.Text = ds.Tables(0).Rows(3)(2)
                    txt7.Text = ds.Tables(0).Rows(4)(2)
                    txt6.Text = ds.Tables(0).Rows(5)(2)
                    txt5.Text = ds.Tables(0).Rows(6)(2)
                    txt4.Text = ds.Tables(0).Rows(7)(2)
                    txt3.Text = ds.Tables(0).Rows(8)(2)
                    txt2.Text = ds.Tables(0).Rows(9)(2)
                    txt1.Text = ds.Tables(0).Rows(10)(2)
                    report.SetDataSource(dt)
                    CrystalReportViewer1.ReportSource = report
                Else
                    Cursor.Current = Cursors.WaitCursor
                    Dim dt As DataTable = ds.Tables(0)
                    Dim report As New  urothercrystalReport()
                    txt1 = report.Section2.ReportObjects("Text1")
                    txt2 = report.Section2.ReportObjects("Text2")
                    txt3 = report.Section2.ReportObjects("Text3")
                    txt4 = report.Section2.ReportObjects("Text4")
                    txt5 = report.Section2.ReportObjects("Text5")
                    txt6 = report.Section2.ReportObjects("Text6")
                    txt7 = report.Section2.ReportObjects("Text7")
                    txt8 = report.Section2.ReportObjects("Text8")
                    txt9 = report.Section2.ReportObjects("Text12")
                    txt10 = report.Section2.ReportObjects("Text14")
                    txt10.Text = ds.Tables(0).Rows(1)(2)
                    txt9.Text = ds.Tables(0).Rows(2)(2)
                    txt8.Text = ds.Tables(0).Rows(3)(2)
                    txt7.Text = ds.Tables(0).Rows(4)(2)
                    txt6.Text = ds.Tables(0).Rows(5)(2)
                    txt5.Text = ds.Tables(0).Rows(6)(2)
                    txt4.Text = ds.Tables(0).Rows(7)(2)
                    txt3.Text = ds.Tables(0).Rows(8)(2)
                    txt2.Text = ds.Tables(0).Rows(9)(2)
                    txt1.Text = ds.Tables(0).Rows(10)(2)
                    report.SetDataSource(dt)
                    CrystalReportViewer1.ReportSource = report
                    Me.CrystalReportViewer1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
    
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    

     

    et ne pas oublier d'importer les bibliotèques nécessaires

     

    Imports CrystalDecisions.CrystalReports

    Imports CrystalDecisions

    Imports CrystalDecisions.CrystalReports.Engine

    Sinon veuillez voir ce lien avec application à télécharger

    http://www.sourcecodester.com/tutorials/net/how-print-using-crystal-reports.html

     


    Best Regards...Please mark as answer if my post is helpful
    • Modifié YosrJ mercredi 23 novembre 2011 09:17
    • Proposé comme réponse Michel K jeudi 24 novembre 2011 17:24
    • Marqué comme réponse Ciprian Duduiala mardi 29 novembre 2011 07:02
    mercredi 23 novembre 2011 09:05
  • Bonjour,

     

    Est-ce que la réponse de YosrJ réponde a votre question ? Merci d’avance de tenir la communauté informée sur la suite de vos démarches.

     

    Vous pouvez également consulter les tutoriels disponibles dans la librairie MSDN , surtout les tutoriels sur la connectivité des données .

     

    Cordialement,

     

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    jeudi 24 novembre 2011 09:30

Toutes les réponses

  • Bonjour

    Voici une méthode de chargement dans une forme qui contient que les données

     

    Try
    
        ' vos requetes ici avec dataset 
                Dim txt1 As TextObject
                Dim txt2 As TextObject
                Dim txt3 As TextObject
                Dim txt4 As TextObject
                Dim txt5 As TextObject
                Dim txt6 As TextObject
                Dim txt7 As TextObject
                Dim txt8 As TextObject
                Dim txt9 As TextObject
                Dim txt10 As TextObject
                If (bolrightAlign = False) Then
                    Cursor.Current = Cursors.WaitCursor
                    Dim dt As DataTable = ds.Tables(0)
                    Dim report As New urcrystalReport()
                    txt1 = report.Section2.ReportObjects("Text1")
                    txt2 = report.Section2.ReportObjects("Text2")
                    txt3 = report.Section2.ReportObjects("Text3")
                    txt4 = report.Section2.ReportObjects("Text4")
                    txt5 = report.Section2.ReportObjects("Text5")
                    txt6 = report.Section2.ReportObjects("Text6")
                    txt7 = report.Section2.ReportObjects("Text7")
                    txt8 = report.Section2.ReportObjects("Text8")
                    txt9 = report.Section2.ReportObjects("Text12")
                    txt10 = report.Section2.ReportObjects("Text14")
                    txt10.Text = ds.Tables(0).Rows(1)(2)
                    txt9.Text = ds.Tables(0).Rows(2)(2)
                    txt8.Text = ds.Tables(0).Rows(3)(2)
                    txt7.Text = ds.Tables(0).Rows(4)(2)
                    txt6.Text = ds.Tables(0).Rows(5)(2)
                    txt5.Text = ds.Tables(0).Rows(6)(2)
                    txt4.Text = ds.Tables(0).Rows(7)(2)
                    txt3.Text = ds.Tables(0).Rows(8)(2)
                    txt2.Text = ds.Tables(0).Rows(9)(2)
                    txt1.Text = ds.Tables(0).Rows(10)(2)
                    report.SetDataSource(dt)
                    CrystalReportViewer1.ReportSource = report
                Else
                    Cursor.Current = Cursors.WaitCursor
                    Dim dt As DataTable = ds.Tables(0)
                    Dim report As New  urothercrystalReport()
                    txt1 = report.Section2.ReportObjects("Text1")
                    txt2 = report.Section2.ReportObjects("Text2")
                    txt3 = report.Section2.ReportObjects("Text3")
                    txt4 = report.Section2.ReportObjects("Text4")
                    txt5 = report.Section2.ReportObjects("Text5")
                    txt6 = report.Section2.ReportObjects("Text6")
                    txt7 = report.Section2.ReportObjects("Text7")
                    txt8 = report.Section2.ReportObjects("Text8")
                    txt9 = report.Section2.ReportObjects("Text12")
                    txt10 = report.Section2.ReportObjects("Text14")
                    txt10.Text = ds.Tables(0).Rows(1)(2)
                    txt9.Text = ds.Tables(0).Rows(2)(2)
                    txt8.Text = ds.Tables(0).Rows(3)(2)
                    txt7.Text = ds.Tables(0).Rows(4)(2)
                    txt6.Text = ds.Tables(0).Rows(5)(2)
                    txt5.Text = ds.Tables(0).Rows(6)(2)
                    txt4.Text = ds.Tables(0).Rows(7)(2)
                    txt3.Text = ds.Tables(0).Rows(8)(2)
                    txt2.Text = ds.Tables(0).Rows(9)(2)
                    txt1.Text = ds.Tables(0).Rows(10)(2)
                    report.SetDataSource(dt)
                    CrystalReportViewer1.ReportSource = report
                    Me.CrystalReportViewer1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
    
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
    

     

    et ne pas oublier d'importer les bibliotèques nécessaires

     

    Imports CrystalDecisions.CrystalReports

    Imports CrystalDecisions

    Imports CrystalDecisions.CrystalReports.Engine

    Sinon veuillez voir ce lien avec application à télécharger

    http://www.sourcecodester.com/tutorials/net/how-print-using-crystal-reports.html

     


    Best Regards...Please mark as answer if my post is helpful
    • Modifié YosrJ mercredi 23 novembre 2011 09:17
    • Proposé comme réponse Michel K jeudi 24 novembre 2011 17:24
    • Marqué comme réponse Ciprian Duduiala mardi 29 novembre 2011 07:02
    mercredi 23 novembre 2011 09:05
  • Bonjour,

     

    Est-ce que la réponse de YosrJ réponde a votre question ? Merci d’avance de tenir la communauté informée sur la suite de vos démarches.

     

    Vous pouvez également consulter les tutoriels disponibles dans la librairie MSDN , surtout les tutoriels sur la connectivité des données .

     

    Cordialement,

     

    Cipri


    Suivez MSDN sur Twitter   Suivez MSDN sur Facebook


    Ciprian DUDUIALA, MSFT  
    •Nous vous prions de considérer que dans le cadre de ce forum on n’offre pas de support technique et aucune garantie de la part de Microsoft ne peut être offerte.

    jeudi 24 novembre 2011 09:30