0

i m a student of BS(CS),
How can I call Crystal 9 Report from VB 6.0 , usin MSAccess as database..
ther is no Crystal Report Control Component as in Crystal Report 7..
plzz give some solution...
i have very shot time to submit my project....thanks in ADvance!

4
Contributors
6
Replies
7
Views
9 Years
Discussion Span
Last Post by zahirjaved
0

i m a student of BS(CS),
How can I call Crystal 9 Report from VB 6.0 , usin MSAccess as database..
ther is no Crystal Report Control Component as in Crystal Report 7..
plzz give some solution...
i have very shot time to submit my project....thanks in ADvance!

Flaco, te mando un .frm hacelo así (sacale el .txt del nombre que se lo puse para poder adjuntarlo)
Suerte
Chiquito

Attachments
VERSION 5.00
Object = "{C4847593-972C-11D0-9567-00A0C9273C2A}#8.0#0"; "crviewer.dll"
Begin VB.Form VistaPrevia 
   Caption         =   "Form3"
   ClientHeight    =   8445
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   12060
   LinkTopic       =   "Form3"
   ScaleHeight     =   8445
   ScaleWidth      =   12060
   StartUpPosition =   3  'Windows Default
   Begin CRVIEWERLibCtl.CRViewer CRViewer1 
      Height          =   7485
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11925
      DisplayGroupTree=   -1  'True
      DisplayToolbar  =   -1  'True
      EnableGroupTree =   0   'False
      EnableNavigationControls=   -1  'True
      EnableStopButton=   -1  'True
      EnablePrintButton=   -1  'True
      EnableZoomControl=   -1  'True
      EnableCloseButton=   -1  'True
      EnableProgressControl=   -1  'True
      EnableSearchControl=   -1  'True
      EnableRefreshButton=   0   'False
      EnableDrillDown =   -1  'True
      EnableAnimationControl=   -1  'True
      EnableSelectExpertButton=   -1  'True
      EnableToolbar   =   -1  'True
      DisplayBorder   =   0   'False
      DisplayTabs     =   0   'False
      DisplayBackgroundEdge=   -1  'True
      SelectionFormula=   ""
      EnablePopupMenu =   0   'False
      EnableExportButton=   -1  'True
      EnableSearchExpertButton=   -1  'True
      EnableHelpButton=   0   'False
   End
End
Attribute VB_Name = "VistaPrevia"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MiRpt As CRAXDRT.Report, xRs As ADODB.Recordset, xContra As String
Dim xformu As String, MiBase As String, xTit As String
Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    Me.Caption = xTit
    If Not xRs Is Nothing Then MiRpt.Database.SetDataSource xRs
    If xformu <> "" Then MiRpt.RecordSelectionFormula = xformu
    CRViewer1.ReportSource = MiRpt
    CRViewer1.ViewReport
    Set MiRpt = Nothing
    Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
    CRViewer1.Top = 0
    CRViewer1.Left = 0
    CRViewer1.Height = ScaleHeight
    CRViewer1.Width = ScaleWidth
End Sub
Public Function PE_VistaPrevia(Repo As CRAXDRT.Report, pTit As String, _
                Optional pRs As Object, Optional pFormu As String, _
                Optional LaBase As String, Optional pContra As String)
    Set MiRpt = Repo
    Set xRs = pRs
    xformu = pFormu
    MiBase = LaBase
    xTit = pTit
    xContra = pContra
    Me.Show
End Function
0

i Understand only English or URDU....plzz give me solution in ENGLISH....

0

is there any software which cn be integrated with ms office professional that can translat foreign language to urdu like msword ecxel ect

0

is there any software which cn be integrated with ms office professional 2003 that can translate foreign language to urdu like msword ecxel ect.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.