if 문에서 연결 문자열 사용

Question

여기 내 연결 문자열에 문제가있을 수 있습니다. 그것은 cnn이 선언되지 않았 음을보고합니다.

 Dim cnn As New OleDbConnection 
     If rdbtnNewDbase.Checked = True Then 
      Dim cnn As new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=false; Data Source=..\HCHPClosedIn11.mdb") 
     ElseIf rdbtnOldDbase.Checked = True Then 
      Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=false; Data Source=..\HCHPold.mdb") 
     End If 

Answer 1

If/End If 범위 내에서 연결 개체를 다시 선언하려고합니다. 그대로 있더라도 코드를 컴파일 할 수 없습니다. . 또한, 변수가 선언 된 범위 밖에 사용할 수 없습니다

은 당신이 정말로 원하는 것은 이것이다 :

Dim cnn As OleDbConnection 
If rdbtnNewDbase.Checked = True Then 
    cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=false; Data Source=..\HCHPClosedIn11.mdb") 
ElseIf rdbtnOldDbase.Checked = True Then 
    cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=false; Data Source=..\HCHPold.mdb") 
End If 

또는, 그것은 짧게하고 명확 :

Dim cs As String = 
    "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=false; Data Source=..\" & 
    If(rdbtnNewDbase.Checked, "HCHPClosedIn11.mdb", "HCHPold.mdb") 

Dim cnn As New OleDbConnection(cs) 

Answer 2

시험해보기 :

Using cnn As New OleDbConnection(string.Format(
    "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=false; Data Source=..\{0}", 
    If(rdbtnNewDbase.Checked, "HCHPClosedIn11.mdb", "HCHPHold.mdb")) 

    '... 
End Using