Kebetulan ketika sedang jenuh mengerjakan program, saya jadi ingin menambahkan fitur backup database.

Berikut snippet codenya

Dim bdi As New SMOObject.BackupDeviceItem
bdi.Name = “backup.bak”
bdi.DeviceType = SMOObject.DeviceType.File
backup = New SMOObject.Backup
backup.Database = “Database”
backup.Devices.Add(bdi)
backup.Initialize = True
Dim server As New SMOObject.Server(“Server”)
backup.SqlBackup(server)