Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Generate the Report
- Dim oRpt As New ReportDocument
- Dim reportPath As String = Server.MapPath("crtTAL.rpt")
- oRpt.Load(reportPath)
- oRpt.SetDataSource(dsTAL)
- If Not IO.Directory.Exists(tempLocation) Then
- IO.Directory.CreateDirectory(tempLocation)
- End If
- If IO.File.Exists(tempLocation & filename) Then
- IO.File.Delete(tempLocation & filename)
- End If
- ' ********************************
- ' First we must create a new instance of the diskfiledestinationoptions class and
- ' set variable called crExportOptions to the exportoptions class of the reportdocument.
- Dim crDiskFileDestinationOptions As New DiskFileDestinationOptions
- Dim crExportOptions As ExportOptions = oRpt.ExportOptions
- 'Export to Word
- 'append a filename to the export path and set this file as the filename property for
- 'the DestinationOptions class
- crDiskFileDestinationOptions.DiskFileName = tempLocation + filename
- 'set the required report ExportOptions properties
- With crExportOptions
- .DestinationOptions = crDiskFileDestinationOptions
- .ExportDestinationType = ExportDestinationType.DiskFile
- .ExportFormatType = ExportFormatType.WordForWindows
- End With
- 'Once the export options have been set for the report, the report can be exported. The Export command
- 'does not take any arguments
- Try
- ' Export the report
- oRpt.Export()
- oRpt.Close()
- oRpt.Dispose()
- projectCount = projectCount + 1
- Catch err As Exception
- Response.Write("<BR>")
- Response.Write(err.Message.ToString)
- errorList = errorList & dtrProjects.Item("Title") & "; "
- End Try
- public partial class _Default : System.Web.UI.Page
- {
- protected void Page_Load(object sender, EventArgs e)
- {
- ///create instance of class first
- ReportDocument rpDoc = new ReportDocument();
- ///load the report
- rpDoc.Load(@"TicketingBasic.rpt");
- ///pass the report to method for dataInfo
- getDBInfo(rpDoc);
- /// et the source for report to be displayed
- CrystalReportViewer1.ReportSource = rpDoc;
- }
- protected static void getDBInfo(ReportDocument rpDoc)
- {
- ///Connection Onject
- ConnectionInfo cn = new ConnectionInfo();
- ///DataBase,Table, and Table Logon Info
- Database db;
- Tables tbl;
- TableLogOnInfo tblLOI;
- ///Connection Declaration
- cn.ServerName = "??????";
- cn.DatabaseName = "???????";
- cn.UserID = "???????";
- cn.Password = "????????";
- //table info getting from report
- db = rpDoc.Database;
- tbl = db.Tables;
- ///for each loop for all tables to be applied the connection info to
- foreach (Table table in tbl)
- {
- tblLOI = table.LogOnInfo;
- tblLOI.ConnectionInfo = cn;
- table.ApplyLogOnInfo(tblLOI);
- table.Location = "DBO." + table.Location.Substring(table.Location.LastIndexOf(".") + 1);
- }
- db.Dispose();
- tbl.Dispose();
- }
- <CR:CrystalReportViewer
- ID="CrystalReportViewer1"
- runat="server"
- AutoDataBind="true"
- EnableDatabaseLogonPrompt="false"
- />
Add Comment
Please, Sign In to add comment