SQLデータベースファイルのバックアップ・復元 (ID:145930)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 上記で試しても中々上手くいかなかったので補足しておきます。 バックアップコード DB_BACKUP()の 最後に srv.DetachDatabase([アタッチmdfファイルのパス], False) を追加してバックアップの接続を解放 リストアコードは以下のようにして上手くいきました。 Private Sub DB_Restore() Dim srv As New Server Dim rs As New Restore Dim dbNm As String = [アタッチmdfファイルのパス] Dim backupFile As String = "C:\ＤＢファイル.bak" Try '復元に利用するバックアップを指定 Me.Cursor = Cursors.WaitCursor 'サーバへの接続情報を設定 srv.ConnectionContext.ConnectionString = "Data Source=.\SQLEXPRESS;Integrated Security=True;AttachDbFilename=" & dbNm & ";" & User Instance=True" srv.Databases(dbNm).Drop() 'バックアップ装置を指定する Dim bdi As New BackupDeviceItem(backupFile, DeviceType.File) rs.Devices.Add(bdi) '復元（リストア）の動作を決める rs.NoRecovery = False rs.ReplaceDatabase = True rs.Action = RestoreActionType.Database rs.Database = dbNm rs.PercentCompleteNotification = 10 '復元（リストア）の実行 rs.SqlRestore(srv) MessageBox.Show("完了", "通知") Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Exclamation) Finally Me.Cursor = Cursors.Default End Try End Sub