Select Case usage

[dolomite]

Greetings,

I built a form where a user enters an id and then a SQL statement is run using that id then populates a datagrid. In this case, I set up the connection to a production MS SQL db. However, I would like to add in 4 Select Case statments to point to differenty db's respectively. I have the code built to query the 4 other db's but I do not know how to code the radio buttons (Select Case) to point to a db when selected. I've never used Select Case functionality before so any help would be greatly appreciated.

Thanks,
J

[Mark Gambo]

Greetings,

I built a form where a user enters an id and then a SQL statement is run using that id then populates a datagrid. In this case, I set up the connection to a production MS SQL db. However, I would like to add in 4 Select Case statments to point to differenty db's respectively. I have the code built to query the 4 other db's but I do not know how to code the radio buttons (Select Case) to point to a db when selected. I've never used Select Case functionality before so any help would be greatly appreciated.

Thanks,
J

Set up a control array of option buttons and then try this code:

Private Sub Option1_Click(Index As Integer)
    Select Case Index
        Case 0
            ' Option Button 0 selected
        Case 1
            ' Option Button 1 selected
        Case 2
            ' Option Button 2 selected
        Case 3
            ' Option Button 3 selected
    End Select
End Sub

[Pasvorto]

select case dbbutton(index)
case 0
   sql statement for this db
case 1
   sql statement for this db
case 2
   sql statement for this db
case else
   sql statement for this db
end select
update your data control

[Hack]

I realize this may be a picky point, but I'm going to make it anyway. It would actually be

Private Sub Option1_Click(Index As Integer)
    Select Case Index
        Case 0
            ' Option Button 1 selected
        Case 1
            ' Option Button 2 selected
        Case 2
            ' Option Button 3 selected
        Case 3
            ' Option Button 4 selected
    End Select
End Sub

[dolomite]

Great thanks guys!

I was able to build this from your help

    Select Case True
        Case optProd
            stConn = "ConnectString Persist Security Info=False;" & _
                     "Initial Catalog=vantive; Data Source=vanpsqlcluster;" & _
                     "Uid=foo;Pwd=foo"
        Case optdev1
            stConn = "ConnectString Persist Security Info=False;" & _
                     "Initial Catalog=vandev; Data Source=foo;" & _
                     "Uid=report;Pwd=report"
                     
        Case optdev2
            stConn = "ConnectString Persist Security Info=False;" & _
                     "Initial Catalog=vandev2; Data Source=foo;" & _
                     "Uid=report;Pwd=report"
                     
        Case optVanStage
            stConn = "ConnectString Persist Security Info=False;" & _
                     "Initial Catalog=vanstage; Data Source=foo;" & _
                     "Uid=report;Pwd=report"
        
        Case optVanTest
            stConn = "ConnectString Persist Security Info=False;" & _
                     "Initial Catalog=vantest; Data Source=foo;" & _
                     "Uid=report;Pwd=report"
    End Select

Is there a way to set a default? I'd like to have optProd set to true by default.

Thanks alot
J

[dglienna]

Move it to the bottom of the list, and then change the CASE to CASE ELSE, and it wil be selected if nothing else matches.

[Hack]

Is there a way to set a default? I'd like to have optProd set to true by default.

Thanks alot
J

Private Sub Form_Load()
optProd.Value = True
End Sub