Backup baz danych MS SQL

Backup baz danych MS SQL

Jak poradz­ić sobie z back­u­pem baz danych Microsoft MSSql za pomocą skryp­tu .vbs? Otóż ist­nieje rozwiązanie. Przedstawiamy je poniżej.

——————————————————————-

Dim oServer
Dim oDatabase
Dim oBackup
Dim sBAKFilePath

'Lokalizacja pliku backupu:
sBAKFilePath = "C:\Backup"

Set oServer = CreateObject("SQLDmo.SqlServer")
Set oBackup = CreateObject("SQLDmo.Backup")

oServer.LoginSecure = True
oServer.Connect "serwer\baza danych" , "użytkown­ik", "hasło"

For Each oDatabase In oServer.Databases
If UCase(oDatabase.Name) <> "TEMPDB" Then
oBackup.Database = oDatabase.Name

'Usuwanie poprzed­nich backupów
oBackup.Initialize = True

'Tworzenie nazwy backupu
oBackup.Files = sBAKFilePath & "\" & oDatabase.Name & ".bak"

'Tutaj oreślamy typ backupu

'0 = Full backup
'1 = Differential
'2 = Specified files only
'3 = Log backup

oBackup.Action = 0

oBackup.SQLBackup oServer

End If

Next

Set oBackup = Nothing

oServer.DisConnect

Set oServer = Nothing

——————————————————————-

Tags: ,

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *

Zadzwoń teraz!