• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Backup And Shrink Your Database In Visual Basic, Work 100%

Backup And Shrink Your Database In Visual Basic, Work 100%

Backup And Shrink Your Database In Visual Basic, Work 100%

Rate Backup And Shrink Your Database In Visual Basic, Work 100%

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    
    ' Use Microsoft SQL DMO Object Library
    ' Using SQLDMO U Can Get More Features.
    ' If You Want To Get More Mail Me
    ' [email protected]
    ' [email protected]
    Dim SVR         As New SQLDMO.SQLServer

On Error GoTo error_h
    MsgBox "Upur Database Going To Shrink And Backup Now"
    Screen.MousePointer = vbHourglass
    SVR.Connect "RANGANA\RANGANA", "sa", "abc"
    
    Dim Temp
    
    Temp = ""
    Temp = " ---- Write SQL Backup Script"
    
    SVR.Databases("invacc_Duallink").Shrink 0, SQLDMOShrink_Default
    SVR.ExecuteImmediate Temp, SQLDMOExec_Default Or SQLDMOExec_ContinueOnError
    
    MsgBox "Completed"
    Screen.MousePointer = vbDefault
    SVR.DisConnect
    Set SVR = Nothing

error_h:
    If Err Then
        MsgBox Err.Description
        SVR.DisConnect
        Set SVR = Nothing
    End If
    
End Sub