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) - Private Sub command3_Click()
-
Dim m_Report As CRAXDDRT.report
-
Dim m_Application As New CRAXDDRT.Application
-
-
Set m_Report = Nothing
-
Set m_Report = m_Application.OpenReport(App.Path + "Report.rpt", 1)
-
-
m_Report.ParameterFields.Item(1).AddCurrentValue dt_start.Value
-
m_Report.ParameterFields.Item(2).AddCurrentValue dt_end.Value
-
With CRViewer1
-
.EnableExportButton = True
-
.EnableCloseButton = True
-
.ReportSource = m_Report
-
.ViewReport
-
End With
-
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..
6 1905
instead of using paramet object try to pass the sql string directly to the crystlreport using SQLQueryString
try to use like this -
Public Sub ReportDisplay(Query As String)
-
-
Set CRXReport = visitordetails
-
Set CRXDb = CRXReport.Database
-
CRXReport.DiscardSavedData
-
-
inti = 1
-
Do Until inti = CRXReport.Database.Tables.Count + 1
-
CRXReport.Database.Tables.Item(inti).SetLogOnInfo strdblocation, "das", "debasis", "debasis"
-
inti = inti + 1
-
Loop
-
-
visitordetails.SQLQueryString = Query
-
-
With FrmReport1
-
.Show
-
.CRV1.ReportSource = CRXReport
-
.CRV1.ViewReport
-
End With
-
-
Set CRXReport = Nothing
-
End Sub
-
-
Hi,
Instead of Parameters, use RecordSelection Formula..
Check This : - Private Sub command3_Click()
-
Dim m_Report As CRAXDDRT.report
-
Dim m_Application As New CRAXDDRT.Application
-
-
Set m_Report = Nothing
-
Set m_Report = m_Application.OpenReport(App.Path + "Report.rpt", 1)
-
m_Report.RecordSelectionFormula = {MyTable.DateFld} In Date(" _
-
& Format(dt_start.Value, "yyyy,mm,dd") & ") To Date(" _
-
& Format(dt_end.Value,"yyyy,mm,dd") & ")"
-
With CRViewer1
-
.EnableExportButton = True
-
.EnableCloseButton = True
-
.ReportSource = m_Report
-
.ViewReport
-
End With
-
End Sub
Regards
Veena
To debasisdas, im using Ms Access though, sorry for forget telling..
To Ms Veena, it is error =(
Hi,
Sorry, I forgot the Starting Double quote: -
m_Report.RecordSelectionFormula = "{MyTable.DateFld} In Date(" _
-
& Format(dt_start.Value, "yyyy,mm,dd") & ") To Date(" _
-
& Format(dt_end.Value,"yyyy,mm,dd") & ")"
-
Regards
Veena
Thanks so much, Ms.Veena, it really works..
I put the code like this - Private Sub command3_Click()
-
Dim m_Report As CRAXDDRT.report
-
Dim m_Application As New CRAXDDRT.Application
-
-
Set m_Report = Nothing
-
Set m_Report = m_Application.OpenReport(App.Path + "Report.rpt", 1)
-
-
m_Report.RecordSelectionFormula = "{printLap.Date} In Date(" & Format(dt_start.Value, "yyyy,mm,dd") & ") To Date(" & Format(dt_end.Value, "yyyy,mm,dd") & ")"
-
-
m_Report.ParameterFields.Item(1).AddCurrentValue dt_start.Value
-
m_Report.ParameterFields.Item(2).AddCurrentValue dt_end.Value
-
-
-
With CRViewer1
-
.EnableExportButton = True
-
.EnableCloseButton = True
-
.ReportSource = m_Report
-
.ViewReport
-
End With
Thanks............ ;-)
Sign in to post your reply or Sign up for a free account.
Similar topics
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)...
|
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...
|
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...
|
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.
...
|
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...
|
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...
|
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
...
|
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...
|
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...
|
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...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
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...
|
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...
|
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...
|
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...
|
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)...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
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...
| |