01.Dim strSQL As String
02. Dim strCon As String
03.
04. strCon = "Data Source=.;Initial Catalog=Healths;Integrated Security=True"
05. Dim cmdBackup As SqlClient.SqlCommand = New SqlClient.SqlCommand
06.
07. Dim conn As SqlConnection = New SqlConnection(strCon)
08. conn.Open()
09.
10.
11.
12. Cursor = Cursors.WaitCursor
13.
14. Try
15. strSQL = "BACKUP DATABASE Healths "
16. strSQL &= "TO DISK = 'D:\SQL BACKUP' "
17. strSQL &= "WITH FORMAT, "
18. strSQL &= "NAME = 'myBackup'"
19.
20. cmdBackup.Connection = conn
21. cmdBackup.CommandText = strSQL
22. cmdBackup.ExecuteNonQuery()
23.
24. MsgBox("Backup OK.")
25.
26. Catch ex As Exception
27. MsgBox("Error Backup Failed.")
28.
29. End Try
30.
31. Cursor = Cursors.Arrow
32.
33. conn.Close()
34. cmdBackup.Dispose()
35. cmdBackup = Nothing
