数据库保持为空

Question

第1步：我的备份使用此代码段（它工作正常）

Public Shared Sub BackupDatabase() 
     Dim sConnect As String = My.Settings.LICConnectionString 
     Dim dbName As String 

     Using cnn As New SqlConnection(sConnect) 
      cnn.Open() 
      dbName = cnn.Database.ToString() 

      Dim sc As New ServerConnection(cnn) 
      Dim sv As New Server(sc) 

      ' Check that I'm connected to the user instance 
      Console.WriteLine(sv.InstanceName.ToString()) 

      ' Create backup device item for the backup 
      Dim bdi As New BackupDeviceItem("C:\Backup\LIC.bak", DeviceType.File) 

      ' Create the backup informaton 
      Dim bk As New Backup() 
      bk.Devices.Add(bdi) 
      bk.Action = BackupActionType.Database 
      bk.BackupSetDescription = "SQL Express is a great product!" 
      bk.BackupSetName = "SampleBackupSet" 
      bk.Database = dbName 
      bk.ExpirationDate = New Date(2007, 5, 1) 
      bk.LogTruncation = BackupTruncateLogType.Truncate 

      ' Run the backup 
      bk.SqlBackup(sv) 
      MsgBox("Your backup is complete.") 
     End Using 
    End Sub 

步骤2中的数据库：我删除表（所以数据库是空的）的所有数据。

第3步：使用此代码段从备份中还原文件的数据库（它不抛出任何错误，并执行罚款）

Private Sub Restore(ByVal ConnectionString As String, ByVal DatabaseFullPath As String, ByVal backUpPath As String) 
     Using con As New SqlConnection(ConnectionString) 
      con.Open() 

      Dim UseMaster As String = "USE master" 
      Dim UseMasterCommand As New SqlCommand(UseMaster, con) 
      UseMasterCommand.ExecuteNonQuery() 

      Dim Alter1 As String = "ALTER DATABASE [" & DatabaseFullPath & "] SET Single_User WITH Rollback Immediate" 
      Dim Alter1Cmd As New SqlCommand(Alter1, con) 
      Alter1Cmd.ExecuteNonQuery() 

      Dim Restore As String = "RESTORE DATABASE [" & DatabaseFullPath & "] FROM DISK = N'" & backUpPath & "' WITH FILE = 1, NOUNLOAD, STATS = 10" 
      Dim RestoreCmd As New SqlCommand(Restore, con) 
      RestoreCmd.ExecuteNonQuery() 

      Dim Alter2 As String = "ALTER DATABASE [" & DatabaseFullPath & "] SET Multi_User" 
      Dim Alter2Cmd As New SqlCommand(Alter2, con) 
      Alter2Cmd.ExecuteNonQuery() 

      MsgBox("Successful") 
     End Using 
    End Sub 

不过，这并不表中显示的数据。我意思后，我恢复的数据库中，我应该从备份文件中的旧数据...但数据库表保持为空..

u能指导我这个？

Answer 1

我相信你的问题是你试图在SQL语句中使用数据库路径而不是数据库名称。

假设你的连接字符串打开你想恢复到最初的恢复方法可以改写为如下数据库：

Private Sub Restore(ByVal ConnectionString As String, ByVal DatabaseFullPath As String, ByVal backUpPath As String) 
    Using con As New SqlConnection(ConnectionString) 
     con.Open() 

     Dim sDatabaseName As String 

     sDatabaseName = con.Database 

     Dim UseMaster As String = "USE master" 
     Dim UseMasterCommand As New SqlCommand(UseMaster, con) 
     UseMasterCommand.ExecuteNonQuery() 

     Dim Alter1 As String = "ALTER DATABASE [" & sDatabaseName & "] SET Single_User WITH Rollback Immediate" 
     Dim Alter1Cmd As New SqlCommand(Alter1, con) 
     Alter1Cmd.ExecuteNonQuery() 

     Dim Restore As String = "RESTORE DATABASE [" & sDatabaseName & "] FROM DISK = N'" & backUpPath & "' WITH FILE = 1, NOUNLOAD, STATS = 10" 
     Dim RestoreCmd As New SqlCommand(Restore, con) 
     RestoreCmd.ExecuteNonQuery() 

     Dim Alter2 As String = "ALTER DATABASE [" & sDatabaseName & "] SET Multi_User" 
     Dim Alter2Cmd As New SqlCommand(Alter2, con) 
     Alter2Cmd.ExecuteNonQuery() 

     MsgBox("Successful") 
    End Using 
End Sub