使用我的表单中的函数调用从Module运行SQL查询

Question

我有一个表单设置，我想在它的Form_Load事件上运行函数PopulateGrid。我已按如下方式初始化数据库连接：

Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    LoadConfigFile()
    cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & config("DatabasePath") & ";")
    cn.Open()

End Sub

现在，我想在连接到数据库后直接运行PopulateGrid函数，如上所示。当我在主窗体中初始化数据库时，我对如何在模块中使用数据库查询感到困惑。将变量cn设置为公共工作会很简单吗？或者我必须做一些更复杂的事情？

感谢。

Answer 1

您应该修改模块以接受OleDbConnection作为参数，然后将cn变量传递给查询方法。将cn设置为public将不是一个好的设计，因为它会在模块中引入对表单/ ui的依赖，这是不必要的。