In Crystal Report .net, problem whenlarge records
hi,
when creating reports in asp.net using crystal report .net, i have the following error for large size of records. that is more than 25000 or 40000 or more. even i need 2 lakhs records also.
i dont know how to solve the problem.
can u solve my problem please.
************************************************** ************************************
Server Application Unavailable
The web application you are attempting to access on this web server is currently unavailable. Please hit the "Refresh" button in your web browser to retry your request.
Administrator Note: An error message detailing the cause of this specific request failure can be found in the system event log of the web server. Please review this log entry to discover what caused this error to occur.
in event viewer the error is.........
aspnet_wp.exe (PID: 1740) was recycled because memory consumption exceeded the 76 MB (60 percent of available RAM).
or
aspnet_wp.exe (PID: 448) was recycled because it was suspected to be in a deadlocked state. It did not send any responses for pending requests in the last 180 seconds.
***********************************************
my coding is
Dim intyearmonth As String
Dim fromdate As String = txtFromDate.Value.ToString
intyearmonth = Mid(fromdate, 7, 10) & Mid(fromdate, 4, 2)
strsql = "select LM.smis_region,LM.smis_stateName,LM.smis_city,LM.s mis_level,LM.smis_locationcode, " _
& " SM.Yearmonth, SM.ProductCode, SM.Totalqty, SM.GrossWeight, SM.StockValue, LM.smis_location smis_locationname,smis_LocationCategory" _
& " from smis_summary_stock SM,smis_Locationmaster LM" _
& " where SM.Locationcode = LM.smis_locationcode" _
& " and SM.yearMonth = " & intyearmonth & " " _
& " " & WhereCondition & "" _
& " Order By 1"
'call export report
Try
Dim ds As New dsStockReport()
Dim daStockReport As SqlDataAdapter = New SqlDataAdapter(strsql, objConn)
daStockReport.Fill(ds, "StockReport")
orpt = New rptLogin()
orpt.SetDataSource(ds)
Dim myreport As rptLogin = orpt
'Input Paramenters
orpt.DataDefinition.FormulaFields(21).Text = "'" & Heading & "'"
Dim logincode = "-Admin"
Dim ExportFileName = Session("Heading") & logincode.ToString & ".xls"
destfile.DiskFileName = Server.MapPath("Export") & "\" & ExportFileName
Call OpenWindows("Export\\" & ExportFileName, "_Blank")
'destfile.DiskFileName = "C:\\" & ExportFileName
Exportoption = myreport.ExportOptions
With Exportoption
.ExportDestinationType = .ExportDestinationType.DiskFile
'.ExportFormatType = .ExportFormatType.PortableDocFormat
.ExportFormatType = .ExportFormatType.Excel
.DestinationOptions = destfile
.FormatOptions = formatoptions
End With
myreport.Export()
Catch ex As Exception
Response.Write(ex.Message & "" & ex.StackTrace)
End Try
Heading = ""
this coding is working for small amount of records.
|