将所有查询存储在一个模块中？

Question

我有一个关于 VBNET 的快速问题，我目前正在使用 VS 2012 Express 和 Microsoft Access 作为我的数据库。

我的问题是，我如何将查询放入模块而不是将查询放入表单本身？ 假设我在 frmStock 中有这个功能：

frmStock：

Public Sub FillCategory(ByVal Key As String, ByVal Txt As String, ByVal N As TreeNode)
    Dim TD As TreeNode

    If N Is Nothing Then
        TD = tvCategory.Nodes.Add(Key, Txt)
    Else
        TD = N.Nodes.Add(Key, Txt)
    End If

    Dim cmd As New OleDbCommand("SELECT * FROM Category WHERE Category_Parent = ?", conn)
    cmd.Parameters.AddWithValue("Category_Parent", Key)

    Dim dr = cmd.ExecuteReader
    Do While dr.Read()
        FillCategory(dr("Category_ID"), dr("Category_Name"), TD)
    Loop
    dr.Close()
    cmd.Dispose()
End Sub

我想搬家

Dim cmd As New OleDbCommand("SELECT * FROM Category WHERE Category_Parent = ?", conn)

改为模块。

我试过了：

Module queryCollection

    Public getCategoryParent As New OleDbCommand( _
            "SELECT * FROM Category WHERE Category_Parent = ?", conn)

End Module

并将我的 FillCategory 函数修改为：

Public Sub FillCategory(ByVal Key As String, ByVal Txt As String, ByVal N As TreeNode)
    Dim TD As TreeNode

    If N Is Nothing Then
        TD = tvCategory.Nodes.Add(Key, Txt)
    Else
        TD = N.Nodes.Add(Key, Txt)
    End If

    getCategoryParent.Parameters.AddWithValue("Category_Parent", Key)

    Dim dr = getCategoryParent.ExecuteReader

    Do While dr.Read()
        FillCategory(dr("Category_ID"), dr("Category_Name"), TD)
    Loop
    dr.Close()
    getCategoryParent.Dispose()
End Sub

更新：
我的问题的一些屏幕截图：

我的数据库： http://puu.sh/39CMV.PNG

在将我的查询移入模块之前： http://puu.sh/39D0M.PNG

将我的查询移入模块后： puu.sh/39CVV.PNG

似乎只执行一次（？）为什么会这样？在模块中声明我的查询的正确方法是什么？

我实际上有大量查询，我想将它们存储到一个地方以便更有条理的编码。

Answer 1

在您修改后的FillCategory 代码中，您调用了以下代码，但从未保存结果：

getCategoryParent.Parameters.AddWithValue("Category_Parent", Key)

这创建了一个OleDbCommand 对象，但随后它立即被丢弃。然后你打电话：

Dim dr = getCategoryParent.ExecuteReader

这会创建第二个 OleDbCommand 对象，但没有参数值。

修改你的代码：

Dim cmd = getCategoryParent.Parameters.AddWithValue("Category_Parent", Key)
Dim dr = cmd.ExecuteReader

编辑：以下将解决这两个问题。

Dim cmd = getCategoryParent
cmd.Parameters.AddWithValue("Category_Parent", Key)
Dim dr = cmd.ExecuteReader

以前 cmd 变量被 VB 修改为 Infer 为 OleDbParameter 对象，它没有 ExecuteReader 方法。之所以这样推断，是因为它是使用内联完成的 .Parameters.AddWithValue("Category_Parent", Key) 代码调用的方式。

通过此更改，cmd 被正确设置为OleDbCommand 变量，现在您可以根据需要多次使用AddParameter 方法。

编辑 2： getCategoryParent 当前被定义为模块的属性。这意味着getCategoryParent 方法在模块第一次实例化时执行一次，而不是每个循环执行一次。将该方法更改为函数，现在代码将在每个循环中执行一次，并且您的 TreeView 将按预期加载。

Public Function getCategoryParent() As OleDbCommand
    Return New OleDbCommand("SELECT * FROM Category WHERE Category_Parent = ?", conn)
End Function

Answer 2

我在 ASP.NET 和 Access 中采用的一种方法是将我的 SQL 作为文件保存到一个文件夹中，然后使用可能的单例加载它，如下所示：

Public Class FileHandler

    Public Shared Function LoadToString(ByVal pName As String) As String
        Dim rV As String
        Dim fio As StreamReader = File.OpenText(pName)
        rV = fio.ReadToEnd()
        fio.Close()
        Return rV
    End Function

End Class

然后从您的代码中调用它...

...
dim sqlStr As String = FileHandler.LoadToString("sql/mySqlStatement.sql")
...

不过，这很可能不是最佳解决方案。这样做的主要优点是您可以即时修改 SQL，而无需重新编译您的应用程序。

另一种方法是将 SQL 语句作为名称值对存储在 web.config 中，但同样，这不是一个很好的解决方案。

除非有人对此有更好的建议，否则我认为这将是最好的选择！

Answer 3

把你的 SQL 字符串放在你的模块上怎么样..

Module queryCollection

    Public sCatParent As String = "SELECT * FROM Category WHERE Category_Parent = ?"

End Module 

你这样称呼它..

getCategoryParent As New OleDbCommand(sCatParent,conn)

getCategoryParent.Parameters.AddWithValue("Category_Parent", Key)

Dim dr = getCategoryParent.ExecuteReader