No Error But not Display Report When Call a Crystal Report using VB 6.0

Question

0.00/5 (No votes)

See more:

Hello Please Help Me ???????????????
i am check the mark.markid is a text field after this it will be not show report.
i am making a report in crystal report and call by vb6.0 when i am pass recordselection formula with id and date range parameter it give no error but display no data in report i am using crystal report 9.0 when i am pass single single paratmer it display report with record but when i am pass both parameter together is display no record in report.

Code: - -

XML

Set CrApp = New CRAXDRT.Application
Set CrRep = CrApp.OpenReport(App.Path & "\recpt1.rpt")
'CrRep.Database.SetDataSource (App.Path & "\dak.mdb")
'CrRep.Database = App.Path & "\dak.mdb"
For Each crtable In CrRep.Database.Tables
crtable.Location = App.Path & "\dak.mdb"
Next

If Check8.Value = 1 And Check9.Value = 1 Then
      Dim c1
    c1 = Mid(Combo3.Text, 1, 2)
    CrRep.EnableParameterPrompting = False
    str = "{MarkTo.Mark_id} = '" & c1 & "' And( {Dak.MarkDt} >= #" & Text9.Text & "# And {Dak.MarkDt} <= #" & Text10.Text & "#)"
    CrRep.RecordSelectionFormula = str
    'MsgBox (CrRep.RecordSelectionFormula)
    CrRep.DiscardSavedData
    Form1.CRViewer91.ReportSource = CrRep
    '    Form1.CRViewer91.SearchByFormula (str)
    Form1.CRViewer91.ViewReport
    Form1.Show
Exit Sub
End If

It not give any error but not display any record
Please solve it
Please Help me again

Posted 18-Jan-10 20:00pm

Ram Kumar(Webunitech)

Updated 18-Jan-10 22:35pm

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

thatraja · Accepted Answer · 2010-01-18T20:46:00

wrote

str = "{MarkTo.Mark_id} = '" & c1 & "' And( {Dak.MarkDt} >= #" & Text9.Text & "# And {Dak.MarkDt} <= #" & Text10.Text & "#)"

please confirm the Mark_id field data type is text or number. If it is number type you should avoid the single quotes in parameter & then give space after the keyword And.

Then find the file event.log in the reports folder path. You can see the error details in that file. let me know.