[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 785
  • Last Modified:

Pass selection formula to .Dsr file

Hi,

I am using vb6, crystal report 7 and Access database.

1. I design a report useing a query, use selection formula and call from vb its ok.

2. When i add crystal report in vb project it shows extension dsr and use CRViewer1 to view report. How i pass selection formula in this way.

what is the best way to handle report from upper two ways because i want that report files are compile with the form.

Thanks.

0
pak_slm
Asked:
pak_slm
  • 3
  • 2
  • 2
1 Solution
 
kzberaCommented:
If my guess is correct you are trying to build a vb program for internet where you are trying to call a crystal report through your vb application.
So you have created IIS application using a special type of Visual Basic project. The result is an ActiveX DLL project type that automatically includes an instance of the appropriate ActiveX designer. That designer, called a WebClass object, acts as the base on which you create your application and is underneath your pages.

Actually you have created a WebClass project in Visual Basic 6.0 because WebClass designer files have the extension .dsr, for "designer. What happened You save the designer, the default module, and the project file. Designers end with the extension .dsr, whereas modules have the familiar .bas extension and projects have the .vbp extension.
For detail the following link will help you a lot to get rid of your second problem:
http://www.devx.com/upload/free/features/webbuilder/1998/09sep98/cc0998/cc0998.asp
0
 
pak_slmAuthor Commented:
No i am not build for internet.

Just open a standard exe project in vb, add some forms for data entry. Right click on project and select crystal report and design report and save it with dsr extension. it also add a form having control CRViewer1 on it.

So i view report in this way but base of my report is sql query and i want to pass where condition i.e. pass selection formula to a .rpt report file.
0
 
pak_slmAuthor Commented:
No i am not build for internet.

Just open a standard exe project in vb, add some forms for data entry. Right click on project and select crystal report and design report and save it with dsr extension. it also add a form having control CRViewer1 on it.

So i view report in this way but base of my report is sql query and i want to pass where condition i.e. pass selection formula to a .rpt report file.
0
Take Control of Web Hosting For Your Clients

As a web developer or IT admin, successfully managing multiple client accounts can be challenging. In this webinar we will look at the tools provided by Media Temple and Plesk to make managing your clients’ hosting easier.

 
kzberaCommented:
There are lots of Q & A in this site.
Go through these..
Best of luck
0
 
EYoungCommented:
Here is the code I use in my vb app to run the SQL query and pass some parameters.  Hope this helps.  This code is in a standard form that I call.  It, in turn, does the following and shows the report.



Option Explicit
Dim Report As dsrDetail_or_Summary

Private Sub Form_Activate()
    Set Report = New dsrDetail_or_Summary

    Report.EnableParameterPrompting = False

    Report.ParameterFields(1).AddCurrentValue mDetail_or_Summary_Parm
    Report.ParameterFields(2).AddCurrentValue mReport_Type_Parm
    Report.ParameterFields(3).AddCurrentValue mTeam_No_Parm
    Report.ParameterFields(4).AddCurrentValue mTotal_WIP_Parm
    Report.ParameterFields(5).AddCurrentValue mShow_Projects_Parm
   
    Select Case mReport_Type_Parm
        Case "One Team"
            If mDWS_Type = "M" Or mDWS_Type = "F" Then
                Report.RecordSelectionFormula = "{Dailies.Team_No} =  " & mTeam_No_Parm & _
                    " And {Dailies.DWS_Type} = " & fncQuoted_String(mDWS_Type)
            Else
                Report.RecordSelectionFormula = "{Dailies.Team_No} =  " & mTeam_No_Parm
            End If
        Case "All Teams"
            If mDWS_Type = "M" Or mDWS_Type = "F" Then
                Report.RecordSelectionFormula = "{Dailies.DWS_Type} = " & fncQuoted_String(mDWS_Type)
            End If
    End Select

    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = Report
    CRViewer1.DisplayTabs = False
    CRViewer1.DisplayToolbar = True
    CRViewer1.EnableGroupTree = False
    CRViewer1.EnableExportButton = True
    CRViewer1.ViewReport

    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
    CRViewer1.Top = 0
    CRViewer1.Left = 0
    CRViewer1.Height = ScaleHeight
    CRViewer1.Width = ScaleWidth
End Sub
0
 
pak_slmAuthor Commented:
EYoung

one thing else

How i can i display my input as criteria as header on report.

0
 
EYoungCommented:
pak slm,

Sorry for the delay.  I only work at this client on Mondays and Tuesdays and I don't always check EE.

What I do to display input as criteria is to either print the parameter you pass in the report header or create a formula like:  "Input 1:  " & Parameter1 and then print the formula in the header.

Another thing is that I try to always print the report parameters in the header or footer of the report.  That way the user can see what the inputs were that went into creating the report.  (Also, I can more easily understand how the user printed a report if they come to me later and say the report is not working correctly.)

Hope that helps.  EYoung
0

Featured Post

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

  • 3
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now