Hi all,
I have a vb6 program,MS access as backend with crystal report9,
one of the table have around 16000 records. when i try to fetch the data from this table through crystal report 9, it takes long time

My database have field like

1)IssueNum
2)IssueDate
3)ProductCode
4)Uom
5)Qty

if I am fetching record between dates, even if its 2 days record
it takes around 5 to 10 minutes to generate the report


can some one tell me which vb6 code can help me to fastened the report generation?

The problem i described above I am writing down my code snippet

Private Sub mitrns()
On Error GoTo err_handler
If Text1.Text = "" Or Text2.Text = "" Then
    rsrpt.Open "select*from materialissue where midate>=#" & DTPicker1.Value & "# and midate<=#" & DTPicker2.Value & "#", db, adOpenForwardOnly, adLockReadOnly
Else
    rsrpt.Open "select*from materialissue where mino>=" & Val(Text1.Text) & " and mino<=" & Val(Text2.Text) & "", db, adOpenForwardOnly, adLockReadOnly
End If
    Set report = crystal.OpenReport(App.Path & "\report\Issuetrns.rpt") 'OPEN OUR REPORT

rptcall

Exit Sub
err_handler:
If ERR.Number > 0 Then
   MsgBox ERR.Description, vbCritical
End If
End Sub

Private Sub rptcall()
On Error GoTo err_handler
report.DiscardSavedData 'CLEARS REPORT SO WE WORK FROM RECORDSET

report.ParameterFields.GetItemByName("docFrom").Ad dCurrentValue Val(Text1.Text)
report.ParameterFields.GetItemByName("docTo").AddC urrentValue Val(Text2.Text)
report.Database.SetDataSource rsrpt 'LINK REPORT TO RECORDSET
CRViewer.Zoom (100)
CRViewer.ReportSource = report 'LINK VIEWER TO REPORT
CRViewer.ViewReport

'SHOW REPORT
Do While CRViewer.IsBusy 'ZOOM METHOD DOES NOT WORK WHILE
   DoEvents 'REPORT IS LOADING, SO WE MUST PAUSE
Loop 'WHILE REPORT LOADS.

rsrpt.Close
Exit Sub
err_handler:
If ERR.Number > 0 Then
   MsgBox ERR.Description, vbCritical
End If
End Sub

Do you have any index on that fields???, could be a problem with the data fetch...

in which line does the program takes long????

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========