Backup baz danych MS SQL
Jak poradzić sobie z backupem baz danych Microsoft MSSql za pomocą skryptu .vbs? Otóż istnieje 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żytkownik", "hasło"
For Each oDatabase In oServer.Databases
If UCase(oDatabase.Name) <> "TEMPDB" Then
oBackup.Database = oDatabase.Name
'Usuwanie poprzednich 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
——————————————————————-