Soyez le premier à donner votre avis sur cette source.
Vue 31 986 fois - Téléchargée 9 848 fois
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
17 mai 2009 à 19:33
20 sept. 2007 à 13:38
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.
17 mai 2007 à 11:01
c'est pas un bon moyen mais a la prochaine que je trouve un module a installer
>>>sous report ????
.Database.SetDataSource.subreport.setdatabase rs
12 mai 2007 à 11:20
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
20 nov. 2006 à 18:53
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
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.