ASKER
ASKER
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.ReportSource
Public Class frmreports
Private Sub CrystalReportViewer1_Load(sender As System.Object, e As System.EventArgs) Handles CrystalReportViewer1.Load
dispreport()
End Sub
Public Sub dispreport()
Dim cryRpt As New ReportDocument
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
cryRpt.Load("j:\crystalreports\evaluations\completedseminaranalysis.rpt")
With crConnectionInfo
.ServerName = "MCLE_SQL2008\MCLE_SQL2008;"
.DatabaseName = "iMIS_MCLE_Prod"
.UserID = "sa"
.Password = "password"
End With
CrTables = cryRpt.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
'
' This is from the suggested code doesn't work at all
'
'CrystalReportViewer1.ReportSource = cryrpt
'
' Using this the report requests a database password and then runs correctly
'
CrystalReportViewer1.ReportSource = ("j:\crystalreports\evaluations\completedseminaranalysis.rpt")
'CrystalReportViewer1.Show()
CrystalReportViewer1.Refresh()
End Sub
End Class
ASKER
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.ReportSource
Public Class frmcompletedseminar
Private Sub CrystalReportViewer1_Load(sender As System.Object, e As System.EventArgs) Handles CrystalReportViewer1.Load
dispreport()
End Sub
Public Sub dispreport()
Dim cryRpt As New ReportDocument
cryRpt.Load("j:\crystalreports\evaluations\completedseminaranalysis.rpt")
cryRpt.SetDatabaseLogon("sa", "password",
"dsn", "databasename", False)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Show()
End Sub
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.ReportSource
Public Class frmGroupHistory
Private Sub frmGroupCrystalReportViewer1_Load(sender As System.Object, e As System.EventArgs) Handles CrystalReportViewer1.Load
dispreport()
End Sub
Public Sub dispreport()
Dim cryRpt As New ReportDocument
Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
Dim paramField As New CrystalDecisions.Shared.ParameterField()
Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
cryRpt.Load("j:\crystalreports\evaluations\historyrecap.rpt")
cryRpt.SetDatabaseLogon("username", "password",
"dsn", "database name", False)
paramField.ParameterFieldName = "productcode"
Dim str As String = frmControl.txtProductCode.Text.ToString
discreteVal.Value = str
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
End Sub
End Class
ASKER
The .NET Framework is not specific to any one programming language; rather, it includes a library of functions that allows developers to rapidly build applications. Several supported languages include C#, VB.NET, C++ or ASP.NET.
TRUSTED BY
ASKER