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