如何编程压缩Access?

chenwm1973

由于是用函数来调用Access（独占方式）
Public Function ExecuteSQL(ByVal strSQL As String, strLockType As String) As ADODB.Recordset
如此会造成无法关闭Access,除非关闭程序。
而压缩数据库需要关闭Access，
请问如何关闭Access后再压缩Access？

t小宝

不是很明白你的意思
系统选项中可以设置退出时压缩

chenwm1973

是用VB编程调用操作Access
在整个程序运行期间，Access一直打开
现在问题是不知如何在运行中关闭。
函数代码如下
Public Function ExecuteSQL(ByVal strSQL As String, strLockType As String) As ADODB.Recordset
    Dim rs As New ADODB.Recordset
    Dim DBcnn As New ADODB.Connection
    On Error GoTo ExecuteSQL_Error
   
    Set DBcnn = New ADODB.Connection
    DBcnn.ConnectionString = "uid=admin;pwd=123;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\HR_data_Phone.mdb "
    DBcnn.Open
   
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
   
    If UCase(strLockType) = "W" Then  '写数据"w"或"W"
        rs.Open Trim$(strSQL), DBcnn, adOpenStatic, adLockPessimistic
        Else '只读数据"r"或"R"
        rs.Open Trim$(strSQL), DBcnn, adOpenStatic, adLockReadOnly
    End If
    Set ExecuteSQL = rs
   
ExecuteSQL_Exit:
    Set rs = Nothing
    Set DBcnn = Nothing
    Exit Function

ExecuteSQL_Error:
    If Err.Number <> 0 Then
        MsgBox  "错误信息：" & Err.Description , vbCritical, "错误"
    End If
    Resume ExecuteSQL_Exit

End Function

koutx

我在VB.net中都是使用OledbConnection，取出数据后就关闭Connection。
你将DBcnn.Close后，再压缩试试看，不知行不行。

chenwm1973

怎么关闭？
这是在函数中，不知怎么关？
以前不用函数时，就如楼上所说，可以操作。