Base de donnée en adodb avec report (report en crystal report v8 avec activex)

Soyez le premier à donner votre avis sur cette source.

Vue 31 318 fois - Téléchargée 9 686 fois

Description

Le code source n?est pas à moi,
Mais j?ai penser à ce qui cherche des exemples de code source avec crystal report.

Tout est dans le zip
Info : les commentaires sont en anglais
Les ActiveX crystal report sont inclus dans le zip
Décompresser le fichier zip « Report Variables.zip » en suite le fichier « ActiveXViewer.cab »

Source / Exemple :


Formulaire N°1 Nom: FrmMain
' *************************************************************
' Purpose:  Demonstrate how to use Report Variables (new to Crystal Reports 8.0)
'           See the code CRReportVariables for a detailed explanation
'           of the sample

Option Explicit

Dim m_Report As New CRReportVariables

Dim m_Connection As ADODB.Connection
Dim adoRS As ADODB.Recordset

' *************************************************************
' Load the Report in the viewer
'
Private Sub Form_Load()
    Dim SQL As String
    Dim strConnect As String
   
    ' Create and bind the ADO Recordset object
    
    Set m_Connection = New ADODB.Connection
    Set adoRS = New ADODB.Recordset

    ' Open the connection
    strConnect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\ReportVariables.mdb;Mode=Read"
    m_Connection.Open strConnect
    SQL = "Select * from tblSampleData"
    adoRS.Open SQL, m_Connection, adOpenDynamic, adLockBatchOptimistic
    m_Report.Database.SetDataSource adoRS
    
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = m_Report
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
    Dim iTop As Integer
    Dim iAdjustment As Integer
    
    'If Toolbar.Visible Then
    '    iTop = Toolbar.Height
    '    iAdjustment = Toolbar.Height + StatusBar.Height
    'Else
    '    iTop = 0
    '    iAdjustment = StatusBar.Height
    'End If
    
    Debug.Assert Me.Height > iAdjustment
    
    CRViewer1.Top = iTop
    CRViewer1.Left = 0
    CRViewer1.Height = Me.Height - iAdjustment
    CRViewer1.Width = Me.Width
End Sub

' *************************************************************
Private Sub cmdAbout_Click()
    frmAbout.Show vbModal
End Sub

' *************************************************************
Private Sub cmdExit_Click()
    Unload Me
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Limoubaye
Messages postés
6
Date d'inscription
mercredi 29 mai 2002
Statut
Membre
Dernière intervention
20 avril 2004
-
Je pense qu'il manque une dll ==> craxdrt.dll
Mais ce prog me serait tres util HELLLLLPPPP !!
cs_Phanor
Messages postés
1
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
23 janvier 2003
-
salut, je trouve le code assez interessant mais il manque une dll(craxdrt.dll) que je n'arrive pas à obtenir. Si quelqu'un peut m'indiquer où la trouver ce serait super
kiminox
Messages postés
33
Date d'inscription
jeudi 27 septembre 2001
Statut
Membre
Dernière intervention
4 octobre 2003
-
cs_pluplu
Messages postés
616
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
4 juillet 2012
-
Dommage cela ne fonctionne pas, ça aurais pu être intéressant enfin si quelqu'un à mieux je suis preneur!!
cs_Fransy
Messages postés
4
Date d'inscription
jeudi 22 mai 2003
Statut
Membre
Dernière intervention
15 juin 2004
-
Salut!
moi, je n'ai rien compris car je développe en perl et je vais changer vers crystal report. Donc si vous pouvez me donner de conseils, des tous petits codes pour que je puisse me familiariser avec crystal, je vous serai reconnaissant. Et merci d'avance.

Nicky : "fransy_ang5@yahoo.fr"

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.