Select Case usage

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

Quote:

---

Originally Posted by 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

---

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

VB 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

VB Code:

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

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

VB Code:

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

Great thanks guys!

I was able to build this from your help

Code:

---

    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

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.

Quote:

---

Originally Posted by dolomite

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

Thanks alot
J

---

VB Code:

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