请指教，怎样才能在VB中实现对ACCESS数据库的压缩和修复操作。

Question

命令是什么，如能用代码写出来，不胜感激。

Answer 1

Private Sub m_Compact_Click() '数据库压缩
'''*On Error Resume Next
  Dim oldMdb As String
  Dim newMdb As String  cnnCMMS.Close  oldMdb = App.Path & "\msDATA.mdb"
  newMdb = App.Path & "\msDATAcopy.mdb"  DBEngine.CompactDatabase oldMdb, newMdb, , , ";"  Kill oldMdb  Name newMdb As oldMdb    Dim sConnect As String
    Dim sSource As String
         sSource = "Data Source=" & App.Path & "\msDATA.mdb"
         sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & sSource
    Set cnnCMMS = New ADODB.Connection
    With cnnCMMS
         .CursorLocation = adUseClient '.Provider = "Microsoft.Jet.OLEDB.4.0"
         .Open sConnect
    End With
    MsgBox "压缩已完成!"
End Sub

Answer 2

Private Sub m_restore_Click() '复原数据库
''''*On Error Resume Next
  Dim oldMdb As String
  Dim newMdb As String
            Dim SHFileOp As SHFILEOPSTRUCT            SHFileOp.wFunc = FO_COPY
            SHFileOp.pFrom = App.Path & "\back\msDATAformobile.mdb"
            SHFileOp.pTo = App.Path & "\msDATAformobile.mdb"
            SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
            Call SHFileOperation(SHFileOp)            MsgBox "复原已完成!"    Exit Sub
End Sub

Answer 3

'压缩数据库
Public Function CompDatabase() As Boolean
    On Error GoTo ErrMsg
    Dim JRO As New JRO.JetEngine
    Dim tempDBPath As String
    Dim conStr1 As String, conStr2 As String
    Dim i As Integer
    
    If MsgBox("你确定要压缩当前数据库吗？", vbQuestion + vbOKCancel + vbDefaultButton2, "小心！") = vbCancel Then
       Exit Function
    End If
    
    Screen.MousePointer = 11
    
    For i = Len(MdbSourcePath) To 1 Step -1
        If Mid(MdbSourcePath, i, 1) = "\" Then
            tempDBPath = Left(MdbSourcePath, i) & "tempDocument.mdb"
            Exit For
        End If
    Next i
    
    If Dir(tempDBPath) <> "" Then
        Kill tempDBPath
    End If
    
    conStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MdbSourcePath & ";jet oledb:database password=790319"
    conStr2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tempDBPath & ";jet oledb:database password=790319"
    
    con.Close '先关闭全局连接
    JRO.CompactDatabase conStr1, conStr2
    
    Kill MdbSourcePath
    Name tempDBPath As MdbSourcePath
    
    ConnectDatabase con '再开启全局连接
    
    Screen.MousePointer = 0
    
    MsgBox "数据库压缩成功", vbInformation + vbOKOnly, "祝贺"
    CompDatabase = True
    Exit Function
ErrMsg:
    Screen.MousePointer = 0
    CompDatabase = False
    MsgBox "请确保其它应用程序没有使用当前数据库！" & vbCrLf & Err.Description & "然后关闭其它所有子窗体后再恢复！", vbInformation + vbOKOnly, "提示"
    CheckConnection con
End Function

Answer 4

Public Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
'Public Const FO_COPY = &H3
'Public Const FOF_ALLOWUNDO = &H40Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_SILENT = &H4
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Answer 5

Private Sub m_restore_Click() '复原数据库
''''*On Error Resume Next
  Dim oldMdb As String
  Dim newMdb As String
            Dim SHFileOp As SHFILEOPSTRUCT            SHFileOp.wFunc = FO_COPY
            SHFileOp.pFrom = App.Path & "\back\msDATA.mdb"
            SHFileOp.pTo = App.Path & "\msDATAf.mdb"
            SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
            Call SHFileOperation(SHFileOp)            MsgBox "复原已完成!"    Exit Sub
End Sub

Answer 6

DBEngine.CompactDatabase oldMdb, newMdb, , , ";"

Answer 7

觀擦MCSD里的Visual Data 的例子