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 561 fois - Téléchargée 9 774 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

Messages postés
4
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
10 mars 2011

svp je ne sais pa comment travailler avec les data report en vb6 donner moi un cours du dataReport svp
Messages postés
140
Date d'inscription
mardi 18 janvier 2005
Statut
Membre
Dernière intervention
8 décembre 2008

bonjour,
Ton application marche très bien chez moi et elle est très interessante.
Seulement j'ai une question :

Comment créer un nouveau concepteur?? (ICRDesigner)
Ce que je sais faire c'est créer des états à partir de Crystal Report.
Messages postés
8
Date d'inscription
jeudi 11 janvier 2007
Statut
Membre
Dernière intervention
13 janvier 2009

j'ai resolue le prlm en installant crystall report sur la machine distant??
c'est pas un bon moyen mais a la prochaine que je trouve un module a installer
>>>sous report ????
.Database.SetDataSource.subreport.setdatabase rs
Messages postés
8
Date d'inscription
jeudi 11 janvier 2007
Statut
Membre
Dernière intervention
13 janvier 2009

j'ai un probleme avec le meme exemple mais la bas e donnees sql_server dans un serveur distant
j'ai creer une connection odbc machine sur ma poste qui c'est un lien sur le servuer
en local j'ai la solution
mai a partir d'une autre poste non
solution?
riadhlakdhar@yahoo.fr
Messages postés
3
Date d'inscription
mercredi 15 mars 2006
Statut
Membre
Dernière intervention
21 mars 2006

J'ai apprécié votre exemple. Pour moi, votre application marche bien !
Mais ce que je cherche est d'ouvrir mon état qui est basée sur un Base de Données sécurisée, et aussi appliquer un SelectionFormula pour filtrer ce que je veux afficher.
Je tiens à vous informer que j'ai des groupes de sélection dans l'état.
Merci d'avance pour une éventuelle réponse.
voici mon email : sounboul@hotmail.fr
Afficher les 12 commentaires

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.