changing connection string at runtime

kscase · May 31st, 2007, 09:24 PM

I have created three different connection strings, based on server, and saved them into the application settings.
I can retrieve the settings with no problem.
What I can't figure out is how to replace the connection string in the table adapters in my data set with the correct one at runtime.

All of the examples I've seen show web-based applications, not a Windows form application and I'm new enough to VB2K5 programming to not always be able to convert what

I hope I'm making this clear enough. I really need help!

Thanks so much in advance! I know someone in this group has had to deal with this issue before.

Karen

kscase · May 31st, 2007, 09:32 PM

I found my answer...

Me.EquipmentTableAdapter.Connection.ConnectionStri ng = APC_WirelessConnectionString

Hope this helps someone else.
(It still amazes me how quickly I figure my answer after I post a question on this forum.)

Karen

kscase · July 3rd, 2007, 10:47 AM

Actually, I found another way to make this work for me.

from my main load routine

Code:

        My.Settings.ServerAlias = "SQLP1"

        Dim strComputerName As String = My.Computer.Name
        Dim strUserName As String = My.User.Name

        If (InStr(strUserName, "casek") And (strComputerName = "APC-WS01")) Then
            cmbServer.Enabled = True
            cmbServer.Visible = True
            btnOK.Enabled = True
            btnOK.Visible = True

            cmbServer.Focus()
        Else
            If InStr(strUserName, "Karen") Then
                My.Settings.ServerAlias = "APCD1"
            End If
        End If

the function that makes it all work ...

Code:

    Public Shared Function DetermineServer(ByVal strConn As SqlConnection) As String

        Dim strConnection As String
        Dim strServerAlias As String = My.Settings.ServerAlias

        If strServerAlias = "APCD1" Then
            strConnection = My.Settings.APC_WirelessConnectionString_Dvlp
        Else
            strConnection = My.Settings.APC_WirelessConnectionString_Prod
        End If

        Return strConnection
    End Function