My.Settings.DatabaseName = <Your Database Name>
Public Shared Function BackupDatabase(strFilename As String ) As Boolean
Private Shared sqlConnString As String= My.Settings.BionatureConnectionString
Private Shared sqlConn As New SqlConnection(sqlConnString)
Private Shared sqlCmnd As New SqlCommand
Dim sqlString As String = "ALTER DATABASE " & My.Settings.DatabaseName & " SET SINGLE_USER WITH ROLLBACK IMMEDIATE;" & _
"BACKUP DATABASE " & My.Settings.DatabaseName & " TO DISK = @strFilename;" & _
"ALTER DATABASE " & My.Settings.DatabaseName & " SET MULTI_USER;"
Dim bolResult As Integer
Try
'create your connection string and open it here
sqlConn.Open()
With sqlCmnd
.Parameters.Clear()
.Connection = sqlConn
.CommandText = sqlString
.Parameters.AddWithValue("@strFilename", strFilename)
End With
bolResult = sqlCmnd.ExecuteNonQuery()
Return True
Catch ex As Exception
Throw ex
Return False
Finally
If sqlConn.State = ConnectionState.Open Then
sqlConn.Close()
End If
End Try
End Function
Public Shared Function RestoreDatabase(strFilename As String) As Boolean
Private Shared sqlConnString As String= My.Settings.BionatureConnectionString
Private Shared sqlConn As New SqlConnection(sqlConnString)
Private Shared sqlCmnd As New SqlCommand
Dim sqlString As String = "ALTER DATABASE " & My.Settings.DatabaseName & " SET SINGLE_USER WITH ROLLBACK IMMEDIATE;" & _
"USE MASTER;" & _
"RESTORE DATABASE " & My.Settings.DatabaseName & " FROM DISK = @strFilename;" & _
"ALTER DATABASE " & My.Settings.DatabaseName & " SET MULTI_USER;"
Dim bolResult As Integer
Try
'create your connection string and open it here
sqlConn.Open()
With sqlCmnd
.Parameters.Clear()
.Connection = sqlConn
.CommandText = sqlString
.Parameters.AddWithValue("@strFilename", strFilename)
End With
bolResult = sqlCmnd.ExecuteNonQuery()
Return True
Catch ex As Exception
Throw ex
Return False
Finally
If sqlConn.State = ConnectionState.Open Then
sqlConn.Close()
End If
End Try
End Function