You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
81 lines
2.5 KiB
81 lines
2.5 KiB
Imports System.Xml
|
|
Imports System.IO
|
|
Imports System.Reflection
|
|
|
|
Public Class Parameters
|
|
Dim sconnectionstringEDOKA As String
|
|
Property ConnectionStringEDOKA() As String
|
|
Get
|
|
Return sconnectionstringEDOKA
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sconnectionstringEDOKA = value
|
|
End Set
|
|
End Property
|
|
Dim sconnectionstringEDOKA_HOST As String
|
|
Property ConnectionStringEDOKA_HOST() As String
|
|
Get
|
|
Return sconnectionstringEDOKA_HOST
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sconnectionstringEDOKA_HOST = value
|
|
End Set
|
|
End Property
|
|
Dim sconnectionstringEDOKA_ZV As String
|
|
Property ConnectionStringEDOKA_ZV() As String
|
|
Get
|
|
Return sconnectionstringEDOKA_ZV
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sconnectionstringEDOKA_ZV = value
|
|
End Set
|
|
End Property
|
|
Dim sconnectionstringColdabgleich As String
|
|
Property ConnectionStringColdabgleich() As String
|
|
Get
|
|
Return sconnectionstringColdabgleich
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sconnectionstringColdabgleich = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim mtmppath As String
|
|
Property TMPPath() As String
|
|
Get
|
|
Return mtmppath
|
|
End Get
|
|
Set(ByVal value As String)
|
|
mtmppath = value
|
|
End Set
|
|
End Property
|
|
Dim sconnectiontmphost As String
|
|
Property ConnectionStringTmpHost() As String
|
|
Get
|
|
Return sconnectiontmphost
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sconnectiontmphost = value
|
|
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Dim xmldoc As New XmlDocument
|
|
|
|
Public Sub New()
|
|
xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
|
|
Me.ConnectionStringEDOKA = xmldoc.SelectSingleNode("/Configuration/SQLConnEDOKA").InnerText
|
|
Me.ConnectionStringEDOKA_HOST = xmldoc.SelectSingleNode("/Configuration/SQLConnHOST").InnerText
|
|
Me.ConnectionStringEDOKA_ZV = xmldoc.SelectSingleNode("/Configuration/SQLConnZV").InnerText
|
|
Me.ConnectionStringColdabgleich = xmldoc.SelectSingleNode("/Configuration/SQLConnColdabgleich").InnerText
|
|
'Me.ConnectionStringTmpHost = xmldoc.SelectSingleNode("/Configuration/SQLConnTmpHost").InnerText
|
|
Me.TMPPath = xmldoc.SelectSingleNode("/Configuration/TMPPath").InnerText
|
|
End Sub
|
|
|
|
Public Function ApplicationPath() As String
|
|
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
|
End Function
|
|
|
|
End Class
|