使用 .bak 复制 SQL Server 数据库答案

【问题标题】：Copy SQL server database with .bak使用 .bak 复制 SQL Server 数据库
【发布时间】：2013-05-01 16:34:51
【问题描述】：

我正在尝试在 VBA (MS-ACCESS) 中复制 SQL Server 数据库。

所以我得到了这个查询来创建 .bak

DECLARE @name VARCHAR(50) -- database name  
DECLARE @path VARCHAR(256) -- path for backup files  
DECLARE @fileName VARCHAR(256) -- filename for backup  
DECLARE @fileDate VARCHAR(20) -- used for file name


-- specify database backup directory
SET @path = 'D:\Backup\'  


-- specify filename format
SELECT @fileDate = CONVERT(VARCHAR(20),GETDATE(),112) 


DECLARE db_cursor CURSOR FOR  
SELECT name 
FROM master.dbo.sysdatabases 
WHERE name NOT IN ('master','model','msdb','tempdb')  -- exclude these databases


OPEN db_cursor   
FETCH NEXT FROM db_cursor INTO @name   


WHILE @@FETCH_STATUS = 0   
BEGIN   
       SET @fileName = @path + @name + '.BAK'  
       BACKUP DATABASE @name TO DISK = @fileName  


       FETCH NEXT FROM db_cursor INTO @name   
END   


CLOSE db_cursor   
DEALLOCATE db_cursor

然后我得到这个来恢复数据库

RESTORE DATABASE SMD
FROM DISK='\\SRV_FILESMTL\SMD\SMD.bak'
WITH 
MOVE 'smd' TO 'c:\Program Files\Microsoft SQL Server\MSSQL11.SQLEXPRESS\MSSQL\DATA\SMD.mdf',
MOVE 'smd_log' TO 'c:\Program Files\Microsoft SQL Server\MSSQL11.SQLEXPRESS\MSSQL\DATA\SMD_log.ldf',
REPLACE

它们都在像这样单击按钮时在主窗体中调用

On Error GoTo Error
    Dim os As String

    lblWait.Visible = True
    Me.Repaint

    CurrentDb.Execute ("qryToBackupServer")
    CurrentDb.Execute ("qryToRestoreDataW7")


    MsgBox ("Data imported successfully")
    lblWait.Visible = False
    Exit Sub
Error:
        MsgBox Err.Description
        lblWait.Visible = False
        Exit Sub

我认为它有效，但我意识到没有导入新数据。所以我检查了 .bak 是否创建正确，是的，因为如果我将 .bak 复制到我的计算机上并使用 SQL Management Studio 恢复它，它就可以工作。

那么我的恢复查询有问题吗？没有错误，但它应该需要 30 秒，因为当我复制 .bak 时，它是 5go，需要 5 分钟？

我在想可能是数据库被锁定了，因为我在 Access 中使用链接到该数据库的表调用这些函数，但我没有收到错误。

是否存在问题，因为我从另一台服务器获取 .bak？

谢谢

【问题讨论】：

标签： sql-server vba ms-access sql-server-2012-express

【解决方案1】：

我发现每次备份时 .bak 文件的大小都会增加。所以我把它删了，我又做了一个。它是 33 000 ko 而不是 4go...

现在备份工作了。

所以在 VBA 中，我删除之前的文件进行备份。

【讨论】：