서브 루틴 내가 MS 액세스 데이터베이스에 연결하기 위해이 서브 루틴 설정을 가지고

Question

MS Access 데이터베이스에 연결 : 그러나

Public Sub MakeDBConnection(ByVal source As String) 
    Try 
     cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & source & ";") 
     cn.Open() 
    Catch e As Exception 
     ReportError("CRITICAL", e.Message) 
    End Try 
End Sub 

그것은 모듈이며, 그것이 작동 모듈에서 그것을 사용하는 기능, , 시도 할 때 시도하고 모든 SQL 쿼리를 실행하는 모든 시도로 연결을 초기화해야한다는 오류와 함께 돌아올 것처럼 Main.vb (내 기본 폼)에서 그것을 사용하는 것처럼 보이지 않습니다.

공용으로 사용하는 모든 변수를 설정하려고했지만 작동하지 않습니다. 돌아올 필요가 있을까요? 나는 모른다.

감사합니다. 감사합니다.

Answer 1

문제는 변수 cn의 범위가 Sub에 국한된다는 것입니다. 이 값을 Function으로 변경하고 OleDbConnection 개체를 반환해야합니다. 그래서 코드는 다음과 같습니다

Public Function MakeDBConnection(ByVal source As String) As OleDbConnection 
    Try 
     Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & source & ";") 
     cn.Open() 

     Return cn 

    Catch e As Exception 
     ReportError("CRITICAL", e.Message) 
    End Try 
End Function 

과 같을 것이다 코드를 호출 :

이

' For example: 
myOleDbCommand.Connection = MakeDBConnection(source) 

는 또한 데이터 소스에 대한 app.config 파일에서 읽은 MakeDBConnection 기능을 고려해, 즉 맞는 경우 너의 건축.