Index: ActiviteitenOpvolging/ActiviteitenOpvolging/mappers/CacheMapper.vb
===================================================================
diff -u -r1693 -r1707
--- ActiviteitenOpvolging/ActiviteitenOpvolging/mappers/CacheMapper.vb (.../CacheMapper.vb) (revision 1693)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/mappers/CacheMapper.vb (.../CacheMapper.vb) (revision 1707)
@@ -11,9 +11,10 @@
Private Sub ConnectToCache()
Try
If _sqlConnection Is Nothing Then
- 'Build connection string. Looks something like this "DSN=...; DRIVER={InterSystems ODBC}; SERVER=CACHE01;DATABASE=ADMIN1;UID=...;PWD=..."
- Dim connectionString = $"DSN={My.Resources.CacheSQLConnection}; DRIVER=" & "{InterSystems ODBC}" &
- $"; SERVER=CACHE01;DATABASE=ADMIN1;UID={My.Resources.CacheUsername};PWD={My.Resources.CachePassword}"
+ 'Build connection string. Looks something like this "DSN=...; DRIVER={InterSystems ODBC}; SERVER=...;DATABASE=...;UID=...;PWD=..."
+ Dim connectionString = $"DSN={My.Resources.CacheDSN}; DRIVER=" & "{InterSystems ODBC};
+ SERVER={My.Resources.CacheServerName};DATABASE={My.Resources.CacheDatabase};
+ UID={My.Resources.CacheUsername};PWD={My.Resources.CachePassword}"
'Initialise connection.
_sqlConnection = New OdbcConnection(connectionString)
End If
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Resources.Designer.vb
===================================================================
diff -u -r1706 -r1707
--- ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Resources.Designer.vb (.../Resources.Designer.vb) (revision 1706)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Resources.Designer.vb (.../Resources.Designer.vb) (revision 1707)
@@ -61,6 +61,24 @@
End Property
'''
+ ''' Looks up a localized string similar to ADMIN1.
+ '''
+ Friend ReadOnly Property CacheDatabase() As String
+ Get
+ Return ResourceManager.GetString("CacheDatabase", resourceCulture)
+ End Get
+ End Property
+
+ '''
+ ''' Looks up a localized string similar to Cache01Admin1.
+ '''
+ Friend ReadOnly Property CacheDSN() As String
+ Get
+ Return ResourceManager.GetString("CacheDSN", resourceCulture)
+ End Get
+ End Property
+
+ '''
''' Looks up a localized string similar to fixed.
'''
Friend ReadOnly Property CachePassword() As String
@@ -70,11 +88,11 @@
End Property
'''
- ''' Looks up a localized string similar to Cache01Admin1.
+ ''' Looks up a localized string similar to CACHE01.
'''
- Friend ReadOnly Property CacheSQLConnection() As String
+ Friend ReadOnly Property CacheServerName() As String
Get
- Return ResourceManager.GetString("CacheSQLConnection", resourceCulture)
+ Return ResourceManager.GetString("CacheServerName", resourceCulture)
End Get
End Property
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Resources.resx
===================================================================
diff -u -r1706 -r1707
--- ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Resources.resx (.../Resources.resx) (revision 1706)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/My Project/Resources.resx (.../Resources.resx) (revision 1707)
@@ -117,13 +117,21 @@
System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+ ADMIN1
+ The name of the Caché database
+
+
+ Cache01Admin1
+ The name of the DSN for the Caché database
+
fixed
The password for the Caché database
-
- Cache01Admin1
- The name of the connection for the Caché database
+
+ CACHE01
+ The name of the server for the Caché database
ICT_READONLY