Author : Buddhika Fernando
Date Submitted : 12/30/2005
Category : Database
Compatibility : VB 6
This code has been accessed 11036 times.
Task : Backup And Shrink Your Database In Visual Basic, Work 100%
Declarations
Code
Private Sub Command1_Click()
' Use Microsoft SQL DMO Object Library
' Using SQLDMO U Can Get More Features.
' If You Want To Get More Mail Me
' gehan_g7@yahoo.com
' charith_c7@yahoo.co.uk
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