StrataFrame Forum » StrataFrame Application Framework - V1 » Business Objects and Data Access (How do I?) » Testing flag routing to Testing Database

Testing flag routing to Testing Database

Charles Thomas Blankenship — Wed, 23 Apr 2014 12:44:35 GMT

Where is the best place to put a flag that switches the DataSourceKey from the actual database ("Crucible" in this case) to a testing database ("CrucibleTesting").

I tried placing it in the Constructor of the Base Business Object like so ... but it is still routing to the production database:

public BaseBusinessLayer():base()

	InitializeComponent();

	if (CommonCalls.AppConfig.IsTesting)

		DataSourceKey = "CrucibleTesting";

RE: Testing flag routing to Testing Database

Charles Thomas Blankenship — Wed, 23 Apr 2014 12:44:35 GMT

Thanks ... I knew it had something to do with the ConnectionManager ... just couldn't remember ...

RE: Testing flag routing to Testing Database

Edhy Rijo — Tue, 22 Apr 2014 18:32:58 GMT

Hi Charles,

I handle that via the Connection Manager in which I create connections for different databases and servers to test live data from my customer's database directly.

I have a menu item in my DevExpress Ribbon menu to do this, here is the vb code:
[codesnippet]
    ''' <summary>
    ''' Sets the database connection
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub SetDatabaseConnection()
        '-- Check security for this module
        If Not Basics.HasPermission("Database Connection") Then
            Exit Sub
        End If

        '-- Show the connection dialog and allow a connection to be selected
        If MicroFour.StrataFrame.Data.ConnectionManager.ShowAvailableConnectionStrings() Then
            '-- Since a connection was selected, then all of the existing dialogs need to be closed
            '   since their connection is established to the original source.
            For Each loForm As Form In Me.MdiChildren
                loForm.Close()
                loForm.Dispose()
            Next

            '-- Force the connections to be reset
            MicroFour.StrataFrame.Data.ConnectionManager.SetConnections()

            '-- Set the Connection label on the status bar
            Me.RibbonControl_MainForm.Items("sbConnectedToItem").Caption = "Connected to: " & GetApplicationActiveConnectionStringTitle(ConnectionManager.ApplicationKey, "")
        End If
    End Sub
[/codesnippet]

The code does not handle all possible validations to test if a form could not be closed because I normally don't allow access to the end users to choose the connection, this is done by me or somebody else I assign to handle this.

Enjoy!!!

RE: Testing flag routing to Testing Database

Charles Thomas Blankenship — Tue, 22 Apr 2014 18:12:04 GMT

I know there is an example application that shows how to use the connection manager (launches a dialog) to change the DataSource but I can't find it anymore.