急求;access数据库的备份与恢复前怎么断开连接？

Question

本帖最后由 bcrun 于 2010-09-29 14:48:00 编辑

Answer 1

我这个没问题 Dim sFileName As String
 Dim FileObject As New Scripting.FileSystemObject
 
    On Error GoTo lbExit
    If Dir(App.Path & "\Acc_LQ\" & sDataBaseName & ".mdb") = "" Then
        MsgBox "对不起，指定的数据库文件不存在！", vbInformation, "隆企提示"
        Exit Function
    End If
    sFileName = App.Path & "\Acc_LQ\" & sDataBaseName & ".mdb"
    FileObject.CopyFile sFileName, sBackupFileName
    Set FileObject = Nothing
    Exit Function

Answer 2

con.Close
Set con = Nothing
    FileCopy Text1.text, sBakFile
    MsgBox "备份成功!!", , "提示"
 con.Open
这样写的话又提示“对象关闭不允许操作”
怎么办 ？？
高手帮帮忙吧！！

Answer 3

尝试在If conn.State <> adStateClosed Then conn.Close下面加一行：set conn=nothing
不过，个人认为，不要声明全局的连接对象，建议使用采用“即用连接即断”的方式操作数据库，不要使用这种常连接方式...
另外可以用jro对象来实现access数据库的备份，这个对象的效果是修复、压缩、备份一举三得...具体示例在google中输入vb6 access jro搜索...

Answer 4

谢谢，问题解决了，通过api函数SHFileOperation实现