Discussion :

[Falconpage]

Bonjour à tous,

Voilà mon projet avance bien, j'ai mon état ok sous Crystal Report.

Super bon à présent faut l'ouvrir depuis une application VB : j'utilise Visual Basic 6 (je début dessus ça va rien arranger)

--> j'ai donc crée un nouveau projet

--> j'ai déclaré dans les références "Crystal Report Viewer control 9" (CRVIEWER9Lib)


Voici mon premier bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Crystal As New CRViewer9
 
Private Sub Form_Load()
 
 
Crystal.ReportSource = "c:\test.rpt"
 
 
End Sub

VB me retourne pour "c:\test.rpt", type incompatible.




Si vous avez 5 minutes pour me filer un coup de main, ça m'aiderait vraiment car je galère depuis hier la dessus et je trouve vraiment très peu d'infos sur le net :/

Merci !

[Falconpage]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim crxApplication As New CRAXDRT.Application
Public Report As CRAXDRT.Application
Public FormFrom As String
Public Crystal As CRViewer9
 
 
Private Sub form_load()
 
 
Dim crxDatabaseTable As CRAXDRT.DatabaseTable
Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
Dim crxFormulaField As CRAXDRT.FormulaFieldDefinition
Set Report = crxApplication.OpenReport("c:\test.rpt", 1)

Je viens de tester ça et idem ça coince :/ --> "type incompatible"

[L.nico]

C'est plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Report As CRAXDRT.Report

Tu avais mis Application

[Falconpage]

Super ! Merci !
Sais tu où je peux me documenter sur les fonctions ?

je cherche à afficher mon état à présent je pense que c'est la fonction Viewreport ....


Encore merci

[L.nico]

Juste un extrait de mon code pour l'impression :
Mode 0 = ecran
Mode 1 = Impression directe
Mode 2 = Export

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
    Select Case Mode
    Case 0
 
         Report.PaperOrientation = Orientation
         Set Form = New edt_CrystalReport
         Set Form.Edition = Me
         Form.Show
         hWnd = Form.hWnd
         DoEvents
 
         If Modal Then
            Do While IsWindow(hWnd)
               DoEvents
            Loop
         End If
 
    Case 1
         Report.SelectPrinter Printer.DriverName, Printer.DeviceName, Printer.Port
         Err = 0
         Report.PaperOrientation = Orientation
         If PageDebut > PageFin Then
            Report.PrintOut False, Copies, CopiesTriées, 1, 32000
         Else
            Report.PrintOut False, Copies, CopiesTriées, PageDebut, PageFin
         End If
         If Err = 0 Then
         ElseIf Err = 20545 Then
            ' Demande annulée
            MsgBox "Opération annulée !", vbExclamation
         Else
            MsgBox "Erreur inattendue !" & Err.Description, vbExclamation
         End If
    Case 2
         With Report.ExportOptions
              .CharFieldDelimiter = ""
              .CharStringDelimiter = ""
              .DestinationType = crEDTNoDestination
              .DiskFileName = ""
              .ExcelTabHasColumnHeadings = False
              .ExchangeDestinationType = crExhangeFolderType
              .FormatType = crEFTText
         End With
         Err = 0
         Report.Export True
    End Select

Edt_crystal report est la feuille qui contient le viewer et dans le load de edtcrystalreport, je passe le report au viewer ..

Bonne continuation.

PS : désolé, je n'ai pas le temps de t'expliquer le code ligne par ligne ...

[Falconpage]

Un grand merci à toi : de mon côté j'ai beaucoup avancé.

Il me reste encore un petit truc qui coince (je vais chercher mais bon si tu as la réponse ...) : au lancement de l'édition il ne met pas à jour les données :-/

[L.nico]

Mais de rien ...
C'est normal car tu ne lui transmet pas l'emplacement des données,
donc il ne fait qu'éditer les données contenues dans l'etat.
Pour le reste penche toi sur les instructions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CrwTable.SetLogOnInfo DataSource, Dossier.BaseSQL, Dossier.UserName, Dossier.PassWord

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CrwTable.Location = xxxxxxx

il te faut au préalable énumérer les tables contenues dans l'état pour affecter l'emplacement et la connectivité à chacune d'elle.

Aussi, tu pourrais si tu voulais entièrement reconstruire et repasser la requête à ton état par le report.SqlQueryString
A+

[Falconpage]

Bonjour,

J'ai trouvé un moyen bien plus simple pour mon problème de "refresh" de l'état : sous Crystal Report, menu fichier

--> il faut décocher "Enregistrer les données avec l'état"


Voilà

[L.nico]

Tu as raison mais il y a un problème.
car tes données seront rafraichies par rapport à la source de donnée d'origine de l'etat.
Mais que fais-tu si la source de tes données changent et que tu as 300 etats à modifier.
Tu modifies les 300 ?? Ben non ...
C'est pour cela qu'on réaffecte dynamiquement la source de donnée à l'etat juste avant
son éxecution.
A+

[Falconpage]

Dans mon cas j'ai une base access avec une base et une dizaine de requête.

Mon programme VB :

1- Je renseigne une plage de compte et une plage de date
2- Je lance le traitement depsusi VB (mes requêtes)
3- J'affiche l'état et je l'imprime

Voilà c'est tout ! Donc un seul état voir peut être deux à l'avenir.


Je garde à coin l'affectation dynamique je regarde ça un peu plus tard car mon projet est ulra urgent.


Merci