子程序连接到MS Access数据库

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 

这是一个模块，并使用它，它的工作原理与模块中的任何功能，但，当我尝试从Main.vb（我的主窗体）尝试并使用它时，它似乎没有做任何事情，因为任何执行SQL查询的尝试都返回错误，说我必须初始化连接。

我曾尝试设置它用于Public的所有变量，但它不起作用。也许我需要回报一些东西？我不知道。

任何帮助表示赞赏，谢谢。

Answer 1

问题是，变量cn的作用域是Sub的本地作用域。您应该将其更改为一个函数并返回一个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功能，如果适合你的架构。