Imports System.Data.SqlClient
Public Class FrmBackup
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox3.Text = "" Then
            MsgBox("Isi Database", MsgBoxStyle.Critical)
        ElseIf TextBox1.Text = "" Then
            MsgBox("Silahkan cari tempat penyimpanan", MsgBoxStyle.Critical)
        Else
            MulaiBackup()
        End If
    End Sub
    Private Sub MulaiBackup()
        Try
            cmd1 = New SqlCommand("BACKUP DATABASE " & TextBox3.Text & " TO  DISK = N'" & TextBox1.Text & "' WITH NOFORMAT, NOINIT,  NAME = N'gudang_6309249-Full Database Backup', SKIP, NOREWIND, NOUNLOAD,  STATS = 10", con1)
            cmd1.ExecuteNonQuery()
            cmd1.Dispose()
            MsgBox("Backup sukses", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Backup gagal", MsgBoxStyle.Critical)
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub MulaiRestore()
        Try
            cmd1 = New SqlCommand("RESTORE DATABASE " & TextBox3.Text & " FROM  DISK = N'" & TextBox2.Text & "' WITH  FILE = 1,  NOUNLOAD,  STATS = 10", con1)
            cmd1.ExecuteNonQuery()
            cmd1.Dispose()
            MsgBox("restore sukses", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("restore gagal", MsgBoxStyle.Critical)
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fdlg As SaveFileDialog = New SaveFileDialog()
        fdlg.Title = "Simpan Backup File(Bak FIle)"
        fdlg.InitialDirectory = "c:\"
        fdlg.Filter = "All files (*.*)|*.*|BAK FIle (*.bak*)|*.bak"
        fdlg.FilterIndex = 2
        fdlg.RestoreDirectory = True
        If fdlg.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = fdlg.FileName
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox3.Text = "" Then
            MsgBox("Isi Database", MsgBoxStyle.Critical)
        ElseIf TextBox2.Text = "" Then
            MsgBox("Silahkan cari file backup", MsgBoxStyle.Critical)
        Else
            MulaiRestore()
        End If
    End Sub

    Private Sub FrmBackup_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi1()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim fdlg As OpenFileDialog = New OpenFileDialog()
        fdlg.Title = "Cari Backup File(Bak FIle)"
        fdlg.InitialDirectory = "c:\"
        fdlg.Filter = "All files (*.*)|*.*|BAK FIle (*.bak*)|*.bak*"
        fdlg.FilterIndex = 2
        fdlg.RestoreDirectory = True
        If fdlg.ShowDialog() = DialogResult.OK Then
            TextBox2.Text = fdlg.FileName
        End If
    End Sub
End Class