如何在没有 SSMS 的情况下使用 Vb.Net 备份数据库?
How to Backup Database with Vb.Net without SSMS?
目前我备份文件的方式是,当用户单击“备份”时,程序会询问,
To Backup you must close your current session. This application will be closed now. Do you want to continue?
因此应用程序将关闭并启动一个新的应用程序,如果您单击“备份”,它将复制 .mdf 文件和 .ldf 文件
|
但是我在很多页面上都读到 'Copying the .mdf File and the .ldf File' 是最不安全的方式,所以除了使用 SSMS 之外还有其他方法可以进行备份,因为我希望用户能够在应用程序中进行备份。
|
当前代码:
Sub Backup()
Dim con As New SqlClient.SqlConnection("data source=.\SQLEXPRESS;initial catalog=BQDB;Integrated Security=True")
Dim cmd As New SqlCommand()
Try
con.Open()
cmd.CommandType = CommandType.Text
cmd.CommandText = "Backup database BQDB To Disk='C:\Users\Zulfikar\BQBackup.BAK'"
cmd.Connection = con
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
|
我倾向于在使用 SqlCommands 备份数据库时看到性能提升。
Sub Backup()
Dim con As New SqlClient.SqlConnection("data source=DATASOURCE;initial catalog=NAME OF DATABASE;Integrated Security=True")
Dim cmd As New SqlCommand()
Try
con.Open()
cmd.CommandType = CommandType.Text
cmd.CommandText = "Backup database BQDB To Disk='C:\Users\Zulfikar\BQBackup.BAK'"
cmd.Connection = con
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
目前我备份文件的方式是,当用户单击“备份”时,程序会询问,
To Backup you must close your current session. This application will be closed now. Do you want to continue?
因此应用程序将关闭并启动一个新的应用程序,如果您单击“备份”,它将复制 .mdf 文件和 .ldf 文件
|
但是我在很多页面上都读到 'Copying the .mdf File and the .ldf File' 是最不安全的方式,所以除了使用 SSMS 之外还有其他方法可以进行备份,因为我希望用户能够在应用程序中进行备份。
|
当前代码:
Sub Backup()
Dim con As New SqlClient.SqlConnection("data source=.\SQLEXPRESS;initial catalog=BQDB;Integrated Security=True")
Dim cmd As New SqlCommand()
Try
con.Open()
cmd.CommandType = CommandType.Text
cmd.CommandText = "Backup database BQDB To Disk='C:\Users\Zulfikar\BQBackup.BAK'"
cmd.Connection = con
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
|
我倾向于在使用 SqlCommands 备份数据库时看到性能提升。
Sub Backup()
Dim con As New SqlClient.SqlConnection("data source=DATASOURCE;initial catalog=NAME OF DATABASE;Integrated Security=True")
Dim cmd As New SqlCommand()
Try
con.Open()
cmd.CommandType = CommandType.Text
cmd.CommandText = "Backup database BQDB To Disk='C:\Users\Zulfikar\BQBackup.BAK'"
cmd.Connection = con
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub