Hello,
I have a multithreaded windows NT service application (vb.net 2003) that I
am working on (my first one), which reads a message queue and creates
multiple threads to perform the processing for long running reports. When
the processing is complete it uses crystal reports to load a template file,
populate it, and then export it to a PDF.
It works fine so far....
Now, since few reports are run - but multiple could be submitted at the same
time, I would like to keep the longer processing multithreaded (i.e.
function ReloadReportDat a() in the processing module below), but then single
thread the crystal report creation/pdf export and e-mailing of the PDF, so
that additional crystal report licenses will not be required (these are very
quick once the processing has been completed). Can someone help me figure
out the best way to do this? From what I can gather in reading various
posts I believe that I would create a QUEUE (note, I don't think is the same
thing as a message queue) and then have a separate thread that is just
pulling messages off of this, and then processing. Once the processing is
done, check for another entry in the QUEUE... Is this correct? But I
haven't seen any good examples of how to do that, and how to wait for the
message.
Below you will find my current source code.
I wouldn't mind additional comments on the techniques that I finally chose
for the threading. Is this all ok? Are there better ways to do this?
Thanks in advance for any assistance!
Jim
=============== =============== =============== =============== =============== =
=============== =============
the following is in the start up of the windows service
=============== =============== =============== =============== =============== =
=============== =============
Private myThreadPool As ThreadPool()
Private oThread(1) As Thread
Protected Overrides Sub OnStart(ByVal args() As String)
' Write a message to the log
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ", "Serv
ice started at : " & FormatDateTime( Now(), DateFormat.Long Time),
Diagnostics.Eve ntLogEntryType. Information, 1)
Dim i As Integer 'Thread count
Dim objMQListen As MQListen
' Declare a worker thread
Dim objThreadStart As ThreadStart
'declare the Class that will run our threads
objMQListen = New MQListen
' Create a ThreadStart object, passing the address of
objMQListener.L isten
' then set the reference and start the main MQListener thread
objThreadStart = New ThreadStart(Add ressOf objMQListen.Lis ten)
oThread(0) = New Thread(objThrea dStart)
oThread(0).Star t()
End Sub
=============== =============== =============== =============== =============== =
=============== =============
the following is the Message Queue Listener Class
=============== =============== =============== =============== =============== =
=============== =============
Imports System.Messagin g
Imports System.Threadin g
Public Class MQListen
Private configurationAp pSettings As _
System.Configur ation.AppSettin gsReader = New _
System.Configur ation.AppSettin gsReader
'constructor accepts the necessary queue information
Sub MQListen(ByVal MachineName As String, ByVal QueueName As String)
End Sub
'One and only method that each thread uses to
Sub Listen()
Dim oThread As Thread
Dim objThreadStart As ThreadStart
'Create a MessageQueue object
Dim objMQ As System.Messagin g.MessageQueue
Try
objMQ = New
System.Messagin g.MessageQueue( CType(configura tionAppSettings .GetValue("Sell a
rs.MessageQueue ", GetType(System. String)), String))
Catch
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error connecting to MessageQueue: " & Err.Description ,
Diagnostics.Eve ntLogEntryType. Error)
Debug.WriteLine (Err.Descriptio n)
End Try
Dim myMessageBody As New MQPassedData
Dim TargetTypes(0) As System.Type
TargetTypes(0) = myMessageBody.G etType
objMQ.Formatter = New XmlMessageForma tter(TargetType s)
myMessageBody = Nothing
'Create a Message object
Dim objMsg As Message
Try
'repeat until Interrupt received
While True
Try
'sleep in order to catch the interrupt if it has been
thrown
'Interrupt will only be processed by a thread that is in
a
'wait, sleep or join state
Thread.CurrentT hread.Sleep(100 )
'Set the Message object equal to the result from the
receive function
'there are 2 implementations of Receive. The one I use
requires a
'TimeSpan object which specifies the timeout period.
There is also an
'implementation of Receive which requires nothing and
will wait indefinitely
'for a message to arrive on a queue
'Timespan(?, hours, minutes, seconds)
Dim newMessageBody As New MQPassedData
objMsg = objMQ.Receive(N ew TimeSpan(0, 0, 0, 1))
Try
newMessageBody = objMsg.Body
Catch emsg As Exception
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ", "Msg received
error: " & emsg.Message, Diagnostics.Eve ntLogEntryType. Information)
' Create a ThreadStart object, passing the address of objMQListener.L isten
End Try
' Set the passed data in, and place it in a new
ThreadPool element
' The treadpool takes care of managing all the thread
issues in a very
' simple way.
Dim processingutili ties As New SDRAProcessing
Dim passData As New MQPassedData
passData = newMessageBody
ThreadPool.Queu eUserWorkItem(N ew WaitCallback(Ad dressOf
processingutili ties.ProcessMes sage), passData)
' Free up memory held during processing
newMessageBody = Nothing
Catch e As ThreadInterrupt edException
'catch the ThreadInterrupt from the main thread and exit
' Console.WriteLi ne("Exiting Thread")
Exit While
Catch excp As Exception
'Catch any exceptions thrown in receive
'MsgBox("No message received in 10 seconds")
'Console.WriteL ine(excp.Messag e)
End Try
End While
Catch e As ThreadInterrupt edException
'catch the ThreadInterrupt from the main thread and exit
'Console.WriteL ine("Exiting Thread")
End Try
'exit thread
End Sub
End Class
=============== =============== =============== =============== =============== =
=============== =============
the following is my main processing class
=============== =============== =============== =============== =============== =
=============== =============
Imports System.Configur ation
Imports System.Data
Imports System.IO
Imports System.Messagin g
Imports System.Threadin g
Imports System.Web.Mail
Imports CrystalDecision s.CrystalReport s.Engine
Imports CrystalDecision s.Shared
' This class handles the processing for each Sales Date Range Analysis
request
' that is received from the queue
Public Class SDRAProcessing
Private configurationAp pSettings As _
System.Configur ation.AppSettin gsReader = New _
System.Configur ation.AppSettin gsReader
' Declare local variables to store login information for the SQL Server
' this information is read in from the configuration file which resides
in
' the same directory as the service's executable module.
Private mvarDatabaseNam e As String
Private mvarServerName As String
Private mvaruserName As String
Private mvarPassword As String
' Local variables to store various parameters read in from the
configuration file
' this information is read in from the configuration file which resides
in
' the same directory as the service's executable module.
Private mvarReport As String
Private mvarCrystalName As String
Private mvarTempFileDir As String
Private mvarMailTo As String
Private mvarMailFrom As String
Private mvarMailServer As String
Private mvarWebSite As String
Private mvarStyleSheet As String
Private mvarPDFViewLoca tion As String
' Instantiate an object containing the data passed from the web page via
the message queue
Public passData As New MQPassedData
' Local ENUMERATIONS for the EVENT ID used when writing to the Windows
Event Log
Private Enum SDRAEvent As Integer
ServiceStart = 1
ServiceStop = 2
ProcessStart = 3
ProcessStop = 4
ReloadData = 100
DeleteData = 101
ReadConfig = 200
OpenConnection = 201
CloseConnection = 202
CrystalFile = 300
CrystalLoad = 301
CrystalExport = 302
MailParamters = 400
SendMail = 401
End Enum
' This routine is ONLY called when a valid sales date range analysis
request has
' been received. Then
' 1) The requested data is loaded into a temporary database (via the
' ReloadReportDat a routine) off of which we can perform various
reporting tasks
' 2) A PDF file containing the report is produced using interaction
with Crystal Reports.
' 3) The PDF is e-mail to the user that submitted the report
request.
'
Public Sub ProcessMessage( ByVal passedinData As Object)
' Reference the state object passed in via the ThreadPool call to
the procedure.
' this contains the data as it was passed from the web page via the
MSMQ
passData = passedinData
' Write an event log message to show that we have received a valid
report request
Dim StartTime As Date = Now()
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Processing Started at : " & FormatDateTime( StartTime, DateFormat.Long Time)
& " on request submitted by " & passData.UserNa me & " for sales analysis
from " & Format(passData .StartDate, "MM/dd/yyyy") & " thru " &
Format(passData .EndDate, "MM/dd/yyyy") & ".",
Diagnostics.Eve ntLogEntryType. Information, SDRAEvent.Proce ssStart)
' Get all the configuration data items and set them to local
variables.
' If there is an error, then write an event log record, and exit the
subroutine.
Try
Report = CType(configura tionAppSettings .GetValue("SDRA .Report",
GetType(System. String)), String)
ServerName =
CType(configura tionAppSettings .GetValue("Data base.Server",
GetType(System. String)), String)
DatabaseName =
CType(configura tionAppSettings .GetValue("Data base.Database",
GetType(System. String)), String)
UserName =
CType(configura tionAppSettings .GetValue("Data base.UserName",
GetType(System. String)), String)
Password =
CType(configura tionAppSettings .GetValue("Data base.Password",
GetType(System. String)), String)
CrystalName =
CType(configura tionAppSettings .GetValue("Repo rt.Location",
GetType(System. String)), String) & Report & ".rpt"
TempFileDir =
CType(configura tionAppSettings .GetValue("Sell ars.TempFileDir ectory",
GetType(System. String)), String)
MailFrom = CType(configura tionAppSettings .GetValue("EMai l.From",
GetType(System. String)), String)
WebSite =
CType(configura tionAppSettings .GetValue("Sell ars.WebSite",
GetType(System. String)), String)
StyleSheet =
CType(configura tionAppSettings .GetValue("Sell ars.StyleSheet" ,
GetType(System. String)), String)
PDFViewLocation =
CType(configura tionAppSettings .GetValue("PDFV iewReport.Locat ion",
GetType(System. String)), String)
MailServer =
CType(configura tionAppSettings .GetValue("Emai l.SMTPServer",
GetType(System. String)), String)
Catch ex As Exception
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error reading configuration app settings: " & ex.Message,
Diagnostics.Eve ntLogEntryType. Error, SDRAEvent.ReadC onfig)
Exit Sub
End Try
' Call a routine to extract all the requred data from the Invoice
Master, Invoice Detail
' place it in the CustomerDateRan geMargins table, and perform all
necessary calculations
' for the report.
ReloadReportDat a()
' Populate the pre-defined Crystal Report, and export it to a PDF
stored with a unique
' file name.
CreatePDF()
' Capture the time when the report creation processing completed
Dim EndTime As Date = Now
' Mail the crystal reports PDF to the user
EMailReport(Sta rtTime, EndTime)
' Delete the temporary database tables that were used to hold the
data
DeleteReportDat a()
' Delete the PDF File that was created to keep the system clean
If File.Exists(PDF FileName()) Then
File.Delete(PDF FileName())
End If
' Write an event log message signifying that the valid message was
completely processed
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Processing completed at : " & FormatDateTime( EndTime, DateFormat.Long Time)
& " on request submitted by " & passData.UserNa me & " for sales analysis
from " & Format(passData .StartDate, "MM/dd/yyyy") & " thru " &
Format(passData .EndDate, "MM/dd/yyyy") & ".",
Diagnostics.Eve ntLogEntryType. Information)
End Sub
' This routine loads in a pre-defined Crystal Report .rpt file that has
been set up.
' After loading the report with the correct data chosen by the user, a
PDF is created
' from the populated report and saved to disk.
Private Function CreatePDF() As Boolean
'Initialize the return value to true
Dim retvalue As Boolean = True
' Declare necessary local variables to open a Crystal Report
' and access the report parameters.
Dim crReportDocumen t As New ReportDocument
Dim crDatabase As Database
Dim crTables As Tables
Dim crTable As Table
Dim crTableLogOnInf o As TableLogOnInfo
Dim crConnectionInf o As ConnectionInfo
Dim crParameterFiel dDefinitions As ParameterFieldD efinitions
Dim crParameterValu es1 As ParameterValues
Dim crParameterDisc reteValue1 As ParameterDiscre teValue
Dim crParameterValu es2 As ParameterValues
Dim crParameterDisc reteValue2 As ParameterDiscre teValue
Dim crParameterValu es3 As ParameterValues
Dim crParameterDisc reteValue3 As ParameterDiscre teValue
Dim crParameterValu es4 As ParameterValues
Dim crParameterDisc reteValue4 As ParameterDiscre teValue
' Create an instance of the strongly-typed report object and load
the
' correct .rpt file
Dim strReport As String
strReport = CrystalName
Try
crReportDocumen t.Load(strRepor t)
Catch e As Exception
retvalue = False
' Write an event log message
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error loading .rpt template: " & e.Message,
Diagnostics.Eve ntLogEntryType. Error, SDRAEvent.Cryst alLoad)
End Try
' Create a new instance of the connectioninfo object and
' set its properties to reference the database listed in the
configuration settings.
crConnectionInf o = New ConnectionInfo
With crConnectionInf o
.ServerName = ServerName
.DatabaseName = DatabaseName
.UserID = UserName
.Password = Password
End With
'Get the tables collection from the report object
crDatabase = crReportDocumen t.Database
crTables = crDatabase.Tabl es
'Apply the logon information to each table in the collection
For Each crTable In crTables
crTableLogOnInf o = crTable.LogOnIn fo
crTableLogOnInf o.ConnectionInf o = crConnectionInf o
crTable.ApplyLo gOnInfo(crTable LogOnInfo)
Next
' Set the Start Date parameter value
crParameterDisc reteValue1 = New ParameterDiscre teValue
crParameterValu es1 = New ParameterValues
crParameterDisc reteValue1.Valu e = passData.StartD ate
crParameterValu es1.Add(crParam eterDiscreteVal ue1)
crReportDocumen t.DataDefinitio n.ParameterFiel ds("StartDate") .ApplyCurrentVa l
ues(crParameter Values1)
' Set the End Date parameter value
crParameterDisc reteValue2 = New ParameterDiscre teValue
crParameterValu es2 = New ParameterValues
crParameterDisc reteValue2.Valu e = passData.EndDat e
crParameterValu es2.Add(crParam eterDiscreteVal ue2)
crReportDocumen t.DataDefinitio n.ParameterFiel ds("EndDate").A pplyCurrentValu e
s(crParameterVa lues2)
' Set the Request Date parameter value
crParameterDisc reteValue3 = New ParameterDiscre teValue
crParameterValu es3 = New ParameterValues
crParameterDisc reteValue3.Valu e = passData.Report Date
crParameterValu es3.Add(crParam eterDiscreteVal ue3)
crReportDocumen t.DataDefinitio n.ParameterFiel ds("RequestDate ").ApplyCurrent V
alues(crParamet erValues3)
' Set the UserID parameter value
crParameterDisc reteValue4 = New ParameterDiscre teValue
crParameterValu es4 = New ParameterValues
crParameterDisc reteValue4.Valu e = passData.UserID
crParameterValu es4.Add(crParam eterDiscreteVal ue4)
crReportDocumen t.DataDefinitio n.ParameterFiel ds("UserID").Ap plyCurrentValue s
(crParameterVal ues4)
' Define and set the options necessary to save the pdf file to a
disk location
Dim crDiskFileDesti nationOptions As New DiskFileDestina tionOptions
crDiskFileDesti nationOptions.D iskFileName = PDFFileName()
Dim crExportOption As ExportOptions = crReportDocumen t.ExportOptions
With crExportOption
.DestinationOpt ions = crDiskFileDesti nationOptions
.ExportDestinat ionType = ExportDestinati onType.DiskFile
.ExportFormatTy pe = ExportFormatTyp e.PortableDocFo rmat
End With
' Export the refreshed report using the appropriate selection
criteria
' If there is an error with this process, write an appropriate
Windows Event
' Log record.
Try
crReportDocumen t.Export()
Catch e As Exception
retvalue = False
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error exporting report: " & e.Message, Diagnostics.Eve ntLogEntryType. Error,
SDRAEvent.Cryst alExport)
End Try
End Function
' This function returns the physical direct file path and name of the
temporary file
' top be created and sent via e-mail
Public Function PDFFileName() As String
Return TempFileDir + PDFViewName()
End Function
' This is a unique name for a file so multiple users can access this
routine without any issues.
' A file name will be comprised of three parts:
' 1) The UserID used when the individual logged into the system.
' 2) The time that the request was submitted at the web page making
the request
' (this is necessary so the user can run multiple reports without
any problems)
' 3) The Name defined fo the report which is read in from the
configuration file.
' (this will be the same name as the crystal report .rpt file
except we use a PDF extention)
Public Function PDFViewName() As String
Return passData.UserID + Format(passData .ReportDate, "MMddyyhhmm ss")
+ "_" & Report & ".pdf"
End Function
' This routine is used to run a stored procedure against the
CustomerDateRan geMargins file
' and delete all records that match the UserID and Request Date. This
is typically run
' after all processing has been completed and the e-mail sent as part of
the clean up process.
Private Function DeleteReportDat a() As Boolean
Dim m_objConn As New System.Data.Sql Client.SqlConne ction
'try to open the connection
If Not OpenConnection( m_objConn) Then
Exit Function
End If
Dim returnvalue As Boolean = True
Dim myCommand As New
SqlClient.SqlCo mmand("DeleteCu stomerDateRange Margins", m_objConn)
' Mark the Command as a SPROC
' The timeout value of zero lets all transactions run without timing
out.
myCommand.Comma ndType = CommandType.Sto redProcedure
myCommand.Comma ndTimeout = 0
' Add Parameters to SPROC
Dim parameterReques tDate As New
SqlClient.SqlPa rameter("@Reque stDate", SqlDbType.DateT ime)
parameterReques tDate.Value = passData.Report Date
myCommand.Param eters.Add(param eterRequestDate )
Dim parameterUserID As New SqlClient.SqlPa rameter("@UserI D",
SqlDbType.NVarC har, 15)
parameterUserID .Value = passData.UserID
myCommand.Param eters.Add(param eterUserID)
' Execute the command to perform the query request on the server
' if there is a problem, then write an appropriate Windows Event Log
record.
Try
myCommand.Execu teNonQuery()
Catch e As Exception
returnvalue = False
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error deleting CustomerDateRan geMargins: " & e.Message,
Diagnostics.Eve ntLogEntryType. Error, SDRAEvent.Delet eData)
End Try
' Free up memory
myCommand = Nothing
' close the database connection and free up memory
CloseConnection (m_objConn)
m_objConn = Nothing
' return a flag indicating if any errors occures while this was
running
Return returnvalue
End Function
' This function calls an SQL Stored procedure. This procedure:
' 1) First deletes any old records that may match the username abd
request date
' 2) Gets all the appropriate records from the Invoice Master,
Invoice Detail and
' Customer master files.
' 3) Applies additional processing to ensure all the necessary
calculations are correct.
Private Function ReloadReportDat a() As Boolean
Dim m_objConn As New System.Data.Sql Client.SqlConne ction
'try to open the connection
If Not OpenConnection( m_objConn) Then
Exit Function
End If
Dim returnvalue As Boolean = True
Dim myCommand As New
SqlClient.SqlCo mmand("ReloadCu stomerDateRange Margins", m_objConn)
' Mark the Command as a SPROC
myCommand.Comma ndType = CommandType.Sto redProcedure
myCommand.Comma ndTimeout = 0
' Add Parameters to SPROC
Dim parameterReques tDate As New
SqlClient.SqlPa rameter("@Reque stDate", SqlDbType.DateT ime)
parameterReques tDate.Value = passData.Report Date
myCommand.Param eters.Add(param eterRequestDate )
Dim parameterUserID As New SqlClient.SqlPa rameter("@UserI D",
SqlDbType.NVarC har, 15)
parameterUserID .Value = passData.UserID
myCommand.Param eters.Add(param eterUserID)
Dim parameterStartD ate As New SqlClient.SqlPa rameter("@Start Date",
SqlDbType.DateT ime)
parameterStartD ate.Value = passData.StartD ate
myCommand.Param eters.Add(param eterStartDate)
Dim parameterEndDat e As New SqlClient.SqlPa rameter("@EndDa te",
SqlDbType.DateT ime)
parameterEndDat e.Value = passData.EndDat e
myCommand.Param eters.Add(param eterEndDate)
' Execute the stored procedure, and if there is an error, write an
appropriate Event Log record.
Try
myCommand.Execu teNonQuery()
Catch e As Exception
returnvalue = False
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error running ReloadCustomerD ateRangeMargins : " & e.Message,
Diagnostics.Eve ntLogEntryType. Error, SDRAEvent.Reloa dData)
End Try
' Free up memory
myCommand = Nothing
' close the database connection and free up memory
CloseConnection (m_objConn)
m_objConn = Nothing
' return a flag showing whether the report data was retrieved,
loaded and calculated appropriately.
Return returnvalue
End Function
' This routine e-mails the PDF file created above to the user that
submitted the request.
Private Function EMailReport(ByV al StartTime As Date, ByVal EndTime As
Date) As Integer
' Set all the necessary message routing and descriptive information.
Dim myMessage As New System.Web.Mail .MailMessage
Dim strMessage As String
Try
myMessage.To = passData.EMailA ddress
myMessage.From = MailFrom
myMessage.Subje ct = "Sales Analysis from " &
Format(passData .StartDate, "MM/dd/yyyy") & " thru " &
Format(passData .EndDate, "MM/dd/yyyy")
myMessage.BodyF ormat = MailFormat.Html
myMessage.Prior ity = MailPriority.Hi gh
Catch e As Exception
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error assigning email data: " & e.Message,
Diagnostics.Eve ntLogEntryType. Error, SDRAEvent.MailP aramters)
Exit Function
End Try
' Set up the message body text.
strMessage = "<html><head><l ink href='" + WebSite + StyleSheet + "'
type='text/css' rel='stylesheet '></head><body>"
strMessage = strMessage + "<Table cellspacing=0 cellpadding=0
style='border-collapse: collapse' bordercolor='#1 11111' width='100%'>"
' Insert a blank line
strMessage = strMessage + "<TR class='Text'><T D> </TD></TR>"
' Display a header line
strMessage = strMessage + "<TR class='Text'><T D>Sales Analysis
processing was performed for data from " & Format(passData .StartDate,
"MM/dd/yyyy") & " thru " & Format(passData .EndDate, "MM/dd/yyyy") & "
</TD></TR>"
' Insert two blank lines
strMessage = strMessage + "<TR class='Text'><T D> </TD></TR>"
' Display the start and end times for the processing
strMessage = strMessage + "<TR class='Text'><T D>Processing was
started at: " + FormatDateTime( StartTime, DateFormat.Long Time) +
"</TD></TR>"
strMessage = strMessage + "<TR class='Text'><T D>Processing was
completed at: " + FormatDateTime( EndTime, DateFormat.Long Time) +
"</TD></TR>"
' Insert two blank lines
strMessage = strMessage + "<TR class='Text'><T D> </TD></TR>"
' Display a header line
strMessage = strMessage + "<TR class='Text'><T D>The completed report
is attached to this e-mail in a PDF format .</TD></TR>"
' End the table
strMessage = strMessage + "</table></body></html>"
' Set the body of the message to the text
myMessage.Body = strMessage
' Add the PDF File as an attachment
Dim objAttach As New MailAttachment( PDFFileName)
' try adding the attachment, and sending the message
Try
myMessage.Attac hments.Add(objA ttach)
SmtpMail.SmtpSe rver = MailServer
SmtpMail.Send(m yMessage)
Catch ex As Exception
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error sending email: " & ex.Message, Diagnostics.Eve ntLogEntryType. Error,
SDRAEvent.SendM ail)
Exit Function
End Try
End Function
' Routine that closes the SQL connection object used to access the SQL
server.
Public Sub CloseConnection (ByVal objConnection As
System.Data.Sql Client.SqlConne ction)
Try
objConnection.C lose()
Catch e As Exception
' Write an event log message
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error closing connection: " & e.Message,
Diagnostics.Eve ntLogEntryType. Error, SDRAEvent.Close Connection)
End Try
End Sub
' Routine that opens the SQL connection object used to access the SQL
server.
Public Function OpenConnection( ByVal objConnection As
System.Data.Sql Client.SqlConne ction) As Boolean
Dim retvalue As Boolean = True
Try
objConnection.C onnectionString = "Server=" & ServerName &
";User=" & UserName & ";Password= " & Password & "; " _
& "Database=" & DatabaseName
objConnection.O pen()
Catch e As Exception
retvalue = False
System.Diagnost ics.EventLog.Wr iteEntry("Sella rsReportService ",
"Error opening connection: " & e.Message,
Diagnostics.Eve ntLogEntryType. Error, SDRAEvent.OpenC onnection)
End Try
Return retvalue
End Function
' Declare properties for all configuration data file items.
Private Property DatabaseName() As String
Get
DatabaseName = mvarDatabaseNam e
End Get
Set(ByVal Value As String)
mvarDatabaseNam e = Value
End Set
End Property
Private Property Password() As String
Get
Password = mvarPassword
End Get
Set(ByVal Value As String)
mvarPassword = Value
End Set
End Property
Private Property ServerName() As String
Get
ServerName = mvarServerName
End Get
Set(ByVal Value As String)
mvarServerName = Value
End Set
End Property
Private Property UserName() As String
Get
UserName = mvaruserName
End Get
Set(ByVal Value As String)
mvaruserName = Value
End Set
End Property
Private Property MailTo() As String
Get
MailTo = mvarMailTo
End Get
Set(ByVal Value As String)
mvarMailTo = Value
End Set
End Property
Private Property MailFrom() As String
Get
MailFrom = mvarMailFrom
End Get
Set(ByVal Value As String)
mvarMailFrom = Value
End Set
End Property
Private Property MailServer() As String
Get
MailServer = mvarMailServer
End Get
Set(ByVal Value As String)
mvarMailServer = Value
End Set
End Property
Private Property PDFViewLocation () As String
Get
PDFViewLocation = mvarPDFViewLoca tion
End Get
Set(ByVal Value As String)
mvarPDFViewLoca tion = Value
End Set
End Property
Private Property Report() As String
Get
Report = mvarReport
End Get
Set(ByVal Value As String)
mvarReport = Value
End Set
End Property
Private Property CrystalName() As String
Get
CrystalName = mvarCrystalName
End Get
Set(ByVal Value As String)
mvarCrystalName = Value
End Set
End Property
Private Property StyleSheet() As String
Get
StyleSheet = mvarStyleSheet
End Get
Set(ByVal Value As String)
mvarStyleSheet = Value
End Set
End Property
Private Property TempFileDir() As String
Get
TempFileDir = mvarTempFileDir
End Get
Set(ByVal Value As String)
mvarTempFileDir = Value
End Set
End Property
Private Property WebSite() As String
Get
WebSite = mvarWebSite
End Get
Set(ByVal Value As String)
mvarWebSite = Value
End Set
End Property
End Class
