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%
(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
Backup And Shrink Your Database In Visual Basic, Work 100% Comments
No comments yet — be the first to post one!
Post a Comment