Sql server 使用.bak复制SQL server数据库

我正在尝试在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而出现问题

---

谢谢

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

现在备份工作正常了

---

因此，在VBA中，我先删除文件，然后再进行备份。

谢谢，我不知道这一点。它就像一个符咒，更简单