Crystal Reports 10 et VB 6

Question

Salut!

Quelqu'un connait-il la ou les r&#233;f&#233;rences a ajouter au projet afin de pouvoir faire fonctionner la commande suivante : 

Report.Database.Tables(i).SetDataSource Rs

Merci d'avance

Amri_Daly · Answer

salut
ajout la r&#233;f&#233;rence :
"Crystal Reports ActiveX Designer Run Time Library 10.0"

kevinscherrens · Answer

J'ai bien ajout&#233; cette r&#233;f&#233;rence et ca ne marche pas.
J'ai contourn&#233; mon probl&#232;me en inserant une table vide a mon report puis en la remplacant par une table temporaire avec cette fonction

Report.Database.Tables(5).Location = Base + ".dbo." + TableTemp 

Suite a cette modification la table de remplacement est supprim&#233;e la requete de mon report 

Si quelqu'un peu m'aider 
Merci

Amri_Daly · Answer

salut,
voici un code que j'ai test&#233; et &#231;a marche :
Dim i As DatabaseTable, Rpt As Report,ii As DatabaseTable
    For Each ii In Rpt.Database.Tables
        If ii.Name = nomtable Then
           ii.SetTableLocation NomDB & ".dbo.newnomtable, "", ""
            End If
         Next

cs_jaridasaid · Answer

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

Crystal Reports 10 et VB 6

4 réponses

Discussions similaires