代码之家 › 专栏 › 技术社区 › Alfa Bravo

使用函数打开DB连接,使用单独的函数运行逻辑,然后关闭连接

vba ado database-connection excel

Alfa Bravo · 技术社区 · 8 年前

我想尝试将程序逻辑与打开和关闭数据库连接的位置分开

我想在excel中打开与Access数据库的DB连接,该功能可以在每次需要时重复使用以打开连接。然后,我想运行连接打开后需要运行的逻辑(包括单个示例)。

到目前为止,我的代码完成了所有这些,但在运行完我的逻辑之后,我想关闭连接。我的问题是知道如何正确地关闭连接。

到目前为止,我有以下几项工作:打开连接并返回记录

Private Function returnRecordSetFromDB(qry As String) As ADODB.recordSet
    Dim rst As New ADODB.recordSet
    Dim conn As New ADODB.Connection
    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\SomeFolder\SomeDB.accdb;"

    conn.Open (strcon)
    rst.Open qry, conn, adOpenStatic
    Set returnRecordSetFromDB = rst
    'I should close "rst" here, but then I can not use the data in my logic function anymore
End Function

执行我需要对记录数据执行的逻辑的函数:

Private Sub populateTrucks()
    Dim qry As String
    Dim returnedRecordSet As ADODB.recordSet

    qry = "SELECT [Trucks] FROM tbl_trucks ORDER BY [Trucks];"
    Set returnedRecordSet = returnRecordSetFromDB(qry)
    returnedRecordSet.MoveFirst
    With Me.cmb_trucks
        .Clear
        Do
            .AddItem returnedRecordSet![Trucks]
            returnedRecordSet.MoveNext
        Loop Until returnedRecordSet.EOF
    End With

    Me.cmb_trucks.ListIndex = 0
    returnedRecordSet.Close
    Set returnedRecordSet = Nothing
End Sub

据我所说, rst 在我的openDB中,函数仍然是打开的,因为我无法关闭它,否则我无法使用我的记录数据,但我现在如何关闭它?我无法在逻辑函数中关闭它,因为 rst公司 范围已消失。我是否调用了第三个函数来再次打开并关闭连接?它是相同的连接还是只是不同连接的一个实例?

1 回复 | 直到 7 年前

Alfa Bravo 8 年前

最后,我做了以下工作,效果很好:

在my DB模块中: 声明了全局变量-

Dim conn As New ADODB.Connection

然后是我的open sub-

Public Function openDB()
    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\Users\MRProgrammeringPC\Dropbox\Programming\Meatrite Programme\MRPractise.accdb;"
    conn.Open (strcon)
End Function

我的逻辑功能

Public Function returnRecordSetFromDB(qry As String) As ADODB.Recordset
    rst.Open qry, conn, adOpenStatic
    Set returnRecordSetFromDB = rst
End Function

我的关闭sub

Public Sub closeDB()
    conn.Close
End Sub

现在在任何模块中,我只调用open过程,然后调用我想要执行的逻辑过程,然后再次调用close过程。

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

1 年前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

1 年前

Eric · 我有邮政编码替换问题Excel VBA

1 年前

Chasester · VBA使用嵌套的DIV抓取URL

1 年前

jkp · 特殊字符复选标记

1 年前

Iron Man · 代码插入和复制到错误的工作表

1 年前

NoFafo · 将文本框放入数组进行格式化

1 年前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

1 年前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

1 年前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

1 年前