473,326 Members | 2,111 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,326 software developers and data experts.

VB 6.0 to CR 8.5

Dear Experts,

i'm trying to display a report based on Start date and End date from VB 6.0.
For report, i use CR 8.5.

Here's my code (VB)

Expand|Select|Wrap|Line Numbers
  1. Private Sub command3_Click()
  2. Dim m_Report As CRAXDDRT.report
  3. Dim m_Application As New CRAXDDRT.Application
  4.  
  5. Set m_Report = Nothing
  6. Set m_Report = m_Application.OpenReport(App.Path + "Report.rpt", 1)
  7.  
  8.     m_Report.ParameterFields.Item(1).AddCurrentValue dt_start.Value
  9.     m_Report.ParameterFields.Item(2).AddCurrentValue dt_end.Value
  10. With CRViewer1
  11.     .EnableExportButton = True
  12.     .EnableCloseButton = True
  13.     .ReportSource = m_Report
  14.     .ViewReport
  15. End With
  16. End Sub
i've made 2 parameters to CR, ?Start and ?End

It works, but it display all datas though, not from the date i input.
Did i make any mistakes?

Thanks in advance..
Jan 8 '08 #1
6 1905
debasisdas
8,127 Expert 4TB
instead of using paramet object try to pass the sql string directly to the crystlreport using SQLQueryString
Jan 8 '08 #2
debasisdas
8,127 Expert 4TB
try to use like this

Expand|Select|Wrap|Line Numbers
  1. Public Sub ReportDisplay(Query As String)
  2.  
  3. Set CRXReport = visitordetails
  4. Set CRXDb = CRXReport.Database
  5. CRXReport.DiscardSavedData
  6.  
  7. inti = 1
  8. Do Until inti = CRXReport.Database.Tables.Count + 1
  9. CRXReport.Database.Tables.Item(inti).SetLogOnInfo strdblocation, "das", "debasis", "debasis"
  10. inti = inti + 1
  11. Loop
  12.  
  13. visitordetails.SQLQueryString = Query
  14.  
  15. With FrmReport1
  16. .Show
  17. .CRV1.ReportSource = CRXReport
  18. .CRV1.ViewReport
  19. End With
  20.  
  21. Set CRXReport = Nothing
  22. End Sub
  23.  
  24.  
Jan 8 '08 #3
QVeen72
1,445 Expert 1GB
Hi,

Instead of Parameters, use RecordSelection Formula..

Check This :

Expand|Select|Wrap|Line Numbers
  1. Private Sub command3_Click()
  2. Dim m_Report As CRAXDDRT.report
  3. Dim m_Application As New CRAXDDRT.Application
  4.  
  5. Set m_Report = Nothing
  6. Set m_Report = m_Application.OpenReport(App.Path + "Report.rpt", 1)
  7. m_Report.RecordSelectionFormula = {MyTable.DateFld} In Date(" _
  8.   & Format(dt_start.Value, "yyyy,mm,dd") & ") To Date(" _
  9.   & Format(dt_end.Value,"yyyy,mm,dd") & ")" 
  10. With CRViewer1
  11.     .EnableExportButton = True
  12.     .EnableCloseButton = True
  13.     .ReportSource = m_Report
  14.     .ViewReport
  15. End With
  16. End Sub


Regards
Veena
Jan 8 '08 #4
To debasisdas, im using Ms Access though, sorry for forget telling..
To Ms Veena, it is error =(
Jan 8 '08 #5
QVeen72
1,445 Expert 1GB
Hi,

Sorry, I forgot the Starting Double quote:

Expand|Select|Wrap|Line Numbers
  1. m_Report.RecordSelectionFormula = "{MyTable.DateFld} In Date(" _
  2.   & Format(dt_start.Value, "yyyy,mm,dd") & ") To Date(" _
  3.   & Format(dt_end.Value,"yyyy,mm,dd") & ")" 
  4.  
Regards
Veena
Jan 8 '08 #6
Thanks so much, Ms.Veena, it really works..
I put the code like this

Expand|Select|Wrap|Line Numbers
  1. Private Sub command3_Click()
  2. Dim m_Report As CRAXDDRT.report
  3. Dim m_Application As New CRAXDDRT.Application
  4.  
  5. Set m_Report = Nothing
  6. Set m_Report = m_Application.OpenReport(App.Path + "Report.rpt", 1)
  7.  
  8.     m_Report.RecordSelectionFormula = "{printLap.Date} In Date(" & Format(dt_start.Value, "yyyy,mm,dd") & ") To Date(" & Format(dt_end.Value, "yyyy,mm,dd") & ")"
  9.  
  10.     m_Report.ParameterFields.Item(1).AddCurrentValue dt_start.Value
  11.     m_Report.ParameterFields.Item(2).AddCurrentValue dt_end.Value
  12.  
  13.  
  14.     With CRViewer1
  15.     .EnableExportButton = True
  16.     .EnableCloseButton = True
  17.     .ReportSource = m_Report
  18.     .ViewReport
  19. End With
Thanks............ ;-)
Jan 10 '08 #7

Sign in to post your reply or Sign up for a free account.

Similar topics

3
by: William C. White | last post by:
Does anyone know of a way to use PHP /w Authorize.net AIM without using cURL? Our website is hosted on a shared drive and the webhost company doesn't installed additional software (such as cURL)...
2
by: Albert Ahtenberg | last post by:
Hello, I don't know if it is only me but I was sure that header("Location:url") redirects the browser instantly to URL, or at least stops the execution of the code. But appearantely it continues...
3
by: James | last post by:
Hi, I have a form with 2 fields. 'A' 'B' The user completes one of the fields and the form is submitted. On the results page I want to run a query, but this will change subject to which...
0
by: Ollivier Robert | last post by:
Hello, I'm trying to link PHP with Oracle 9.2.0/OCI8 with gcc 3.2.3 on a Solaris9 system. The link succeeds but everytime I try to run php, I get a SEGV from inside the libcnltsh.so library. ...
1
by: Richard Galli | last post by:
I want viewers to compare state laws on a single subject. Imagine a three-column table with a drop-down box on the top. A viewer selects a state from the list, and that state's text fills the...
4
by: Albert Ahtenberg | last post by:
Hello, I have two questions. 1. When the user presses the back button and returns to a form he filled the form is reseted. How do I leave there the values he inserted? 2. When the...
1
by: inderjit S Gabrie | last post by:
Hi all Here is the scenerio ...is it possibly to do this... i am getting valid course dates output on to a web which i have designed ....all is okay so far , look at the following web url ...
2
by: Jack | last post by:
Hi All, What is the PHP equivilent of Oracle bind variables in a SQL statement, e.g. select x from y where z=:parameter Which in asp/jsp would be followed by some statements to bind a value...
3
by: Sandwick | last post by:
I am trying to change the size of a drawing so they are all 3x3. the script below is what i was trying to use to cut it in half ... I get errors. I can display the normal picture but not the...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: Vimpel783 | last post by:
Hello! Guys, I found this code on the Internet, but I need to modify it a little. It works well, the problem is this: Data is sent from only one cell, in this case B5, but it is necessary that data...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
0
by: Faith0G | last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.