70 lines
2.2 KiB
Plaintext
70 lines
2.2 KiB
Plaintext
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 sscriptpath As String
|
|
Property ScriptPath() As String
|
|
Get
|
|
Return sscriptpath
|
|
End Get
|
|
Set(ByVal value As String)
|
|
sscriptpath = 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.ScriptPath = xmldoc.SelectSingleNode("/Configuration/Scriptpath").InnerText
|
|
End Sub
|
|
|
|
Public Function ApplicationPath() As String
|
|
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
|
End Function
|
|
|
|
End Class
|