Pb crystal report version 10 et VB6

Easy :)

1° Tu ajoutes dans tes références :
-Crystal ActiveX Reports Viewer Library 10.0
-Crystal Reports ActiveX Designer Run time Library 10.0

2° tu créer une form et tu y ajoute le controle CrystalActiveXReportViewer (nomme ce controle CRVReport)

3° Tu tappes le code suivant sur le On Load de ta form :

Private Sub Form_Load()

Dim rptReport As New CRAXDRT.Report
Dim rptRepApp As New CRAXDRT.Application
Dim rtpViews As CRAXDRT.DatabaseTable

ReportFileName = "c:\Monchemin\monfichier.rpt"
Set rptRepApp = New CRAXDRT.Application
Set rptReport = New CRAXDRT.Report

With CRVReport

Set rptReport = rptRepApp.OpenReport(ReportFileName, 1)

.ReportSource = rptReport
.ViewReport

End With

End Sub

Salut :)

Content d'avoir pu te 'sauver la vie' :)

J'espere que je réponds pas trop tard mais bon ;)

Pour ton second problème,
Il me semble que c'est un problème purement Crystal report non ?

Si j'ai bien tout saisi à ton problème, tu as un sous état dans ton état mère dans lequel tu voudrais afficher tes info client, c'est bien ça ? Avec, comme tu le spécifies, toutes tes infos clients dans le meme champ.

Je ne saisi pas bien pourquoi tu veux tout mettre dans un même champs et surtout pourquoi tu utilise un sous état ? A mon avis tu dois avoir un probleme au niveau de ta sélection de donnée sur ton état.

Ou sont stockées tes données ? Quel sont les paramètres de selection que tu utilises dans CR ?

Voila à+

bonjour,
j'utilise VB6 et crystal reports 10 et je veux lier un etat à un controle data comme en vb5. En fait je veux afficher le résultat d'une requete dans un état et j'arrive pas à le faire en VB6.

pourriez vous m'aider svp, c'est très urgent.

Yop ;)

Desole je reponds super tard a chaque fois mais je ne matte pas souvent mes mails ;)

Ton probleme est assez classique ^^

Il te suffit de créer un état crystal report. (jusque la tout va bien.)
Tout va se jouer lors de la connection à la base de donnée. (Car base de donnée tu dois avoir vu que tu fais une requete)

Donc tu créé ton nouveau Doc crystal report avec l'assistant la il te demande la source de tes données :
* Si tu as une base Access donc tu fais Créer une nouvelle connexion/AccessExcel(DAO).
* Si tu as une Bdd SQL server ou oracle ou autre tu prend Créer une nouvelle connexion/OLE DB(ADO) puis tu selectionne le driver correspondant a ta Base de donnée.

Une fois ceci Fais l'assistant te demande les table que tu veux intégrer à ton état CR et ..... il ne faut pas ajouter ces table mais créer une nouvelle commande ! une fenetre s'ouvre et la tu tappe ta requete SQL.

Et enfin comme par magie tu pourra te servir du resultat de ta requete pour creer ton etat CR.

Ensuite pour intégrer l'état CR à VB6 utilise le code ci dessus.

Voila j'espere que ca va t'aider ^^

@+ et bonne prog ^^

Bonjour

petit prob votre exemple de code marche tres bien pour recuperer les rapports mais j'ai un petit prob car mon serveur requiere une authentification par non "du serveur","nom du user", mot de pass user et la base a laquelle se connecter avant d,afficher le rapport et ce n'est pas tres ptratique j'utilise vb6 avec crystal 10 si quelqu'un a une idee ???????

je suis toutes oreilles ouverte

merci

bonjour,
j'utilise VB5 et crystal reports 4.5 et je veux calculer un total des valeures par page avec des sous totauxpour chaque page, et en résumer un total général

pourriez vous m'aider svp, c'est très urgent.

ajouproblr de crystal report avec vb6

j ai un probleme au nieaux de code je voudrais creer un etat parametrer je programme avec vb6 , j ai une table qui sable Dossier je veux lors je tappe le numero dossier les information de ce denier s'affiche dans crystal data report
les informatiom de dossier{nom dossier ,date creation}
j au yne base de donnes au niveau d 'access
vb6+crystal report 7
help me
voila mon msn :leila-morroco@hotmail.fr

Je voudrais afficher avec VB6 un état de crystalreport réaliser à partir d'une base de données Access 2000. Cette Base de données contient un mot de passe.

Qui pourriez me dire comment je pourrais appeller cet état à partir de VB6.

Merci d'avance pour vos attentions et j'espère recevoire un aide à mon problème.

Bonjour,

J'ai commencé depuis peu à coder en c++ builder6, et je débute avec crystal report11.
Je souhaiterai savoir si c'est possible d'afficher une fenetre de choix avant d'afficher le rapport depuis mon application builder?
c'est à dire quand j'appel mon rapport depuis mon appli, le crystal me permet d'ouvrir une fenetre et valider un choix pour afficher mes données....
et encore une question, pourquoi les liens hypertexts ne marche pas sur le rapports?? est ce que c'est fait uniquement pour travailler avec sous crystal report????

J'espère avoir une reponse.
Merci d'avance.

Salut

Pour moi, mon probléme c'est que je veux afficher un histogramme et un tableau au dessus dans rapport avec crystal report 10, est-ce que vous pouvez m'aider. Et Merci d'avance .

salut!
tout ce qui a été dit m'a vraiment aidé! je suis novice avec crystal donc ne peut pas apporter plus à ce qui a été dit!
Moi j'aimerai bien pouvoir depuis mon code vb changer la valeur de la requête cas des requête paramétré ! j'ai fait pas mal de tentative mais je ne vois nulle part ou changer la requête qui affinera les résultats qui devront parêtre dans l'état! votre aide me sera fort utile svp!

Bonjour,

je peux peut- être vous aider.

Voici un code VB6, puis en dessous, un code Visual Basic .Net pour la génération de multiples factures au format PDF.

Code VB6

SQL = "SELECT NroFact,PaysFactur,PJ,MailFactur" _
    & "$ FROM FACTURE" _
    & "$ WHERE TypFact = 'MENS'" _
    & "$   AND PeriodeFact = '" & sPeriodeFact & "'" _
    & "$   AND " & sBicWhere _
    & "$   AND Ok = 0" _
    & "$ ORDER BY NroFact"

Set rs = SqlExecute(SQL)

Set crRepp = crApp.OpenReport(rptfile)
crRepp.DisplayProgressDialog = False
    
' Fill report parameters
Set crParamDefs = crRepp.ParameterFields

'Passage des paramètres fixes du rapport
        
For Each crParamDef In crParamDefs
    Select Case crParamDef.ParameterFieldName
    Case "TypeDocument":    crParamDef.SetCurrentValue sFactureTitre
    Case "Responsable":     crParamDef.SetCurrentValue sResponsable
    Case "Telephone":       crParamDef.SetCurrentValue sTelephone
    Case "email":           crParamDef.SetCurrentValue sEmail
    End Select
Next
    
crRepp.EnableParameterPrompting = False
crRepp.Database.Tables(1).SetLogOnInfo "", "", sDbUser, sDbPassword
crRepp.ExportOptions.DestinationType = crEDTDiskFile
crRepp.ExportOptions.FormatType = crEFTPortableDocFormat
crRepp.ExportOptions.PDFExportAllPages = True

Do Until rs.EOF
    sNoDoc = rs("NroFact")
    sPaysFact = rs("PaysFactur")
    sMail = rs("MailFactur")
    
    If sNoDoc <> sPreviousNoDoc Then
        sPreviousNoDoc = sNoDoc
    End If
        
    SQL = "SELECT FACTURATION.*" _
        & "      ,FACTURE.ConditionPaie" _
        & "  FROM FACTURATION" _
        & "    LEFT JOIN FACTURE" _
        & "      ON FACTURATION.NroFact = FACTURE.NroFact" _
        & "  WHERE FACTURATION.NroFact = '" & sNoDoc & "'" _
        & "  ORDER BY ID"

    crRepp.SQLQueryString = SQL
    crRepp.ExportOptions.DiskFileName = sPathPJ & rs("PJ")
    crRepp.Export (False)
    
    rs.MoveNext
Loop

Code VisualBasic .Net

        crReport = New ReportDocument()
        crReport.Load(rptfile)
        crApp.ReportSource = crReport

        crApp.ShowRefreshButton = False
        crApp.ShowCloseButton = False
        crApp.ShowGroupTreeButton = False

        Dim crLogin As CrystalDecisions.Shared.TableLogOnInfo

        crLogin = crReport.Database.Tables(1).LogOnInfo
        'crLogin.ConnectionInfo.ServerName = sServerName
        'crLogin.ConnectionInfo.DatabaseName = "Antennes"
        crLogin.ConnectionInfo.UserID = sDbUser
        crLogin.ConnectionInfo.Password = sDbPassword
        crReport.Database.Tables(1).ApplyLogOnInfo(crLogin)

        ' Fill report parameters
        'Dim crParameters As ParameterFields = crApp.ParameterFieldInfo
        'Dim crParam As New ParameterValues()

        For Each crParamDef In crReport.DataDefinition.ParameterFields
            Select Case crParamDef.Name '.ParameterFieldName
                Case "TypeDocument" : SetCurrentValue(sFactureTitre)
                Case "Responsable" : SetCurrentValue(sResponsable)
                Case "Telephone" : SetCurrentValue(sTelephone)
                Case "email" : SetCurrentValue(sEmail)
            End Select
        Next crParamDef

        SQL = "SELECT NroFact,PaysFactur,PJ,MailFactur" _
            & "$ FROM FACTURE" _
            & "$ WHERE TypFact = 'MENS'" _
            & "$   AND PeriodeFact = '" & sPeriodeFact & "'" _
            & "$   AND " & sBicWhere _
            & "$   AND Ok = 0" _
            & "$ ORDER BY NroFact"

        rs = SqlExecute(SQL)

        Do Until rs.EOF

            sNoDoc = rs.Fields("NroFact").Value
            sPaysFact = rs.Fields("PaysFactur").Value
            sMail = rs.Fields("MailFactur").Value

            If sNoDoc <> sPreviousNoDoc Then
                sPreviousNoDoc = sNoDoc
            End If

            sWhere = "{FACTURATION.NroFact} = '" & sNoDoc & "'"

            crReport.RecordSelectionFormula = sWhere
            'oDiskOpts.DiskFileName = sPathPJ & rs.Fields("PJ").Value
            'oExportOptions.ExportDestinationOptions = oDiskOpts
            'crReport.Refresh()
            'crReport.Export(oExportOptions)

            crReport.ExportToDisk(ExportFormatType.PortableDocFormat, sPathPJ & rs.Fields("PJ").Value)

            rs.MoveNext()
        Loop

        crReport.Close()

    End Sub

Ceci est est exemple. Il n'est certainement pas parfait, mais il fonctionne !

En VB6 pour 1200 clients il met 10 minutes. En Visual Basic .Net avec CrystalReport 10, il met 2 heures du fait que je n'ai plus pû utiliser la méthode SQLQueryString et que je dois donc ouvrir le rapport à chaque étape de ma boucle.

Si quelqu'un à une idée pour générer rapidement les 1200 factures sans passer à une machine plus puissante, je suis intéressé.Cordialement

J'ai travaillé toute la matinée pour trouver une solution et enfin j'en ai trouvé une.
Elle fonctionne mais ce n'est peut être pas le meilleur.

J'ai remplacé la méthode SQLQueryString que j'utilisais dans l'ancienne version de Crystal Report et qui n'est plus supportée par Crystal Report 11 par l'utilisation de SqlDataSet (ma base de données est SQL-Server).

J'obtiens alors le code suivant

    '******************************************************************************
    '* GeneratePDF
    '******************************************************************************

    Private Sub GeneratePDF()
        Dim sNoAntenne As String
        Dim sPreviousNoAntenne As String
        Dim sPreviousNoDoc As String
        Dim sBicWhere As String
        Dim sWhere As String
        Dim cmd As SqlCommand
        Dim rs As ADODB.Recordset
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter

        If bCheckDOM Then
            sBicWhere = "BIC <> ''"
            rptfile = sCRFactMensDOM
        Else
            sBicWhere = "BIC = ''"
            rptfile = sCRFactMens
        End If

        crReport = New ReportDocument()
        crReport.Load(rptfile)
        crApp.ReportSource = crReport

        'crRepp = crApp.OpenReport(rptfile)
        crApp.ShowRefreshButton = False
        crApp.ShowCloseButton = False
        crApp.ShowGroupTreeButton = False

        Dim crLogin As CrystalDecisions.Shared.TableLogOnInfo

        crLogin = crReport.Database.Tables(1).LogOnInfo
        'crLogin.ConnectionInfo.ServerName = sServerName
        'crLogin.ConnectionInfo.DatabaseName = "Antennes"
        crLogin.ConnectionInfo.UserID = sDbUser
        crLogin.ConnectionInfo.Password = sDbPassword
        crReport.Database.Tables(1).ApplyLogOnInfo(crLogin)

        SQL = "SELECT NroFact,PaysFactur,PJ,MailFactur" _
            & "$ FROM FACTURE" _
            & "$ WHERE TypFact = 'MENS'" _
            & "$   AND PeriodeFact = '" & sPeriodeFact & "'" _
            & "$   AND " & sBicWhere _
            & "$   AND Ok = 0" _
            & "$ ORDER BY NroFact"

        rs = SqlExecute(SQL)

        Do Until rs.EOF

            ' Fill report parameters
            'Dim crParameters As ParameterFields = crApp.ParameterFieldInfo
            'Dim crParam As New ParameterValues()

            For Each crParamDef In crReport.DataDefinition.ParameterFields
                Select Case crParamDef.Name '.ParameterFieldName
                    Case "TypeDocument" : SetCurrentValue(sFactureTitre)
                    Case "Responsable" : SetCurrentValue(sResponsable)
                    Case "Telephone" : SetCurrentValue(sTelephone)
                    Case "email" : SetCurrentValue(sEmail)
                End Select
            Next crParamDef

            sNoDoc = rs.Fields("NroFact").Value
            sPaysFact = rs.Fields("PaysFactur").Value
            sMail = rs.Fields("MailFactur").Value

            If sNoDoc <> sPreviousNoDoc Then
                sPreviousNoDoc = sNoDoc
            End If

            SQL = "SELECT *" _
                & "  FROM FACTURATION" _
                & "  WHERE NroFact = '" & sNoDoc & "'" _
                & "  ORDER BY ID"

            da = New SqlDataAdapter(SQL, cn)
            da.Fill(ds, "FACTURATION")
            da.Dispose()

            SQL = "SELECT *" _
                & "  FROM FACTURE" _
                & "  WHERE NroFact = '" & sNoDoc & "'"

            da = New SqlDataAdapter(SQL, cn)
            da.Fill(ds, "FACTURE")
            da.Dispose()

            crReport.SetDataSource(ds)

            For Each crParamDef In crReport.DataDefinition.ParameterFields
                Select Case crParamDef.Name '.ParameterFieldName
                    Case "TypeDocument" : SetCurrentValue(sFactureTitre)
                    Case "Responsable" : SetCurrentValue(sResponsable)
                    Case "Telephone" : SetCurrentValue(sTelephone)
                    Case "email" : SetCurrentValue(sEmail)
                End Select
            Next crParamDef

            crReport.ExportToDisk(ExportFormatType.PortableDocFormat, sPathPJ & rs.Fields("PJ").Value)

            ds.Clear()

            rs.MoveNext()
        Loop

        crReport.Close()

    End Sub

    '****************************************************************************************************
    '* SetCurrentValue()
    '****************************************************************************************************
    '* Impression des factures mensuelles en un lot (unseul fichier PDF)
    '****************************************************************************************************

    Public Sub SetCurrentValue(ByVal sText As String)
        Dim crField As New ParameterValues
        Dim crValue As New ParameterDiscreteValue

        crValue.Value = sText
        crField.Add(crValue)
        crParamDef.ApplyCurrentValues(crField)
        'crParamDef.CurrentValues.Add(crValue)
        'crParamDef.CurrentValues = crField
    End Sub

Le programme a mis jusqu'à 6 minutes pour générer 1365 factures.