Imports MicroFour.StrataFrame.Data
Imports MicroFour.StrataFrame.Data.BusinessObjects

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(GetApplicationActiveConnectionStringTitle(ConnectionManager.ApplicationKey, ""))
    End Sub

    ''' <summary>
    ''' Returns the active connection string for an application and a specified data source key.
    ''' </summary>
    ''' <param name="ApplicationKey"></param>
    ''' <param name="DataSourceKey"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function GetApplicationActiveConnectionStringTitle(ByVal ApplicationKey As String, ByVal DataSourceKey As String) As String
        '-- Establish Locals
        Dim loAppData As New DbeApplicationData()
        Dim r As String = ""

        '-- Load the application data
        loAppData.FillWithActiveKey(ApplicationKey)

        '-- See if the application key was found
        If loAppData.Count > 0 Then
            r = loAppData.app_title
        End If

        '-- Clean Up
        loAppData.Dispose()

        '-- Return Results
        Return r
    End Function

End Class