设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2869|回复: 4
打印 上一主题 下一主题

[ADO/DAO] 如何编程压缩Access?

[复制链接]
跳转到指定楼层
1#
发表于 2010-8-31 22:16:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 chenwm1973 于 2010-8-31 22:18 编辑

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

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2010-8-31 22:40:34 | 只看该作者
不是很明白你的意思
系统选项中可以设置退出时压缩
3#
 楼主| 发表于 2010-9-1 07:25:22 | 只看该作者
是用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
4#
发表于 2010-9-1 15:51:06 | 只看该作者
本帖最后由 koutx 于 2010-9-1 15:55 编辑

我在VB.net中都是使用OledbConnection,取出数据后就关闭Connection。
你将DBcnn.Close后,再压缩试试看,不知行不行。
5#
 楼主| 发表于 2010-9-1 17:14:33 | 只看该作者
本帖最后由 chenwm1973 于 2010-9-2 08:56 编辑

怎么关闭?
这是在函数中,不知怎么关?
以前不用函数时,就如楼上所说,可以操作。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-17 07:32 , Processed in 0.090106 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表